master dcf84bc: * lisp/mouse.el (context-menu-toolbar): New function.

[Juri Linkov]

branch: master
commit dcf84bce2500ad2c632ae1d19d6b93324f55e25e
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/mouse.el (context-menu-toolbar): New function.
    
    (context-menu-functions): Add context-menu-toolbar to choice.
    (context-menu-region): Bind "Paste" to mouse-yank-at-click
    instead of mouse-yank-primary.
    https://lists.gnu.org/archive/html/emacs-devel/2021-08/msg00735.html
---
 lisp/mouse.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 6332d9f..28996e3 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -289,6 +289,7 @@ the same menu with changes such as added new menu items."
   :type '(repeat
           (choice (function-item context-menu-undo)
                   (function-item context-menu-region)
+                  (function-item context-menu-toolbar)
                   (function-item context-menu-global)
                   (function-item context-menu-local)
                   (function-item context-menu-minor)
@@ -313,6 +314,17 @@ the same menu with changes such as added new menu items."
       (setq menu (funcall context-menu-filter-function menu)))
     menu))
 
+(defun context-menu-toolbar (menu)
+  "Tool bar menu items."
+  (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
+  (define-key-after menu [separator-toolbar] menu-bar-separator)
+  (map-keymap (lambda (key binding)
+                (when (consp binding)
+                  (define-key-after menu (vector key)
+                    (copy-sequence binding))))
+              (lookup-key global-map [tool-bar]))
+  menu)
+
 (defun context-menu-global (menu)
   "Global submenus."
   (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
@@ -396,7 +408,7 @@ the same menu with changes such as added new menu items."
                            "\\[ns-copy-including-secondary]"
                          "\\[kill-ring-save]")))
   (define-key-after menu [paste]
-    `(menu-item "Paste" mouse-yank-primary
+    `(menu-item "Paste" mouse-yank-at-click
                 :visible (funcall
                           ',(lambda ()
                               (and (or