[AUCTeX-diffs] Changes to auctex/tex.el,v

[Reiner Steib]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Reiner Steib <rsteib>   06/07/27 18:41:42

Index: tex.el
===================================================================
RCS file: /sources/auctex/auctex/tex.el,v
retrieving revision 5.583
retrieving revision 5.584
diff -u -b -r5.583 -r5.584
--- tex.el      11 Jul 2006 21:20:05 -0000      5.583
+++ tex.el      27 Jul 2006 18:41:42 -0000      5.584
@@ -1859,6 +1859,18 @@
 (defvar TeX-grcl "}" "The TeX group closing character.")
  (make-variable-buffer-local 'TeX-grcl)
 
+(defcustom TeX-enable-toolbar t
+  "Enable TeX tool bar."
+  :group 'TeX-tool-bar
+  :type 'boolean)
+
+(defun TeX-maybe-install-toolbar ()
+  "Conditionally install tool bar buttons for TeX mode.
+Install tool bar if `TeX-enable-toolbar' is non-nil."
+  (when TeX-enable-toolbar
+    ;; Defined in `tex-bar.el':
+    (TeX-install-toolbar)))
+
 ;;; Symbols
 
 ;; Must be before keymaps.
@@ -2432,6 +2444,9 @@
   (setq TeX-base-mode-name "TeX")
   (setq TeX-command-default "TeX")
   (setq TeX-sentinel-default-function 'TeX-TeX-sentinel)
+  (add-hook 'tool-bar-mode-on-hook 'TeX-maybe-install-toolbar nil t)
+  (when (if (featurep 'xemacs) (featurep 'toolbar) tool-bar-mode)
+    (TeX-maybe-install-toolbar))
   (TeX-run-mode-hooks 'text-mode-hook 'TeX-mode-hook 'plain-TeX-mode-hook)
   (TeX-set-mode-name))