File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -240,8 +240,8 @@ should be used since elements can change at the head.
240
240
Removes the input file, the output file, ...
241
241
242
242
Relative paths are relative to DEFAULT-DIR."
243
- ; ; compute the absolute path for FILE only once
244
- (setq file (expand-file-name file default-dir))
243
+ ; ; compute the truename of the absolute path for FILE only once
244
+ (setq file (file-truename ( expand-file-name file default-dir) ))
245
245
(let* ((head (cons 'nah compile-options))
246
246
(it head)
247
247
opt)
@@ -258,8 +258,8 @@ Relative paths are relative to DEFAULT-DIR."
258
258
(if (string= opt " -o" )
259
259
(setcdr it (nthcdr 3 it))
260
260
(setcdr it (nthcdr 2 it))))
261
- ; ; skip input file
262
- ((string= file (expand-file-name opt default-dir))
261
+ ; ; skip input file; avoid invoking file commands if an option argument
262
+ ((and ( not ( string-prefix-p " - " opt)) ( string = file (file-truename ( expand-file-name opt default-dir)) ))
263
263
(setcdr it (nthcdr 2 it)))
264
264
(t
265
265
; ; if head of cdr hasn't been skipped, iterate, otherwise check if the
You can’t perform that action at this time.
0 commit comments