diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-16 03:20:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-16 03:20:40 +0000 |
| commit | fb69dfa50edca2c39b359a9cab2f129d550f4d3b (patch) | |
| tree | 12ae7d2c56ac947e9a0ba4ba6daf77c1c6f94248 /lisp | |
| parent | e363091e2ca7dafea60c618efd59465693986a1d (diff) | |
| download | emacs-fb69dfa50edca2c39b359a9cab2f129d550f4d3b.tar.gz emacs-fb69dfa50edca2c39b359a9cab2f129d550f4d3b.tar.bz2 emacs-fb69dfa50edca2c39b359a9cab2f129d550f4d3b.zip | |
(set-auto-mode): If -*- spec doesn't set `mode:',
look for other ways of specifying major mode.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 5d9795aedda..6f85e79e4ac 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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) |