Commit 5cb1f728 authored by Karl Heuer's avatar Karl Heuer
Browse files

(file-name-non-special): For insert-directory operation,

ensure that default-directory is an ordinary file name
before turning off file-name-handler-alist.
parent fe4d9852
......@@ -3076,6 +3076,12 @@ With prefix arg, silently save all file-visiting buffers, then kill."
(defun file-name-non-special (operation &rest arguments)
(let ((file-name-handler-alist nil)
(default-directory
(if (eq operation 'insert-directory)
(directory-file-name
(expand-file-name
(unhandled-file-name-directory default-directory)))
default-directory))
;; Get a list of the indices of the args which are file names.
(file-arg-indices
(cdr (or (assq operation
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment