Mercurial > emacs

diff lisp/files.el @ 20095:496ecb0c5e68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-name-non-special): For insert-directory operation, ensure that default-directory is an ordinary file name before turning off file-name-handler-alist.
author Karl Heuer <kwzh@gnu.org>
date Sun, 19 Oct 1997 21:02:27 +0000
parents 583c3ace07bf
children 84d1bec9ac4b
line wrap: on
line diff
--- a/lisp/files.el	Sun Oct 19 20:34:22 1997 +0000
+++ b/lisp/files.el	Sun Oct 19 21:02:27 1997 +0000
@@ -3076,6 +3076,12 @@
 
 (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