# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 798002440 0
# Node ID 7a4512fba8bc5a54eff3616fc28db0f06e43f493
# Parent  b3c30d0407676b700ae5b72192e58423fe518b28
(set-auto-mode): If -*- spec doesn't set `mode:',
look for other ways of specifying major mode.

diff -r b3c30d040767 -r 7a4512fba8bc lisp/files.el
--- a/lisp/files.el	Sat Apr 15 18:34:01 1995 +0000
+++ b/lisp/files.el	Sun Apr 16 03:20:40 1995 +0000
@@ -991,10 +991,11 @@
 		       (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)