Mercurial > emacs
comparison lisp/menu-bar.el @ 99787:24e48b0174fa
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 |