[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7529ddef22 4/5: * lisp/net/browse-url.el (browse-url-button-map):
From: |
Stefan Kangas |
Subject: |
master 7529ddef22 4/5: * lisp/net/browse-url.el (browse-url-button-map): Prefer defvar-keymap. |
Date: |
Wed, 11 May 2022 10:12:12 -0400 (EDT) |
branch: master
commit 7529ddef22adc3c0aed1cc0bbe191ad992e37019
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/net/browse-url.el (browse-url-button-map): Prefer defvar-keymap.
---
lisp/net/browse-url.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index c563a27ac8..362dcf25b5 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1633,13 +1633,11 @@ from `browse-url-elinks-wrapper'."
;;; Adding buttons to a buffer to call `browse-url' when you hit them.
-(defvar browse-url-button-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\r" #'browse-url-button-open)
- (define-key map [mouse-2] #'browse-url-button-open)
- (define-key map "w" #'browse-url-button-copy)
- map)
- "The keymap used for `browse-url' buttons.")
+(defvar-keymap browse-url-button-map
+ :doc "The keymap used for `browse-url' buttons."
+ "RET" #'browse-url-button-open
+ "<mouse-2>" #'browse-url-button-open
+ "w" #'browse-url-button-copy)
(defface browse-url-button
'((t :inherit link))