diff options
| author | Richard M. Stallman | 1994-04-18 21:33:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-18 21:33:57 +0000 |
| commit | 5754d7f2c6f11dd83fd065aa0afa2a9d782d7242 (patch) | |
| tree | 0aa3af51aa8e35bd85d8698092556eb6a5e84b3a | |
| parent | aafadd9f1795268ffbccdff265ac105c599fb402 (diff) | |
| download | emacs-5754d7f2c6f11dd83fd065aa0afa2a9d782d7242.tar.gz emacs-5754d7f2c6f11dd83fd065aa0afa2a9d782d7242.zip | |
(menu-bar-enable-clipboard): Construct new cons cells.
| -rw-r--r-- | lisp/menu-bar.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 51686bfda3a..063854e1467 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -118,9 +118,14 @@ | |||
| 118 | (defun menu-bar-enable-clipboard () | 118 | (defun menu-bar-enable-clipboard () |
| 119 | "Make the menu bar CUT, PASTE and COPY items use the clipboard." | 119 | "Make the menu bar CUT, PASTE and COPY items use the clipboard." |
| 120 | (interactive) | 120 | (interactive) |
| 121 | (define-key menu-bar-edit-menu [paste] '("Paste" . clipboard-yank)) | 121 | ;; We can't use constant list structure here because it becomes pure, |
| 122 | (define-key menu-bar-edit-menu [copy] '("Copy" . clipboard-kill-ring-save)) | 122 | ;; and because it gets modified with cache data. |
| 123 | (define-key menu-bar-edit-menu [cut] '("Cut" . clipboard-kill-region))) | 123 | (define-key menu-bar-edit-menu [paste] |
| 124 | (cons "Paste" 'clipboard-yank)) | ||
| 125 | (define-key menu-bar-edit-menu [copy] | ||
| 126 | (cons "Copy" 'clipboard-kill-ring-save)) | ||
| 127 | (define-key menu-bar-edit-menu [cut] | ||
| 128 | (cons "Cut" 'clipboard-kill-region))) | ||
| 124 | 129 | ||
| 125 | ;; Sun expects these commands on these keys, so why not? | 130 | ;; Sun expects these commands on these keys, so why not? |
| 126 | (define-key global-map [f20] 'clipboard-kill-region) | 131 | (define-key global-map [f20] 'clipboard-kill-region) |