aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/files.el7
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
991 (forward-char -1) 991 (forward-char -1)
992 (goto-char end)) 992 (goto-char end))
993 (skip-chars-backward " \t") 993 (skip-chars-backward " \t")
994 (funcall (intern (concat (downcase (buffer-substring beg (point))) "-mode")))) 994 (funcall (intern (concat (downcase (buffer-substring beg (point))) "-mode")))
995 (setq done t))
995 ;; Simple -*-MODE-*- case. 996 ;; Simple -*-MODE-*- case.
996 (funcall (intern (concat (downcase (buffer-substring beg end)) "-mode")))) 997 (funcall (intern (concat (downcase (buffer-substring beg end)) "-mode")))
997 (setq done t))) 998 (setq done t))))
998 ;; If we didn't find a mode from a -*- line, try using the file name. 999 ;; If we didn't find a mode from a -*- line, try using the file name.
999 (if (and (not done) buffer-file-name) 1000 (if (and (not done) buffer-file-name)
1000 (let ((name buffer-file-name) 1001 (let ((name buffer-file-name)