[Emacs-diffs] Changes to emacs/lisp/toolbar/tool-bar.el

[Per Abrahamsen]

Index: emacs/lisp/toolbar/tool-bar.el
diff -c emacs/lisp/toolbar/tool-bar.el:1.25 emacs/lisp/toolbar/tool-bar.el:1.26
*** emacs/lisp/toolbar/tool-bar.el:1.25 Tue Feb 19 05:30:30 2002
--- emacs/lisp/toolbar/tool-bar.el      Thu Feb 21 04:39:39 2002
***************
*** 47,53 ****
  
  See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
  conveniently adding tool bar items."
!   :init-value t
    :global t
    :group 'mouse
    :group 'frames
--- 47,53 ----
  
  See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
  conveniently adding tool bar items."
!   :init-value nil
    :global t
    :group 'mouse
    :group 'frames
***************
*** 67,72 ****
--- 67,83 ----
                (display-graphic-p)
                (= 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 <address@hidden> 2002-02-21.
+ (put 'tool-bar-mode 'standard-value '(t))
  
  (defvar tool-bar-map (make-sparse-keymap)
    "Keymap for the tool bar.