[Emacs-diffs] /srv/bzr/emacs/trunk r102466: * tool-bar.el (tool-bar-setup): Remove save as, print and customize.

[Jan D.]

------------------------------------------------------------
revno: 102466
committer: Jan D. <address@hidden>
branch nick: trunk
timestamp: Sun 2010-11-21 19:29:08 +0100
message:
  * tool-bar.el (tool-bar-setup): Remove save as, print and customize.
modified:
  lisp/ChangeLog
  lisp/tool-bar.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-21 17:12:44 +0000
+++ b/lisp/ChangeLog    2010-11-21 18:29:08 +0000
@@ -1,3 +1,7 @@
+2010-11-21  Jan Djärv  <address@hidden>
+
+       * tool-bar.el (tool-bar-setup): Remove save as, print and customize.
+
 2010-11-21  Deniz Dogan  <address@hidden>
 
        * progmodes/python.el (python-font-lock-keywords): Highlight

=== modified file 'lisp/tool-bar.el'
--- a/lisp/tool-bar.el  2010-11-20 14:51:25 +0000
+++ b/lisp/tool-bar.el  2010-11-21 18:29:08 +0000
@@ -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))