martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)