Mercurial > emacs
comparison lisp/menu-bar.el @ 22651:175d00eed6c7
(menu-bar-edit-menu): Rename Paste most Recent
to simply Paste, and put it above Select and Paste.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Jun 1998 17:15:32 +0000 |
| parents | 51847ba069f8 |
| children | ca137a595698 |
comparison
equal
deleted
inserted
replaced
| 22650:2809ce5a1a0a | 22651:175d00eed6c7 |
|---|---|
| 267 (define-key menu-bar-edit-menu [separator-edit] | 267 (define-key menu-bar-edit-menu [separator-edit] |
| 268 '("--")) | 268 '("--")) |
| 269 | 269 |
| 270 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) | 270 (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) |
| 271 | 271 |
| 272 (define-key menu-bar-edit-menu [paste] '("Paste Most Recent" . yank)) | |
| 273 | |
| 274 (defvar yank-menu (cons "Select Yank" nil)) | 272 (defvar yank-menu (cons "Select Yank" nil)) |
| 275 (fset 'yank-menu (cons 'keymap yank-menu)) | 273 (fset 'yank-menu (cons 'keymap yank-menu)) |
| 276 (define-key menu-bar-edit-menu [select-paste] '("Select and Paste" . yank-menu)) | 274 (define-key menu-bar-edit-menu [select-paste] '("Select and Paste" . yank-menu)) |
| 275 (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) | |
| 277 (define-key menu-bar-edit-menu [copy] '("Copy" . menu-bar-kill-ring-save)) | 276 (define-key menu-bar-edit-menu [copy] '("Copy" . menu-bar-kill-ring-save)) |
| 278 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) | 277 (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) |
| 279 (define-key menu-bar-edit-menu [undo] '("Undo" . undo)) | 278 (define-key menu-bar-edit-menu [undo] '("Undo" . undo)) |
| 280 | 279 |
| 281 (defun menu-bar-kill-ring-save (beg end) | 280 (defun menu-bar-kill-ring-save (beg end) |