From 253e52478c355dc29052c0d21013b8d06b473880 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 30 May 2021 07:49:17 +0200 Subject: [PATCH] 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). --- lisp/menu-bar.el | 4 ---- lisp/msb.el | 4 ++++ 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index b71c6502077..945152c05da 100644 --- 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 1064f940905..47221d24d49 100644 --- 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)) -- 2.39.2