(ange-ftp-completion-hook-function): Use new inhibit vars.

57e81f57 · Richard M. Stallman · 6a66e3be · 57e81f57
Commit 57e81f57 authored Apr 27, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/files.el lisp/files.el +5 -1

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -244,7 +244,11 @@ and ignores this variable.")
 (defun ange-ftp-completion-hook-function (op &rest args)
  (if (memq op '(file-name-completion file-name-all-completions))
      (apply 'ange-ftp-hook-function op args)
-    (let (file-name-handler-alist)
+    (let ((inhibit-file-name-handlers
+	   (cons 'ange-ftp-completion-hook-function
+		 (and (eq inhibit-file-name-operation op)
+		      inhibit-file-name-handlers)))
+	  (inhibit-file-name-operation op))
      (apply op args))))

 (defun pwd ()