# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 892923155 0
# Node ID 805366038d2793f6d74a90cee5f8f2db88722a52
# Parent  9b009b58225ff5fb8f82d1ffcf6f0f6e5f3ae3a1
(file-name-handler-alist): FIx previous change.

diff -r 9b009b58225f -r 805366038d27 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sat Apr 18 17:09:18 1998 +0000
+++ b/lisp/ange-ftp.el	Sat Apr 18 18:12:35 1998 +0000
@@ -4069,7 +4069,7 @@
 		 "^/[^/:]*[^/:.]:")))
   (or (assoc pattern file-name-handler-alist)
       (setq file-name-handler-alist
-	    (cons (cons pattern ange-ftp-hook-function)
+	    (cons (cons pattern 'ange-ftp-hook-function)
 		  file-name-handler-alist))))
 
 ;;; This regexp recognizes and absolute filenames with only one component,
@@ -4080,7 +4080,7 @@
 		 "^/[^/:]*\\'")))
   (or (assoc pattern file-name-handler-alist)
       (setq file-name-handler-alist
-	    (cons (cons pattern ange-ftp-completion-hook-function)
+	    (cons (cons pattern 'ange-ftp-completion-hook-function)
 		  file-name-handler-alist))))
 
 ;;; The above two forms are sufficient to cause this file to be loaded