Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/files.el (set-auto-mode): Simplify a bit further.

Browse source
This commit is contained in:
Stefan Monnier 2013-09-11 08:36:59 -04:00
parent 71b28baa2b
commit feeff482d8
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2013-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
* files.el (set-auto-mode): Simplify a bit further.
2013-09-11 Glenn Morris <rgm@gnu.org>
* files.el (interpreter-mode-alist): Remove \\` \\' parts.

8
lisp/files.el
View file

@ -2679,11 +2679,9 @@ we don't actually set it to the same mode the buffer already has."
(setq done (assoc-default
(file-name-nondirectory mode)
(mapcar (lambda (e)
(if (string-match-p "\\`\\\\`" (car e))
e
(cons
(format "\\`%s\\'" (car e))
(cdr e))))
(cons
(format "\\`%s\\'" (car e))
(cdr e)))
interpreter-mode-alist)
#'string-match-p))
;; If we found an interpreter mode to use, invoke it now.