diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index b4872e46b01..204c26416a6 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -6915,7 +6915,15 @@ only these files will be asked to be saved." (defun file-name-non-special (operation &rest arguments) (let ((file-name-handler-alist nil) (default-directory - (if (eq operation 'insert-directory) + ;; Some operations respect file name handlers in + ;; `default-directory'. Because core function like + ;; `call-process' don't care about file name handlers in + ;; `default-directory', we here have to resolve the + ;; directory into a local one. For `process-file', + ;; `start-file-process', and `shell-command', this fixes + ;; Bug#25949. + (if (memq operation '(insert-directory process-file start-file-process + shell-command)) (directory-file-name (expand-file-name (unhandled-file-name-directory default-directory))) |