# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766704837 0
# Node ID 54b252f540ea50a324ab6c6bb6f8282b5d4552ea
# Parent  c5f990fad6bb6c701b95c3961fc5bfb7d1d4e7d2
(menu-bar-enable-clipboard): Construct new cons cells.

diff -r c5f990fad6bb -r 54b252f540ea lisp/menu-bar.el
--- 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)