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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/05/01 20:20:20

Index: toolbar-x.el
===================================================================
RCS file: /cvsroot/auctex/auctex/toolbar-x.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- toolbar-x.el        8 Feb 2008 19:19:15 -0000       1.17
+++ toolbar-x.el        1 May 2008 20:20:19 -0000       1.18
@@ -1624,14 +1624,12 @@
     ;; - remove all specifiers for toolbars witout buttons
     (if default
        (progn
-         (if (memq (default-toolbar-position) '(top bottom))
-             (set-specifier default-toolbar-visible-p
-                            (not (not default)) locale)
-           (set-specifier default-toolbar-visible-p
-                          (not (not default)) locale))
+         ;; Only activate the tool bar if it is already visible.
+         (when toolbar-visible-p
+           (set-specifier default-toolbar-visible-p (not (not default)) locale)
          (if (memq (default-toolbar-position) '(top bottom))
              (set-specifier default-toolbar-height default-height locale)
-           (set-specifier default-toolbar-width default-width locale))
+             (set-specifier default-toolbar-width default-width locale)))
          (set-specifier default-toolbar default locale))
       (remove-specifier default-toolbar locale)
       (remove-specifier default-toolbar-visible-p locale)