From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 14 Apr 2013 02:55:21 +0000 (-0400)
Subject: * lisp/files.el (normal-mode): Only use default major-mode if no other mode
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~473
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91e8293cc55d1de50796300412084e8774c60e7f;p=emacs.git

* lisp/files.el (normal-mode): Only use default major-mode if no other mode
was specified.

Fixes: debbugs:14089
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d92d79fd0a..b0997a307f5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-04-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* files.el (normal-mode): Only use default major-mode if no other mode
+	was specified.
+
 	* emacs-lisp/trace.el (trace-values): New function.
 
 	* files.el: Allow : in local variables (bug#14089).
diff --git a/lisp/files.el b/lisp/files.el
index 6be3685c875..ce032534f04 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1986,8 +1986,7 @@ Do you want to revisit the file normally now? ")
 	    (set-buffer-multibyte nil)
 	    (setq buffer-file-coding-system 'no-conversion)
 	    (set-buffer-major-mode buf)
-	    (make-local-variable 'find-file-literally)
-	    (setq find-file-literally t))
+	    (setq-local find-file-literally t))
 	(after-find-file error (not nowarn)))
       (current-buffer))))
 
@@ -2175,7 +2174,7 @@ not set local variables (though we do notice a mode specified with -*-.)
 or from Lisp without specifying the optional argument FIND-FILE;
 in that case, this function acts as if `enable-local-variables' were t."
   (interactive)
-  (funcall (or (default-value 'major-mode) 'fundamental-mode))
+  (fundamental-mode)
   (let ((enable-local-variables (or (not find-file) enable-local-variables)))
     ;; FIXME this is less efficient than it could be, since both
     ;; s-a-m and h-l-v may parse the same regions, looking for "mode:".
@@ -2759,7 +2758,9 @@ we don't actually set it to the same mode the buffer already has."
 					  (if (functionp re)
 					      (funcall re)
 					    (looking-at re)))))))
-	  (set-auto-mode-0 done keep-mode-if-same)))))
+	  (set-auto-mode-0 done keep-mode-if-same)))
+    (unless done
+      (set-buffer-major-mode (current-buffer)))))
 
 ;; When `keep-mode-if-same' is set, we are working on behalf of
 ;; set-visited-file-name.  In that case, if the major mode specified is the