From 57e81f57b9540e75ae76cea5b183171aa230aee7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Apr 1994 23:43:46 +0000 Subject: [PATCH] (ange-ftp-completion-hook-function): Use new inhibit vars. --- lisp/files.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index 1bba1ef7dae..b3654ec3656 100644 --- 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 () -- 2.39.5