Mercurial > emacs
changeset 6948:54b252f540ea
(menu-bar-enable-clipboard): Construct new cons cells.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 18 Apr 1994 21:33:57 +0000 |
| parents | c5f990fad6bb |
| children | 319678b541eb |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Mon Apr 18 17:40:25 1994 +0000 +++ b/lisp/menu-bar.el Mon Apr 18 21:33:57 1994 +0000 @@ -118,9 +118,14 @@ (defun menu-bar-enable-clipboard () "Make the menu bar CUT, PASTE and COPY items use the clipboard." (interactive) - (define-key menu-bar-edit-menu [paste] '("Paste" . clipboard-yank)) - (define-key menu-bar-edit-menu [copy] '("Copy" . clipboard-kill-ring-save)) - (define-key menu-bar-edit-menu [cut] '("Cut" . clipboard-kill-region))) + ;; We can't use constant list structure here because it becomes pure, + ;; and because it gets modified with cache data. + (define-key menu-bar-edit-menu [paste] + (cons "Paste" 'clipboard-yank)) + (define-key menu-bar-edit-menu [copy] + (cons "Copy" 'clipboard-kill-ring-save)) + (define-key menu-bar-edit-menu [cut] + (cons "Cut" 'clipboard-kill-region))) ;; Sun expects these commands on these keys, so why not? (define-key global-map [f20] 'clipboard-kill-region)