mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 06:31:34 -08:00
Code Issues Projects Releases Wiki Activity

(set-auto-mode): If -*- spec doesn't set `mode:',

Browse source 
look for other ways of specifying major mode.
This commit is contained in:
Richard M. Stallman 1995-04-16 03:20:40 +00:00
parent e363091e2c
commit fb69dfa50e
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/files.el
View file

@ -991,10 +991,11 @@ If `enable-local-variables' is nil, this function does not check for a
(forward-char -1)
(goto-char end))
(skip-chars-backward " \t")
(funcall (intern (concat (downcase (buffer-substring beg (point))) "-mode"))))
(funcall (intern (concat (downcase (buffer-substring beg (point))) "-mode")))
(setq done t))
;; Simple -*-MODE-*- case.
(funcall (intern (concat (downcase (buffer-substring beg end)) "-mode"))))
(setq done t)))
(funcall (intern (concat (downcase (buffer-substring beg end)) "-mode")))
(setq done t))))
;; If we didn't find a mode from a -*- line, try using the file name.
(if (and (not done) buffer-file-name)
(let ((name buffer-file-name)