emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 373618d3a8 4/4: Add new context menu functions to the context-men


From: Lars Ingebrigtsen
Subject: master 373618d3a8 4/4: Add new context menu functions to the context-menu-functions type
Date: Fri, 14 Jan 2022 03:53:03 -0500 (EST)

branch: master
commit 373618d3a8ea378710989032c575b3e0c80381b2
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add new context menu functions to the context-menu-functions type
    
    * lisp/mouse.el (context-menu-functions): Add new menu functions
    to the defcustom type list (bug#52973).
---
 lisp/hi-lock.el | 1 +
 lisp/man.el     | 1 +
 lisp/mouse.el   | 3 +++
 3 files changed, 5 insertions(+)

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index d7d98c78f8..b70d4a7569 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -862,6 +862,7 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock 
search."
     (mouse-set-point event)
     (highlight-symbol-at-point)))
 
+;;;###autoload
 (defun hi-lock-context-menu (menu click)
   "Populate MENU with a menu item to highlight symbol at CLICK."
   (save-excursion
diff --git a/lisp/man.el b/lisp/man.el
index d94cbf2015..d6146a2c4d 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1984,6 +1984,7 @@ Uses `Man-name-local-regexp'."
     (mouse-set-point e)
     (man (Man-default-man-entry))))
 
+;;;###autoload
 (defun Man-context-menu (menu click)
   "Populate MENU with commands that open a man page at point."
   (save-excursion
diff --git a/lisp/mouse.el b/lisp/mouse.el
index cfe212c3e9..46dd0397d7 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -298,6 +298,9 @@ and should return the same menu with changes such as added 
new menu items."
                   (function-item context-menu-buffers)
                   (function-item context-menu-vc)
                   (function-item context-menu-ffap)
+                  (function-item Man-context-menu)
+                  (function-item hi-lock-context-menu)
+                  (function-item context-menu-online-search)
                   (function :tag "Custom function")))
   :version "28.1")
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]