diff options
| author | Richard M. Stallman | 1995-08-01 23:38:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-01 23:38:49 +0000 |
| commit | c86bd65bfc20441d7599189d97990f945d41d412 (patch) | |
| tree | ddc44457e15ad5a8e5e803613ea709f5c9fa6d1c | |
| parent | 033ef863a8ce97d68d14c2aa2fa066cddf25af34 (diff) | |
| download | emacs-c86bd65bfc20441d7599189d97990f945d41d412.tar.gz emacs-c86bd65bfc20441d7599189d97990f945d41d412.zip | |
(file-name-handler-alist): Don't match host name ending in period.
| -rw-r--r-- | lisp/ange-ftp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 512d357e808..0af2e987509 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -3826,10 +3826,11 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") | |||
| 3826 | 3826 | ||
| 3827 | ;;; This regexp takes care of real ange-ftp file names (with a slash | 3827 | ;;; This regexp takes care of real ange-ftp file names (with a slash |
| 3828 | ;;; and colon). | 3828 | ;;; and colon). |
| 3829 | ;;; Don't allow the host name to end in a period--some systems use /.: | ||
| 3829 | ;;;###autoload | 3830 | ;;;###autoload |
| 3830 | (or (assoc "^/[^/:]*[^/:]:" file-name-handler-alist) | 3831 | (or (assoc "^/[^/:]*[^/:.]:" file-name-handler-alist) |
| 3831 | (setq file-name-handler-alist | 3832 | (setq file-name-handler-alist |
| 3832 | (cons '("^/[^/:]*[^/:]:" . ange-ftp-hook-function) | 3833 | (cons '("^/[^/:]*[^/:.]:" . ange-ftp-hook-function) |
| 3833 | file-name-handler-alist))) | 3834 | file-name-handler-alist))) |
| 3834 | 3835 | ||
| 3835 | ;;; This regexp recognizes and absolute filenames with only one component, | 3836 | ;;; This regexp recognizes and absolute filenames with only one component, |