Commit 93fe0a35 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 0628c764
......@@ -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."
......
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