diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-27 23:43:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-27 23:43:46 +0000 |
| commit | 48beffe14cd5c61fd87798a7dd0fc203de0fe34c (patch) | |
| tree | 2064781cc5d1f8bd1199bec51958f110710e8c87 /lisp/files.el | |
| parent | d8ec156abb7f75f65e7ead8e55284ce8f93e9862 (diff) | |
| download | emacs-48beffe14cd5c61fd87798a7dd0fc203de0fe34c.tar.gz | |
(ange-ftp-completion-hook-function): Use new inhibit vars.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 5 insertions, 1 deletions
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 () |