Commit 57e81f57 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 6a66e3be
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment