Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make `menu-bar-select-buffer' obsolete

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-05-31 07:29:51 +02:00
parent 0dc195b4fe
commit 2009832a82
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/menu-bar.el
View file

@ -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))

9
lisp/msb.el
View file

@ -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))