procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefer defvar-keymap in goto-addr.el

Browse source 
* lisp/net/goto-addr.el (goto-address-highlight-keymap): Convert to
defvar-keymap.
This commit is contained in:
Stefan Kangas 2024-12-19 04:50:32 +01:00
parent e3d1bab98d
commit ba0c49ed66
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/goto-addr.el
View file

@ -117,12 +117,10 @@ will have no effect.")
thing-at-point-url-path-regexp)
"A regular expression probably matching a URL.")
(defvar goto-address-highlight-keymap
(let ((m (make-sparse-keymap)))
(define-key m (kbd "<mouse-2>") #'goto-address-at-point)
(define-key m (kbd "C-c RET") #'goto-address-at-point)
m)
"Keymap to hold goto-addr's mouse key defs under highlighted URLs.")
(defvar-keymap goto-address-highlight-keymap
:doc "Keymap to hold goto-addr's mouse key defs under highlighted URLs."
"<mouse-2>" #'goto-address-at-point
"C-c RET" #'goto-address-at-point)
(defun goto-address-context-menu (menu click)
"Populate MENU with `goto-address' commands at CLICK."