# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1082494440 0
# Node ID ebcf4edbc7f0ce78564ce2574a105fcb2d023959
# Parent  734c2a20e3ec2ebd597bd086dcc02a985592f02d
(menu-bar-update-buffers): Call copy-sequence so "Buffers" won't be pure.

diff -r 734c2a20e3ec -r ebcf4edbc7f0 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Apr 20 20:53:01 2004 +0000
+++ b/lisp/menu-bar.el	Tue Apr 20 20:54:00 2004 +0000
@@ -1557,7 +1557,8 @@
 
 	 (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu)))
 	 (define-key (current-global-map) [menu-bar buffer]
-	   (cons "Buffers" buffers-menu)))))
+	   ;; Call copy-sequence so the string is not pure.
+	   (cons (copy-sequence "Buffers") buffers-menu)))))
 
 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)