From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 19 Dec 2024 03:50:32 +0000 (+0100)
Subject: Prefer defvar-keymap in goto-addr.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b1b44efca48dd4bb086f92435510197670f6956;p=emacs.git

Prefer defvar-keymap in goto-addr.el

* lisp/net/goto-addr.el (goto-address-highlight-keymap): Convert to
defvar-keymap.

(cherry picked from commit ba0c49ed662e1038cfdb34558c775cbcc4f663a7)
---

diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index 7c72c67f187..5e4e9519275 100644
--- a/lisp/net/goto-addr.el
+++ b/lisp/net/goto-addr.el
@@ -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."