[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/toolbar/tool-bar.el
From: |
Per Abrahamsen |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/toolbar/tool-bar.el |
Date: |
Thu, 21 Feb 2002 04:39:40 -0500 |
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.