Make `menu-bar-select-buffer' obsolete

* lisp/menu-bar.el (menu-bar-select-buffer): Make obsolete (bug#15651).

* lisp/msb.el (msb--select-buffer): Move function here and rename.
(msb--make-keymap-menu): Use it.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index b71c6502077ea2b04523e1ff23a474dff5993a52..739e751d8a40610446eb73f90ba9071f120c4f56 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2241,6 +2241,7 @@ Buffers menu is regenerated."
   "String to display in buffer listings for buffers not visiting a file.")
 
 (defun menu-bar-select-buffer ()
+  (declare (obsolete nil "28.1"))
   (interactive)
   (switch-to-buffer last-command-event))
 

diff --git a/lisp/msb.el b/lisp/msb.el
index 1064f94090589b233f4d08ee1b56130c18126809..1f05e9db5893f449db228dc668ca8d0842988189 100644 (file)
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -1052,9 +1052,12 @@ variable `msb-menu-cond'."
       (msb--split-menus-2 list 0 nil)
     list))
 
+(defun msb--select-buffer ()
+  (interactive)
+  (switch-to-buffer last-command-event))
+
 (defun msb--make-keymap-menu (raw-menu)
-  (let ((end 'menu-bar-select-buffer)
-       (mcount 0))
+  (let ((mcount 0))
     (mapcar
      (lambda (sub-menu)
        (cond
@@ -1063,7 +1066,7 @@ variable `msb-menu-cond'."
        (t
         (let ((buffers (mapcar (lambda (item)
                                  (cons (buffer-name (cdr item))
-                                       (cons (car item) end)))
+                                       (cons (car item) 'msb--select-buffer)))
                                (cdr sub-menu))))
           (nconc (list (cl-incf mcount) (car sub-menu)
                        'keymap (car sub-menu))