diff options
| -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, |