From 70aa3317c570f15f8652ad959e5587e73a2281b3 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 5 Aug 2007 12:48:27 +0000 Subject: [PATCH] *** empty log message *** --- lisp/files.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 8e6fb9ff725..dfa3cef384d 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2260,10 +2260,10 @@ we don't actually set it to the same mode the buffer already has." (unless done (if buffer-file-name (let ((name buffer-file-name) - (remote-id (regexp-quote (file-remote-p buffer-file-name)))) + (remote-id (file-remote-p buffer-file-name))) ;; Remove remote file name identification. (when (and (stringp remote-id) - (string-match remote-id name)) + (string-match (regexp-quote remote-id) name)) (setq name (substring name (match-end 0)))) ;; Remove backup-suffixes from file name. (setq name (file-name-sans-versions name)) -- 2.39.2