Mercurial > emacs

comparison lisp/menu-bar.el @ 44907:5e84d4496348

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 27 Apr 2002 23:17:10 +0000
parents d172848983bf
children ab83b8e87ebd
comparison
equal deleted inserted replaced
44906:fe8ce22fc4a1 44907:5e84d4496348
1401 ;; lists for the menu-entries, because the low-level menu-code 1401 ;; lists for the menu-entries, because the low-level menu-code
1402 ;; modifies them. 1402 ;; modifies them.
1403 (unless menu-bar-buffers-menu-command-entries 1403 (unless menu-bar-buffers-menu-command-entries
1404 (setq menu-bar-buffers-menu-command-entries 1404 (setq menu-bar-buffers-menu-command-entries
1405 (list '(command-separator "--") 1405 (list '(command-separator "--")
1406 (list 'next-buffer
1407 'menu-item
1408 "Next Buffer"
1409 'next-buffer
1410 :help "Switch to the \"next\" buffer in a cyclic order")
1411 (list 'prev-buffer
1412 'menu-item
1413 "Previous Buffer"
1414 'prev-buffer
1415 :help "Switch to the \"previous\" buffer in a cyclic order")
1406 (list 'select-named-buffer 1416 (list 'select-named-buffer
1407 'menu-item 1417 'menu-item
1408 "Select Named Buffer..." 1418 "Select Named Buffer..."
1409 'switch-to-buffer 1419 'switch-to-buffer
1410 :help "Prompt for a buffer name, and select that buffer in the current window") 1420 :help "Prompt for a buffer name, and select that buffer in the current window")