# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775453549 0
# Node ID 4c6590fc242e064e5f0aef403e00552f7304f2ef
# Parent  60904bb9d0d81c638ba3f77d974343dbf15bcc35
(file-truename): Temporarily get rid of the
ange-ftp completion handler.

diff -r 60904bb9d0d8 -r 4c6590fc242e lisp/files.el
--- a/lisp/files.el	Thu Jul 28 23:16:20 1994 +0000
+++ b/lisp/files.el	Fri Jul 29 03:45:49 1994 +0000
@@ -351,8 +351,15 @@
 	(if (string= filename "")
 	    (setq filename "/"))))
   (or counter (setq counter (list 100)))
-  (or prev-dirs (setq prev-dirs (list nil)))
-  (let (done)
+  (let (done
+	;; For speed, remove the ange-ftp completion handler from the list.
+	;; We know it's not needed here.
+	;; For even more speed, do this only on the outermost call.
+	(file-name-handler-alist
+	 (if prev-dirs file-name-handler-alist
+	   (let ((tem (copy-sequence file-name-handler-alist)))
+	     (delq (rassq 'ange-ftp-completion-hook-function tem) tem)))))
+    (or prev-dirs (setq prev-dirs (list nil)))
     ;; If this file directly leads to a link, process that iteratively
     ;; so that we don't use lots of stack.
     (while (not done)