diff options
| author | Michael Albinus | 2007-08-05 12:46:33 +0000 |
|---|---|---|
| committer | Michael Albinus | 2007-08-05 12:46:33 +0000 |
| commit | 326501005a068110586cd9810a3615af44c6d797 (patch) | |
| tree | 4abcaa383bfe11fcc97f613e50e70c93940de791 | |
| parent | 7c731c3d6b34dc70e1ae3f514db40dabbc4cdc2c (diff) | |
| download | emacs-326501005a068110586cd9810a3615af44c6d797.tar.gz emacs-326501005a068110586cd9810a3615af44c6d797.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index e2cde74d6a1..3be6c2429cd 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2314,7 +2314,7 @@ we don't actually set it to the same mode the buffer already has." | |||
| 2314 | (remote-id (file-remote-p buffer-file-name))) | 2314 | (remote-id (file-remote-p buffer-file-name))) |
| 2315 | ;; Remove remote file name identification. | 2315 | ;; Remove remote file name identification. |
| 2316 | (when (and (stringp remote-id) | 2316 | (when (and (stringp remote-id) |
| 2317 | (string-match remote-id name)) | 2317 | (string-match (regexp-quote remote-id) name)) |
| 2318 | (setq name (substring name (match-end 0)))) | 2318 | (setq name (substring name (match-end 0)))) |
| 2319 | ;; Remove backup-suffixes from file name. | 2319 | ;; Remove backup-suffixes from file name. |
| 2320 | (setq name (file-name-sans-versions name)) | 2320 | (setq name (file-name-sans-versions name)) |