(menu-bar-enable-clipboard): Construct new cons cells.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 51686bfda3af23190cc577465cf78a96fbcbfe0c..063854e14674c1c7fbdafae5a321d1393354ceeb 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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)