diff options
| author | Richard M. Stallman | 1998-04-18 18:12:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-18 18:12:35 +0000 |
| commit | f170ed7157a9bed92e831f13b2ee4c8f90344d54 (patch) | |
| tree | 42b2d354f31a2aaa7fb09ace798d670d9e2298de | |
| parent | 382668c7075c253cbb960c5827b669fb46be68f1 (diff) | |
| download | emacs-f170ed7157a9bed92e831f13b2ee4c8f90344d54.tar.gz emacs-f170ed7157a9bed92e831f13b2ee4c8f90344d54.zip | |
(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.") | |||
| 4069 | "^/[^/:]*[^/:.]:"))) | 4069 | "^/[^/:]*[^/:.]:"))) |
| 4070 | (or (assoc pattern file-name-handler-alist) | 4070 | (or (assoc pattern file-name-handler-alist) |
| 4071 | (setq file-name-handler-alist | 4071 | (setq file-name-handler-alist |
| 4072 | (cons (cons pattern ange-ftp-hook-function) | 4072 | (cons (cons pattern 'ange-ftp-hook-function) |
| 4073 | file-name-handler-alist)))) | 4073 | file-name-handler-alist)))) |
| 4074 | 4074 | ||
| 4075 | ;;; This regexp recognizes and absolute filenames with only one component, | 4075 | ;;; 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.") | |||
| 4080 | "^/[^/:]*\\'"))) | 4080 | "^/[^/:]*\\'"))) |
| 4081 | (or (assoc pattern file-name-handler-alist) | 4081 | (or (assoc pattern file-name-handler-alist) |
| 4082 | (setq file-name-handler-alist | 4082 | (setq file-name-handler-alist |
| 4083 | (cons (cons pattern ange-ftp-completion-hook-function) | 4083 | (cons (cons pattern 'ange-ftp-completion-hook-function) |
| 4084 | file-name-handler-alist)))) | 4084 | file-name-handler-alist)))) |
| 4085 | 4085 | ||
| 4086 | ;;; The above two forms are sufficient to cause this file to be loaded | 4086 | ;;; The above two forms are sufficient to cause this file to be loaded |