Mercurial > emacs

comparison lisp/menu-bar.el @ 99787:24e48b0174fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweak previous change.
author Glenn Morris <rgm@gnu.org>
date Sat, 22 Nov 2008 03:39:53 +0000
parents 4f6e2e2864be
children d42aff5ca541
comparison
equal deleted inserted replaced
99786:8ed501c82dcd 99787:24e48b0174fa
450 :help 450 :help
451 "Delete the text in region between mark and current position")) 451 "Delete the text in region between mark and current position"))
452 (defvar yank-menu (cons "Select Yank" nil)) 452 (defvar yank-menu (cons "Select Yank" nil))
453 (fset 'yank-menu (cons 'keymap yank-menu)) 453 (fset 'yank-menu (cons 'keymap yank-menu))
454 (define-key menu-bar-edit-menu [paste-from-menu] 454 (define-key menu-bar-edit-menu [paste-from-menu]
455 '(menu-item "Paste From Kill Menu" yank-menu 455 '(menu-item "Paste from Kill Menu" yank-menu
456 :enable (and (cdr yank-menu) (not buffer-read-only)) 456 :enable (and (cdr yank-menu) (not buffer-read-only))
457 :help "Choose a string from the kill ring and paste it")) 457 :help "Choose a string from the kill ring and paste it"))
458 (define-key menu-bar-edit-menu [paste] 458 (define-key menu-bar-edit-menu [paste]
459 '(menu-item "Paste" yank 459 '(menu-item "Paste" yank
460 :enable (and 460 :enable (and