From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Jul 1993 07:12:30 +0000 (+0000)
Subject: (ange-ftp-completion-hook-function): New function.
X-Git-Tag: emacs-19.34~11665
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93fe0a356ffaee742995e36ad4d5051a21aedf9e;p=emacs.git

(ange-ftp-completion-hook-function): New function.
---

diff --git a/lisp/files.el b/lisp/files.el
index aefc4fa4e88..5ed1ad4b7ab 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."