mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source 
ensure that default-directory is an ordinary file name
before turning off file-name-handler-alist.
This commit is contained in:
Karl Heuer 1997-10-19 21:02:27 +00:00
parent fe4d985204
commit 5cb1f7280a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/files.el
View File

@ -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