From 77af54d7c2d9e1ebcbbe1dffec4004b7079ce6bf Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= <jan.h.d@swipnet.se> Date: Sun, 21 Nov 2010 19:29:08 +0100 Subject: [PATCH] * tool-bar.el (tool-bar-setup): Remove save as, print and customize. --- lisp/ChangeLog | 4 ++++ lisp/tool-bar.el | 9 --------- 2 files changed, 4 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 39454198a64..8ac8e56f384 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 4b6fd970d8a..a3292c42046 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el @@ -271,11 +271,6 @@ holds a keymap." (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 @@ holds a keymap." ;; 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)) -- 2.39.5