Mercurial > emacs
diff lisp/ange-ftp.el @ 21648:805366038d27
(file-name-handler-alist): FIx previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 18 Apr 1998 18:12:35 +0000 |
parents | 8ea12f8e8a04 |
children | 37c1ced8578a |
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