Mercurial > emacs
changeset 8374:4c6590fc242e
(file-truename): Temporarily get rid of the
ange-ftp completion handler.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 29 Jul 1994 03:45:49 +0000 |
| parents | 60904bb9d0d8 |
| children | 46b6425cf980 |
| files | lisp/files.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)