(file-name-handler-alist): FIx previous change.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 97f16f562083777d2aae1fb9f4014e00ec671fde..8bd0955fd2fd69d6713effe03cd6478f468084d0 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -4069,7 +4069,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
                 "^/[^/:]*[^/:.]:")))
   (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 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
                 "^/[^/:]*\\'")))
   (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