Mercurial > emacs
comparison lisp/files.el @ 82275:b7b1c3d757cf
* files.el (set-auto-mode): Handle also remote files wrt
`auto-mode-alist'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 05 Aug 2007 08:50:52 +0000 |
| parents | b98604865ea0 |
| children | 77e1a2e7ce75 |
comparison
equal
deleted
inserted
replaced
| 82274:f68e9e7acaf6 | 82275:b7b1c3d757cf |
|---|---|
| 2308 (looking-at re))))))) | 2308 (looking-at re))))))) |
| 2309 (set-auto-mode-0 done keep-mode-if-same))) | 2309 (set-auto-mode-0 done keep-mode-if-same))) |
| 2310 ;; Next compare the filename against the entries in auto-mode-alist. | 2310 ;; Next compare the filename against the entries in auto-mode-alist. |
| 2311 (unless done | 2311 (unless done |
| 2312 (if buffer-file-name | 2312 (if buffer-file-name |
| 2313 (let ((name buffer-file-name)) | 2313 (let ((name buffer-file-name) |
| 2314 (remote-id (file-remote-p buffer-file-name))) | |
| 2315 ;; Remove remote file name identification. | |
| 2316 (when (and (stringp remote-id) | |
| 2317 (string-match remote-id name)) | |
| 2318 (setq name (substring name (match-end 0)))) | |
| 2314 ;; Remove backup-suffixes from file name. | 2319 ;; Remove backup-suffixes from file name. |
| 2315 (setq name (file-name-sans-versions name)) | 2320 (setq name (file-name-sans-versions name)) |
| 2316 (while name | 2321 (while name |
| 2317 ;; Find first matching alist entry. | 2322 ;; Find first matching alist entry. |
| 2318 (setq mode | 2323 (setq mode |