Mercurial > emacs

comparison lisp/toolbar/tool-bar.el @ 55345:6dd3315d02d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* toolbar/tool-bar.el (tool-bar-setup): Use lookup-key for cut/copy/paste in case menu-bar-enable-clipboard is in effect.
author Jan Djärv <jan.h.d@swipnet.se>
date Mon, 03 May 2004 21:48:21 +0000
parents 695cf19ef79e
children 49f0c8a3942a
comparison
equal deleted inserted replaced
55344:f2f742f020fb 55345:6dd3315d02d4
237 (get major-mode 237 (get major-mode
238 'mode-class))))) 238 'mode-class)))))
239 (tool-bar-add-item-from-menu 'undo "undo" nil 239 (tool-bar-add-item-from-menu 'undo "undo" nil
240 :visible '(not (eq 'special (get major-mode 240 :visible '(not (eq 'special (get major-mode
241 'mode-class)))) 241 'mode-class))))
242 (tool-bar-add-item-from-menu 'kill-region "cut" nil 242 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [cut])
243 "cut" nil
243 :visible '(not (eq 'special (get major-mode 244 :visible '(not (eq 'special (get major-mode
244 'mode-class)))) 245 'mode-class))))
245 (tool-bar-add-item-from-menu 'menu-bar-kill-ring-save "copy") 246 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [copy])
246 (tool-bar-add-item-from-menu 'yank "paste" nil 247 "copy")
248 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [paste])
249 "paste" nil
247 :visible '(not (eq 'special (get major-mode 250 :visible '(not (eq 'special (get major-mode
248 'mode-class)))) 251 'mode-class))))
249 (tool-bar-add-item-from-menu 'nonincremental-search-forward "search") 252 (tool-bar-add-item-from-menu 'nonincremental-search-forward "search")
250 ;;(tool-bar-add-item-from-menu 'ispell-buffer "spell") 253 ;;(tool-bar-add-item-from-menu 'ispell-buffer "spell")
251 254