mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Jan Djärv 2010-11-21 19:29:08 +01:00
parent 4e2f7d2a68
commit 77af54d7c2
2 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

9
lisp/tool-bar.el
View File

@ -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))