diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-31 07:29:51 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-31 07:29:51 +0200 |
| commit | 2009832a8229ac90c255bdb0f2dd333e8a2a48be (patch) | |
| tree | 47fa9757d309a9f12ee3e9c22a26381ffb46a592 /lisp/msb.el | |
| parent | 0dc195b4fe6a187df0763998062ecfaed7e3b61c (diff) | |
| download | emacs-2009832a8229ac90c255bdb0f2dd333e8a2a48be.tar.gz emacs-2009832a8229ac90c255bdb0f2dd333e8a2a48be.tar.bz2 emacs-2009832a8229ac90c255bdb0f2dd333e8a2a48be.zip | |
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.
Diffstat (limited to 'lisp/msb.el')
| -rw-r--r-- | lisp/msb.el | 9 |
1 files changed, 6 insertions, 3 deletions
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)) |