* progmodes/cc-mode.el (c-before-hack-hook): When the mode is set in file

local variables, set it first.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3371fb4531213df15fb6ef842c225e2040ebe608..47763f3c705518d2d51acbebce69189c07285ef2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-20  Alan Mackenzie  <acm@muc.de>
+
+       * progmodes/cc-mode.el (c-before-hack-hook): When the mode is set
+       in file local variables, set it first.
+
 2010-06-19  Glenn Morris  <rgm@gnu.org>
 
        * descr-text.el (describe-char-unicode-data): Insert separating

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 2bfa2b7df9beedd9d932e438a99c62a0bea5007f..6b0d3f8b423f089592c399530fce8eaf182e27e5 100644 (file)
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -662,8 +662,13 @@ They are set only when, respectively, the pseudo variables
 
 This function is called from the hook `before-hack-local-variables-hook'."
   (when c-buffer-is-cc-mode
-    (let ((stile (cdr (assq 'c-file-style file-local-variables-alist)))
+    (let ((mode-cons (assq 'mode file-local-variables-alist))
+         (stile (cdr (assq 'c-file-style file-local-variables-alist)))
          (offsets (cdr (assq 'c-file-offsets file-local-variables-alist))))
+      (when mode-cons
+       (hack-one-local-variable (car mode-cons) (cdr mode-cons))
+       (setq file-local-variables-alist
+             (delq mode-cons file-local-variables-alist)))
       (when stile
        (or (stringp stile) (error "c-file-style is not a string"))
        (c-set-style stile))