* lisp/mouse.el (context-menu-buffers): New function (bug#50067).

(context-menu-functions): Add context-menu-buffers to the choice list.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9d86681384836cfc8b75e47893fab5d89cb24245..a490aac74455c715feb68497d4985b0052d19e9b 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -293,6 +293,7 @@ the same menu with changes such as added new menu items."
                   (function-item context-menu-global)
                   (function-item context-menu-local)
                   (function-item context-menu-minor)
+                  (function-item context-menu-buffers)
                   (function-item context-menu-vc)
                   (function-item context-menu-ffap)
                   (function :tag "Custom function")))
@@ -362,6 +363,17 @@ the same menu with changes such as added new menu items."
                   (cdr mode))))
   menu)
 
+(defun context-menu-buffers (menu)
+  "Submenus with buffers."
+  (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
+  (define-key-after menu [separator-buffers] menu-bar-separator)
+  (map-keymap (lambda (key binding)
+                (when (consp binding)
+                  (define-key-after menu (vector key)
+                    (copy-sequence binding))))
+              (mouse-buffer-menu-keymap))
+  menu)
+
 (defun context-menu-vc (menu)
   "Version Control menu."
   (define-key-after menu [separator-vc] menu-bar-separator)