Mercurial > emacs
comparison lisp/menu-bar.el @ 39080:6b348f80eb27
(menu-bar-edit-menu) <yank-menu, yank>: Mention
"yank" in the help-echo text. Suggested by Pavel Janik <Pavel@Janik.cz>.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 02 Sep 2001 13:18:15 +0000 |
| parents | 766b9d2b8899 |
| children | bb0557fdcd9a |
comparison
equal
deleted
inserted
replaced
| 39079:fc69197cb76d | 39080:6b348f80eb27 |
|---|---|
| 392 (defvar yank-menu (cons "Select Yank" nil)) | 392 (defvar yank-menu (cons "Select Yank" nil)) |
| 393 (fset 'yank-menu (cons 'keymap yank-menu)) | 393 (fset 'yank-menu (cons 'keymap yank-menu)) |
| 394 (define-key menu-bar-edit-menu [select-paste] | 394 (define-key menu-bar-edit-menu [select-paste] |
| 395 '(menu-item "Select and Paste" yank-menu | 395 '(menu-item "Select and Paste" yank-menu |
| 396 :enable (and (cdr yank-menu) (not buffer-read-only)) | 396 :enable (and (cdr yank-menu) (not buffer-read-only)) |
| 397 :help "Paste text cut/copied earlier")) | 397 :help "Paste (yank) text cut or copied earlier")) |
| 398 (define-key menu-bar-edit-menu [paste] | 398 (define-key menu-bar-edit-menu [paste] |
| 399 '(menu-item "Paste" yank | 399 '(menu-item "Paste" yank |
| 400 :enable (and (x-selection-exists-p) (not buffer-read-only)) | 400 :enable (and (x-selection-exists-p) (not buffer-read-only)) |
| 401 :help "Paste text most recently cut/copied")) | 401 :help "Paste (yank) text most recently cut/copied")) |
| 402 (define-key menu-bar-edit-menu [copy] | 402 (define-key menu-bar-edit-menu [copy] |
| 403 '(menu-item "Copy" menu-bar-kill-ring-save | 403 '(menu-item "Copy" menu-bar-kill-ring-save |
| 404 :enable mark-active | 404 :enable mark-active |
| 405 :help "Copy text in region between mark and current position")) | 405 :help "Copy text in region between mark and current position")) |
| 406 (define-key menu-bar-edit-menu [cut] | 406 (define-key menu-bar-edit-menu [cut] |