From 93fe0a356ffaee742995e36ad4d5051a21aedf9e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Jul 1993 07:12:30 +0000 Subject: [PATCH] (ange-ftp-completion-hook-function): New function. --- lisp/files.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index aefc4fa4e8..5ed1ad4b7a 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -229,6 +229,16 @@ and ignores this variable.") (defalias 'lock-buffer 'ignore)) (or (fboundp 'unlock-buffer) (defalias 'unlock-buffer 'ignore)) + +;; This hook function provides support for ange-ftp host name +;; completion. It runs the usual ange-ftp hook, but only for +;; completion operations. Having this here avoids the need +;; to load ange-ftp when it's not really in use. +(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) + (apply op args)))) (defun pwd () "Show the current default directory." -- 2.39.2