comparison lisp/menu-bar.el @ 83112:30dd490f06f2

Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-230 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-231 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-232 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-233 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-234 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-235 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-236 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-237 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-238 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-239 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-240 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-152
author Karoly Lorentey <lorentey@elte.hu>
date Fri, 23 Apr 2004 14:44:11 +0000
parents ebcf4edbc7f0
children aa21fe382d2a
comparison
equal deleted inserted replaced
83111:fd147ed0d1b8 83112:30dd490f06f2
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