Mercurial > emacs
comparison lisp/ange-ftp.el @ 1535:ff23077bae01
* ange-ftp.el: Tighten the regular expression used in
file-name-handler-alist to recognized ange-ftp filenames; the
slash, username and hostname must be at the start of the filename,
not just anywhere in the filename.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 03 Nov 1992 02:00:50 +0000 |
| parents | 5f42c7680da7 |
| children | 3e621a2a9cfe |
comparison
equal
deleted
inserted
replaced
| 1534:dd292c7ef749 | 1535:ff23077bae01 |
|---|---|
| 855 | 855 |
| 856 ;;;; ------------------------------------------------------------ | 856 ;;;; ------------------------------------------------------------ |
| 857 ;;;; Internal variables. | 857 ;;;; Internal variables. |
| 858 ;;;; ------------------------------------------------------------ | 858 ;;;; ------------------------------------------------------------ |
| 859 | 859 |
| 860 (defconst ange-ftp-version "$Revision: 1.9 $") | 860 (defconst ange-ftp-version "$Revision: 1.10 $") |
| 861 | 861 |
| 862 (defvar ange-ftp-data-buffer-name " *ftp data*" | 862 (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 863 "Buffer name to hold directory listing data received from ftp process.") | 863 "Buffer name to hold directory listing data received from ftp process.") |
| 864 | 864 |
| 865 (defvar ange-ftp-netrc-modtime nil | 865 (defvar ange-ftp-netrc-modtime nil |
| 3730 (if fn (apply fn args) | 3730 (if fn (apply fn args) |
| 3731 (let (file-name-handler-alist) | 3731 (let (file-name-handler-alist) |
| 3732 (apply operation args))))) | 3732 (apply operation args))))) |
| 3733 | 3733 |
| 3734 ;;;###autoload | 3734 ;;;###autoload |
| 3735 (or (assoc "/[^/:]+:" file-name-handler-alist) | 3735 (or (assoc "^/[^/:]+:" file-name-handler-alist) |
| 3736 (setq file-name-handler-alist | 3736 (setq file-name-handler-alist |
| 3737 (cons '("/[^/:]+:" . ange-ftp-hook-function) | 3737 (cons '("^/[^/:]+:" . ange-ftp-hook-function) |
| 3738 file-name-handler-alist))) | 3738 file-name-handler-alist))) |
| 3739 | 3739 |
| 3740 ;;; The above two forms are sufficient to cause this file to be loaded | 3740 ;;; The above two forms are sufficient to cause this file to be loaded |
| 3741 ;;; if the user ever uses a file name with a colon in it. | 3741 ;;; if the user ever uses a file name with a colon in it. |
| 3742 | 3742 |