Move menu-bar-select-buffer to msb.el

* lisp/menu-bar.el (menu-bar-select-buffer): Move from
here... (bug#15651).
* lisp/msb.el (menu-bar-select-buffer): ... to here (which is the
only usage in-tree in Emacs).

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index b71c6502077ea2b04523e1ff23a474dff5993a52..945152c05da8eb20a138b2c08748afa883e66dea 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2240,10 +2240,6 @@ Buffers menu is regenerated."
 (defvar-local list-buffers-directory nil
   "String to display in buffer listings for buffers not visiting a file.")
 
-(defun menu-bar-select-buffer ()
-  (interactive)
-  (switch-to-buffer last-command-event))
-
 (defun menu-bar-select-frame (frame)
   (make-frame-visible frame)
   (raise-frame frame)

diff --git a/lisp/msb.el b/lisp/msb.el
index 1064f94090589b233f4d08ee1b56130c18126809..47221d24d49dc90659c492c051646c7f0945438e 100644 (file)
--- a/lisp/msb.el
+++ b/lisp/msb.el
@@ -1052,6 +1052,10 @@ variable `msb-menu-cond'."
       (msb--split-menus-2 list 0 nil)
     list))
 
+(defun menu-bar-select-buffer ()
+  (interactive)
+  (switch-to-buffer last-command-event))
+
 (defun msb--make-keymap-menu (raw-menu)
   (let ((end 'menu-bar-select-buffer)
        (mcount 0))