Mercurial > emacs

comparison lisp/menu-bar.el @ 55011:ebcf4edbc7f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-update-buffers): Call copy-sequence so "Buffers" won't be pure.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Apr 2004 20:54:00 +0000
parents c70762aa82aa
children aa21fe382d2a
comparison
equal deleted inserted replaced
55010:734c2a20e3ec 55011:ebcf4edbc7f0
1555 (setq buffers-menu 1555 (setq buffers-menu
1556 (nconc buffers-menu menu-bar-buffers-menu-command-entries)) 1556 (nconc buffers-menu menu-bar-buffers-menu-command-entries))
1557 1557
1558 (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu))) 1558 (setq buffers-menu (cons 'keymap (cons "Select Buffer" buffers-menu)))
1559 (define-key (current-global-map) [menu-bar buffer] 1559 (define-key (current-global-map) [menu-bar buffer]
1560 (cons "Buffers" buffers-menu))))) 1560 ;; Call copy-sequence so the string is not pure.
1561 (cons (copy-sequence "Buffers") buffers-menu)))))
1561 1562
1562 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers) 1563 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)
1563 1564
1564 (menu-bar-update-buffers) 1565 (menu-bar-update-buffers)
1565 1566