[#21] Bugfix for 'filepath option

This commit is contained in:
Radon Rosborough 2020-11-07 04:38:39 -08:00
parent 3be4b486dc
commit 23ee6b5b4d

View file

@ -413,7 +413,7 @@ modified from what is written to disk, then don't do anything."
project-dir))))) project-dir)))))
(when (file-executable-p binary) (when (file-executable-p binary)
(setcar command binary))))) (setcar command binary)))))
(when (memq 'file command) (when (or (memq 'file command) (memq 'filepath command))
(setq command (mapcar (lambda (arg) (setq command (mapcar (lambda (arg)
(if (memq arg '(file filepath)) (if (memq arg '(file filepath))
(prog1 buffer-file-name (prog1 buffer-file-name