diff options
| author | Stefan Kangas | 2022-05-10 23:20:52 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-05-11 16:12:01 +0200 |
| commit | 7529ddef22adc3c0aed1cc0bbe191ad992e37019 (patch) | |
| tree | 0e5c7d7c10553ed77bdc7c2241cd63634c488958 | |
| parent | 4299bf6da78f786a6db7880009d61addba55c71f (diff) | |
| download | emacs-7529ddef22adc3c0aed1cc0bbe191ad992e37019.tar.gz emacs-7529ddef22adc3c0aed1cc0bbe191ad992e37019.zip | |
* lisp/net/browse-url.el (browse-url-button-map): Prefer defvar-keymap.
| -rw-r--r-- | lisp/net/browse-url.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index c563a27ac85..362dcf25b55 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -1633,13 +1633,11 @@ from `browse-url-elinks-wrapper'." | |||
| 1633 | 1633 | ||
| 1634 | ;;; Adding buttons to a buffer to call `browse-url' when you hit them. | 1634 | ;;; Adding buttons to a buffer to call `browse-url' when you hit them. |
| 1635 | 1635 | ||
| 1636 | (defvar browse-url-button-map | 1636 | (defvar-keymap browse-url-button-map |
| 1637 | (let ((map (make-sparse-keymap))) | 1637 | :doc "The keymap used for `browse-url' buttons." |
| 1638 | (define-key map "\r" #'browse-url-button-open) | 1638 | "RET" #'browse-url-button-open |
| 1639 | (define-key map [mouse-2] #'browse-url-button-open) | 1639 | "<mouse-2>" #'browse-url-button-open |
| 1640 | (define-key map "w" #'browse-url-button-copy) | 1640 | "w" #'browse-url-button-copy) |
| 1641 | map) | ||
| 1642 | "The keymap used for `browse-url' buttons.") | ||
| 1643 | 1641 | ||
| 1644 | (defface browse-url-button | 1642 | (defface browse-url-button |
| 1645 | '((t :inherit link)) | 1643 | '((t :inherit link)) |