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 7c72c67f1872dc0de4145d3fa8d5c735a1102ab4..5e4e9519275269f81711144d23ac890896017706 100644 (file)
--- 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."