Mercurial > emacs
changeset 111666:f57fcf34eb00
* tool-bar.el (tool-bar-setup): Remove save as, print and customize.
| author | Jan D. <jan.h.d@swipnet.se> |
|---|---|
| date | Sun, 21 Nov 2010 19:29:08 +0100 |
| parents | 946fe738ec2b |
| children | daaca509a6d8 |
| files | lisp/ChangeLog lisp/tool-bar.el |
| diffstat | 2 files changed, 4 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Nov 21 12:12:44 2010 -0500 +++ b/lisp/ChangeLog Sun Nov 21 19:29:08 2010 +0100 @@ -1,3 +1,7 @@ +2010-11-21 Jan Djärv <jan.h.d@swipnet.se> + + * tool-bar.el (tool-bar-setup): Remove save as, print and customize. + 2010-11-21 Deniz Dogan <deniz.a.m.dogan@gmail.com> * progmodes/python.el (python-font-lock-keywords): Highlight
--- a/lisp/tool-bar.el Sun Nov 21 12:12:44 2010 -0500 +++ b/lisp/tool-bar.el Sun Nov 21 19:29:08 2010 +0100 @@ -271,11 +271,6 @@ (not (eq 'special (get major-mode 'mode-class))))) - (tool-bar-add-item-from-menu 'write-file "saveas" nil :vert-only t - :visible '(or buffer-file-name - (not (eq 'special - (get major-mode - 'mode-class))))) (tool-bar-add-item-from-menu 'undo "undo" nil :vert-only t :visible '(not (eq 'special (get major-mode 'mode-class)))) @@ -297,16 +292,12 @@ ;; than a lambda for Read Mail. ;;(tool-bar-add-item-from-menu 'compose-mail "mail/compose") - (tool-bar-add-item-from-menu 'print-buffer "print" nil :label "Print") ;; tool-bar-add-item-from-menu itself operates on ;; (default-value 'tool-bar-map), but when we don't use that function, ;; we must explicitly operate on the default value. (let ((tool-bar-map (default-value 'tool-bar-map))) - (tool-bar-add-item "preferences" 'customize 'customize - :help "Edit preferences (customize)") - (tool-bar-add-item "help" (lambda () (interactive) (popup-menu menu-bar-help-menu))