Commit 77af54d7 authored by Jan Djärv's avatar Jan Djärv
Browse files

* tool-bar.el (tool-bar-setup): Remove save as, print and customize.

parent 4e2f7d2a
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
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment