Commit feeff482 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 71b28baa
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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment