(menu-bar-update-buffers): Add menu items Next Buffer and Previous Buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8428db7086f5f03d43c16654be77beee6154744..0c20df2ac02aedff39fc10c1358b3e51ceecaf30 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,12 @@
 
 2002-04-27  Richard M. Stallman  <rms@gnu.org>
 
+       * menu-bar.el (menu-bar-update-buffers): Add menu items
+       Next Buffer and Previous Buffer.
+
+       * simple.el (next-buffer, prev-buffer): New commands.
+       Bind C-x left and C-x right to them.
+
        * info.el (Info-header-line): Mark it as risky-local-variable.
 
        * subr.el (insert-for-yank): Replace `category' property

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 7316c60a90c8e71aea5d023b821abbeed2856369..48987e54b1fb89e30f1f11ac5ac51c89eac6c2a3 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1403,6 +1403,16 @@ Buffers menu is regenerated."
         (unless menu-bar-buffers-menu-command-entries
           (setq menu-bar-buffers-menu-command-entries
                 (list '(command-separator "--")
+                      (list 'next-buffer
+                            'menu-item
+                            "Next Buffer"
+                            'next-buffer
+                            :help "Switch to the \"next\" buffer in a cyclic order")
+                      (list 'prev-buffer
+                            'menu-item
+                            "Previous Buffer"
+                            'prev-buffer
+                            :help "Switch to the \"previous\" buffer in a cyclic order")
                       (list 'select-named-buffer
                             'menu-item
                             "Select Named Buffer..."