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

2 files changed, 16 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8428db7086..0c20df2ac02 100644
--- 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 7316c60a90c..48987e54b1f 100644
--- 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..."