From 494ccec94ede12a56c9fb2393a3c75260b8638a7 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 16 Oct 2022 13:53:37 +0200 Subject: Prefer defvar-keymap in ansi-osc.el * lisp/ansi-osc.el (ansi-osc-hyperlink-map): Prefer defvar-keymap. --- lisp/ansi-osc.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'lisp/ansi-osc.el') 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 + "" #'browse-url-button-open + "" 'mouse-face) (define-button-type 'ansi-osc-hyperlink 'keymap ansi-osc-hyperlink-map -- cgit v1.2.3