From 2009832a8229ac90c255bdb0f2dd333e8a2a48be Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 31 May 2021 07:29:51 +0200 Subject: 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. --- lisp/msb.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp/msb.el') diff --git a/lisp/msb.el b/lisp/msb.el index 1064f940905..1f05e9db589 100644 --- 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)) -- cgit v1.2.3