diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-18 18:12:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-18 18:12:35 +0000 |
| commit | 0ef2d7f5d63d960b8864182f58668a11511cf5fc (patch) | |
| tree | 5bbfe26e875d0e7c81e1225b026db17d0bdd6907 | |
| parent | 13d98a5fdcae0a07ca5cda470f556be894b5ae12 (diff) | |
| download | emacs-0ef2d7f5d63d960b8864182f58668a11511cf5fc.tar.gz | |
(file-name-handler-alist): FIx previous change.
| -rw-r--r-- | lisp/ange-ftp.el | 4 |
1 files 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 |