diff options
| author | Michael Albinus | 2007-08-05 12:48:27 +0000 |
|---|---|---|
| committer | Michael Albinus | 2007-08-05 12:48:27 +0000 |
| commit | 70aa3317c570f15f8652ad959e5587e73a2281b3 (patch) | |
| tree | abe5da05bc47b6a4e5b136a11a617d03484ebebc | |
| parent | 6435918d3d459eba7c11d5cc4b0116285f196b28 (diff) | |
| download | emacs-70aa3317c570f15f8652ad959e5587e73a2281b3.tar.gz emacs-70aa3317c570f15f8652ad959e5587e73a2281b3.zip | |
*** 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." | |||
| 2260 | (unless done | 2260 | (unless done |
| 2261 | (if buffer-file-name | 2261 | (if buffer-file-name |
| 2262 | (let ((name buffer-file-name) | 2262 | (let ((name buffer-file-name) |
| 2263 | (remote-id (regexp-quote (file-remote-p buffer-file-name)))) | 2263 | (remote-id (file-remote-p buffer-file-name))) |
| 2264 | ;; Remove remote file name identification. | 2264 | ;; Remove remote file name identification. |
| 2265 | (when (and (stringp remote-id) | 2265 | (when (and (stringp remote-id) |
| 2266 | (string-match remote-id name)) | 2266 | (string-match (regexp-quote remote-id) name)) |
| 2267 | (setq name (substring name (match-end 0)))) | 2267 | (setq name (substring name (match-end 0)))) |
| 2268 | ;; Remove backup-suffixes from file name. | 2268 | ;; Remove backup-suffixes from file name. |
| 2269 | (setq name (file-name-sans-versions name)) | 2269 | (setq name (file-name-sans-versions name)) |