changeset 20095:496ecb0c5e68

(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 f83d5ee9a78e
files lisp/files.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
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