From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 1 Mar 2007 17:06:40 +0000 (+0000)
Subject: (set-auto-mode-0): Use `indirect-function'.
X-Git-Tag: emacs-pretest-22.0.95~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c7c413c0407704abca2e8d8a1afd95b25fe64df;p=emacs.git

(set-auto-mode-0): Use `indirect-function'.
(hack-one-local-variable): Don't reapply current major mode.
---

diff --git a/lisp/files.el b/lisp/files.el
index adec33ef77b..719cda70739 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2285,14 +2285,12 @@ only set the major mode, if that would change it."
 If optional arg KEEP-MODE-IF-SAME is non-nil, MODE is chased of
 any aliases and compared to current major mode.  If they are the
 same, do nothing and return nil."
-  (when keep-mode-if-same
-    (while (symbolp (symbol-function mode))
-      (setq mode (symbol-function mode)))
-    (if (eq mode major-mode)
-	(setq mode nil)))
-  (when mode
-    (funcall mode)
-    mode))
+  (unless (and keep-mode-if-same
+	       (eq (indirect-function mode)
+		   (indirect-function major-mode)))
+    (when mode
+      (funcall mode)
+      mode)))
 
 (defun set-auto-mode-1 ()
   "Find the -*- spec in the buffer.
@@ -2811,9 +2809,15 @@ It is dangerous if either of these conditions are met:
 		      ok)))))))
 
 (defun hack-one-local-variable (var val)
-  "Set local variable VAR with value VAL."
+  "Set local variable VAR with value VAL.
+If VAR is `mode', call `VAL-mode' as a function unless it's
+already the major mode."
   (cond ((eq var 'mode)
-	 (funcall (intern (concat (downcase (symbol-name val)) "-mode"))))
+	 (let ((mode (intern (concat (downcase (symbol-name val))
+				     "-mode"))))
+	   (unless (eq (indirect-function mode)
+		       (indirect-function major-mode))
+	     (funcall mode))))
 	((eq var 'eval)
 	 (save-excursion (eval val)))
 	(t