From: Richard M. Stallman Date: Sat, 18 Apr 1998 18:12:35 +0000 (+0000) Subject: (file-name-handler-alist): FIx previous change. X-Git-Tag: emacs-20.3~1427 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f170ed7157a9bed92e831f13b2ee4c8f90344d54;p=emacs.git (file-name-handler-alist): FIx previous change. --- diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 97f16f56208..8bd0955fd2f 100644 --- 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