# HG changeset patch
# User Per Abrahamsen <abraham@dina.kvl.dk>
# Date 1014284379 0
# Node ID 2fca4318df9af6468e069db2895ded199c5064b8
# Parent  e3bdc12b3e47af288c327ed2fadf89f1ca1b63f5
2002-02-21  Per Abrahamsen  <abraham@dina.kvl.dk>

      * toolbar/tool-bar.el (tool-bar-mode): Revert the :init-value to
      nil, and then explicitly set the standard-value to t.

diff -r e3bdc12b3e47 -r 2fca4318df9a lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Feb 21 01:42:22 2002 +0000
+++ b/lisp/ChangeLog	Thu Feb 21 09:39:39 2002 +0000
@@ -1,3 +1,8 @@
+2002-02-21  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* toolbar/tool-bar.el (tool-bar-mode): Revert the :init-value to
+	nil, and then explicitly set the standard-value to t.
+
 2002-02-20  Sam Steingold  <sds@gnu.org>
 
 	* textmodes/flyspell.el (flyspell-mode): Autoload the variable
diff -r e3bdc12b3e47 -r 2fca4318df9a lisp/toolbar/tool-bar.el
--- a/lisp/toolbar/tool-bar.el	Thu Feb 21 01:42:22 2002 +0000
+++ b/lisp/toolbar/tool-bar.el	Thu Feb 21 09:39:39 2002 +0000
@@ -47,7 +47,7 @@
 
 See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
 conveniently adding tool bar items."
-  :init-value t
+  :init-value nil
   :global t
   :group 'mouse
   :group 'frames
@@ -68,6 +68,17 @@
 		(= 1 (length (default-value 'tool-bar-map)))) ; not yet setup
 	   (tool-bar-setup))))
 
+;;;###autoload
+;; We want to pretend the toolbar by standard is on, as this will make
+;; customize consider disabling the toolbar a customization, and save
+;; that.  We could do this for real by setting :init-value above, but
+;; that would turn on the toolbar in MS Windows where it is currently
+;; useless, and it would overwrite disabling the tool bar from X
+;; resources.  If anyone want to implement this in a cleaner way,
+;; please do so.
+;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-21.
+(put 'tool-bar-mode 'standard-value '(t))
+
 (defvar tool-bar-map (make-sparse-keymap)
   "Keymap for the tool bar.
 Define this locally to override the global tool bar.")