Function: ange-ftp-completion-hook-function

ange-ftp-completion-hook-function is a byte-compiled function defined in files.el.gz.

Signature

(ange-ftp-completion-hook-function OP &rest ARGS)

Documentation

Provides support for ange-ftp host name completion.

Runs the usual ange-ftp hook, but only for completion operations.

Source Code

;; Defined in /usr/src/emacs/lisp/files.el.gz
(defun ange-ftp-completion-hook-function (op &rest args)
  "Provides support for ange-ftp host name completion.
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.
  (if (memq op '(file-name-completion file-name-all-completions))
      (apply 'ange-ftp-hook-function op args)
    (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))))