Mercurial > emacs

comparison lisp/tool-bar.el @ 112025:41f10e4816d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix 2010-12-20 change to tool-bar.el. * tool-bar.el (tool-bar-setup): Remove :enable conditions, which are handled by the menu-bar entries. As before, don't use :visibile to avoid changing the tool-bar.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 28 Dec 2010 17:39:25 +0800
parents bc8dc4ac1e28
children 882d6cbb91a2
comparison
equal deleted inserted replaced
112024:68a3b6b312ee 112025:41f10e4816d0
250 (tool-bar-add-item-from-menu 'menu-find-file-existing "open" nil 250 (tool-bar-add-item-from-menu 'menu-find-file-existing "open" nil
251 :label "Open" :vert-only t) 251 :label "Open" :vert-only t)
252 (tool-bar-add-item-from-menu 'dired "diropen" nil :vert-only t) 252 (tool-bar-add-item-from-menu 'dired "diropen" nil :vert-only t)
253 (tool-bar-add-item-from-menu 'kill-this-buffer "close" nil :vert-only t) 253 (tool-bar-add-item-from-menu 'kill-this-buffer "close" nil :vert-only t)
254 (tool-bar-add-item-from-menu 'save-buffer "save" nil 254 (tool-bar-add-item-from-menu 'save-buffer "save" nil
255 :label "Save" 255 :label "Save")
256 :enable '(or buffer-file-name
257 (not (eq 'special
258 (get major-mode
259 'mode-class)))))
260 (define-key-after (default-value 'tool-bar-map) [separator-1] menu-bar-separator) 256 (define-key-after (default-value 'tool-bar-map) [separator-1] menu-bar-separator)
261 (tool-bar-add-item-from-menu 'undo "undo" nil :vert-only t 257 (tool-bar-add-item-from-menu 'undo "undo" nil :vert-only t)
262 :enable '(not (eq 'special (get major-mode
263 'mode-class))))
264 (define-key-after (default-value 'tool-bar-map) [separator-2] menu-bar-separator) 258 (define-key-after (default-value 'tool-bar-map) [separator-2] menu-bar-separator)
265 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [cut]) 259 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [cut])
266 "cut" nil :vert-only t 260 "cut" nil :vert-only t)
267 :enable '(not (eq 'special (get major-mode
268 'mode-class))))
269 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [copy]) 261 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [copy])
270 "copy" nil :vert-only t) 262 "copy" nil :vert-only t)
271 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [paste]) 263 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [paste])
272 "paste" nil :vert-only t 264 "paste" nil :vert-only t)
273 :enable '(not (eq 'special (get major-mode
274 'mode-class))))
275 (define-key-after (default-value 'tool-bar-map) [separator-3] menu-bar-separator) 265 (define-key-after (default-value 'tool-bar-map) [separator-3] menu-bar-separator)
276 (tool-bar-add-item-from-menu 'nonincremental-search-forward "search" 266 (tool-bar-add-item-from-menu 'nonincremental-search-forward "search"
277 nil :label "Search") 267 nil :label "Search")
278 ;;(tool-bar-add-item-from-menu 'ispell-buffer "spell") 268 ;;(tool-bar-add-item-from-menu 'ispell-buffer "spell")
279 269