Mercurial > emacs

changeset 21648:805366038d27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-name-handler-alist): FIx previous change.
author Richard M. Stallman <rms@gnu.org>
date Sat, 18 Apr 1998 18:12:35 +0000
parents 9b009b58225f
children 840699d18eab
files lisp/ange-ftp.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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