Function: ange-ftp-run-real-handler-orig

ange-ftp-run-real-handler-orig is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-run-real-handler-orig OPERATION ARGS)

Aliases

ange-ftp-run-real-handler

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
;;; Define ways of getting at unmodified Emacs primitives,
;;; turning off our handler.

(defun ange-ftp-run-real-handler-orig (operation args)
  (let ((inhibit-file-name-handlers
	 (cons 'ange-ftp-hook-function
	       (cons 'ange-ftp-completion-hook-function
		     (and (eq inhibit-file-name-operation operation)
			  inhibit-file-name-handlers))))
	(inhibit-file-name-operation operation))
    (apply operation args)))