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