From f170ed7157a9bed92e831f13b2ee4c8f90344d54 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 18 Apr 1998 18:12:35 +0000 Subject: [PATCH] (file-name-handler-alist): FIx previous change. --- lisp/ange-ftp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2