diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-04 10:15:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-04 10:15:11 +0200 |
| commit | 859190f03e87601324d394178d90e6dea5cd4002 (patch) | |
| tree | f188efd960ea8b26c6d23cb58c3dabe4381fe88c /lisp/net/shr.el | |
| parent | 192f9357f25b5b714984e5f60df2eba9dcac4120 (diff) | |
| download | emacs-859190f03e87601324d394178d90e6dea5cd4002.tar.gz emacs-859190f03e87601324d394178d90e6dea5cd4002.tar.bz2 emacs-859190f03e87601324d394178d90e6dea5cd4002.zip | |
Convert some keymaps to defvar-keymap
* lisp/simple.el (special-mode-map):
* lisp/net/shr.el (shr-map):
* lisp/net/eww.el (eww-link-keymap):
(eww-mode-map):
(eww-submit-map):
(eww-bookmark-mode-map):
(eww-history-mode-map):
(eww-buffers-mode-map):
* lisp/gnus/message.el (message-mode-map): Use defvar-keymap.
* lisp/gnus/gnus-eform.el (gnus-edit-form-mode-map):
* lisp/gnus/gnus-dired.el (gnus-dired-mode-map):
* lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-mode-map): Use
defvar-keymap.
* lisp/gnus/gnus-group.el (gnus-group-mode-map): Use define-keymap.
* lisp/gnus/gnus-html.el (gnus-html-image-map): Use defvar-keymap.
* lisp/gnus/gnus.el: Autoload gnus-score-edit-all-score.
Diffstat (limited to 'lisp/net/shr.el')
| -rw-r--r-- | lisp/net/shr.el | 32 |
1 files changed, 15 insertions, 17 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index a8e15c1e0ae..8f11b140fbe 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -247,23 +247,21 @@ and other things: (defvar shr-target-id nil "Target fragment identifier anchor.") -(defvar shr-map - (let ((map (make-sparse-keymap))) - (define-key map "a" #'shr-show-alt-text) - (define-key map "i" #'shr-browse-image) - (define-key map "z" #'shr-zoom-image) - (define-key map [?\t] #'shr-next-link) - (define-key map [?\M-\t] #'shr-previous-link) - (define-key map [follow-link] 'mouse-face) - (define-key map [mouse-2] #'shr-browse-url) - (define-key map [C-down-mouse-1] #'shr-mouse-browse-url-new-window) - (define-key map "I" #'shr-insert-image) - (define-key map "w" #'shr-maybe-probe-and-copy-url) - (define-key map "u" #'shr-maybe-probe-and-copy-url) - (define-key map "v" #'shr-browse-url) - (define-key map "O" #'shr-save-contents) - (define-key map "\r" #'shr-browse-url) - map)) +(defvar-keymap shr-map () + "a" #'shr-show-alt-text + "i" #'shr-browse-image + "z" #'shr-zoom-image + [?\t] #'shr-next-link + [?\M-\t] #'shr-previous-link + [follow-link] 'mouse-face + [mouse-2] #'shr-browse-url + [C-down-mouse-1] #'shr-mouse-browse-url-new-window + "I" #'shr-insert-image + "w" #'shr-maybe-probe-and-copy-url + "u" #'shr-maybe-probe-and-copy-url + "v" #'shr-browse-url + "O" #'shr-save-contents + "\r" #'shr-browse-url) (defvar shr-image-map (let ((map (copy-keymap shr-map))) |