# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877294947 0
# Node ID 496ecb0c5e6847ab07c8b433a2a2a3adc7e617cc
# Parent  583c3ace07bff7869407944198d129f15d98ccb7
(file-name-non-special): For insert-directory operation,
ensure that default-directory is an ordinary file name
before turning off file-name-handler-alist.

diff -r 583c3ace07bf -r 496ecb0c5e68 lisp/files.el
--- 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