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) |