diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2007-08-05 12:48:27 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2007-08-05 12:48:27 +0000 |
| commit | 70aa3317c570f15f8652ad959e5587e73a2281b3 (patch) | |
| tree | abe5da05bc47b6a4e5b136a11a617d03484ebebc | |
| parent | 6435918d3d459eba7c11d5cc4b0116285f196b28 (diff) | |
| download | emacs-70aa3317c570f15f8652ad959e5587e73a2281b3.tar.gz | |
*** empty log message ***
| -rw-r--r-- | lisp/files.el | 4 |
1 files 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)) |