From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 16 Oct 2022 11:53:37 +0000 (+0200)
Subject: Prefer defvar-keymap in ansi-osc.el
X-Git-Tag: emacs-29.0.90~1616^2~585
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=494ccec94ede12a56c9fb2393a3c75260b8638a7;p=emacs.git

Prefer defvar-keymap in ansi-osc.el

* lisp/ansi-osc.el (ansi-osc-hyperlink-map): Prefer defvar-keymap.
---

diff --git a/lisp/ansi-osc.el b/lisp/ansi-osc.el
index 34154998cdf..499c9dce73a 100644
--- a/lisp/ansi-osc.el
+++ b/lisp/ansi-osc.el
@@ -125,13 +125,11 @@ and `shell-dirtrack-mode'."
 
 ;; Hyperlink handling (OSC 8)
 
-(defvar ansi-osc-hyperlink-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map "\C-c\r" 'browse-url-button-open)
-    (define-key map [mouse-2] 'browse-url-button-open)
-    (define-key map [follow-link] 'mouse-face)
-    map)
-  "Keymap used by OSC 8 hyperlink buttons.")
+(defvar-keymap ansi-osc-hyperlink-map
+  :doc "Keymap used by OSC 8 hyperlink buttons."
+  "C-c RET"       #'browse-url-button-open
+  "<mouse-2>"     #'browse-url-button-open
+  "<follow-link>" 'mouse-face)
 
 (define-button-type 'ansi-osc-hyperlink
   'keymap ansi-osc-hyperlink-map