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 |