From c86bd65bfc20441d7599189d97990f945d41d412 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Aug 1995 23:38:49 +0000 Subject: [PATCH] (file-name-handler-alist): Don't match host name ending in period. --- lisp/ange-ftp.el | 5 +++-- 1 file 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.") ;;; This regexp takes care of real ange-ftp file names (with a slash ;;; and colon). +;;; Don't allow the host name to end in a period--some systems use /.: ;;;###autoload -(or (assoc "^/[^/:]*[^/:]:" file-name-handler-alist) +(or (assoc "^/[^/:]*[^/:.]:" file-name-handler-alist) (setq file-name-handler-alist - (cons '("^/[^/:]*[^/:]:" . ange-ftp-hook-function) + (cons '("^/[^/:]*[^/:.]:" . ange-ftp-hook-function) file-name-handler-alist))) ;;; This regexp recognizes and absolute filenames with only one component, -- 2.39.2