[AUCTeX-diffs] Changes to auctex/context.el

[Berend de Boer]

Index: auctex/context.el
diff -u auctex/context.el:1.55 auctex/context.el:1.56
--- auctex/context.el:1.55      Wed May  3 21:46:09 2006
+++ auctex/context.el   Thu May  4 22:07:14 2006
@@ -1429,7 +1429,13 @@
 
 (defun ConTeXt-mode-common-initialization ()
   "Initialization code that is common for all ConTeXt interfaces."
-  (plain-TeX-common-initialization)
+  ;; `plain-TeX-common-initialization' kills all local variables, but
+  ;; we need to keep ConTeXt-current-interface, so save and restore
+  ;; it.
+  (let (save-ConTeXt-current-interface)
+    (setq save-ConTeXt-current-interface ConTeXt-current-interface)
+    (plain-TeX-common-initialization)
+    (setq ConTeXt-current-interface save-ConTeXt-current-interface))
   (setq major-mode 'context-mode)
 
   ;; Make language specific variables buffer local
@@ -1539,7 +1545,6 @@
   (require (intern (concat "context-" ConTeXt-current-interface)))
   (funcall (intern (concat "context-" ConTeXt-current-interface "-mode"))))
 
-
 (provide 'context)
 
 ;;; context.el ends here