# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767490279 0
# Node ID fa1ae50e55b38e76d606903414471345663731be
# Parent  2b445c15563e68ce81ff64f907003df2d4983452
(ange-ftp-hook-function): Use ange-ftp-run-real-handler.
(ange-ftp-run-real-handler): Inhibit ange-ftp-completion-hook-function
as well as ange-ftp-hook-function.

diff -r 2b445c15563e -r fa1ae50e55b3 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Wed Apr 27 23:43:46 1994 +0000
+++ b/lisp/ange-ftp.el	Wed Apr 27 23:44:39 1994 +0000
@@ -851,7 +851,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.47 $")
+(defconst ange-ftp-version "$Revision: 1.48 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3785,8 +3785,7 @@
 (defun ange-ftp-hook-function (operation &rest args)
   (let ((fn (get operation 'ange-ftp)))
     (if fn (apply fn args)
-      (let (file-name-handler-alist)
-	(apply operation args)))))
+      (ange-ftp-run-real-handler operation args))))
 
 
 ;;; This regexp takes care of real ange-ftp file names (with a slash
@@ -3864,8 +3863,9 @@
 (defun ange-ftp-run-real-handler (operation args)
   (let ((inhibit-file-name-handlers
 	 (cons 'ange-ftp-hook-function
-	       (and (eq inhibit-file-name-operation operation)
-		    inhibit-file-name-handlers)))
+	       (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)))