martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make image-map bindings available on image links

Browse Source 
* lisp/net/shr.el (shr-map): Move shr-browse-image to "M-i".
* lisp/net/eww.el (eww-image-link-keymap): Use shr-image-map.
This commit is contained in:
Andreas Schwab
2023-04-15 12:35:24 +02:00
parent d9e96c029b
commit b7023da662
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/net/eww.el
View File

@@ -326,7 +326,7 @@ parameter, and should return the (possibly) transformed URL."
"<mouse-2>" #'eww-follow-link) "<mouse-2>" #'eww-follow-link)
(defvar-keymap eww-image-link-keymap (defvar-keymap eww-image-link-keymap
:parent shr-map :parent shr-image-map
"RET" #'eww-follow-link) "RET" #'eww-follow-link)
(defun eww-suggested-uris nil (defun eww-suggested-uris nil

2
lisp/net/shr.el
View File

@@ -276,7 +276,7 @@ and other things:
(defvar-keymap shr-map (defvar-keymap shr-map
"a" #'shr-show-alt-text "a" #'shr-show-alt-text
"i" #'shr-browse-image "M-i" #'shr-browse-image
"z" #'shr-zoom-image "z" #'shr-zoom-image
"TAB" #'shr-next-link "TAB" #'shr-next-link
"C-M-i" #'shr-previous-link "C-M-i" #'shr-previous-link