Make image-map bindings available on image links

* 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.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index eac47e592b2de79c01ff49113bd1710f10babd6b..d2b4575f963a8f4cb8474b37f96e26b3606fed46 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -326,7 +326,7 @@ parameter, and should return the (possibly) transformed URL."
   "<mouse-2>" #'eww-follow-link)
 
 (defvar-keymap eww-image-link-keymap
-  :parent shr-map
+  :parent shr-image-map
   "RET" #'eww-follow-link)
 
 (defun eww-suggested-uris nil

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 9c2ae98d77e2289f9d014b18490a9e0eacc5d94f..4e44dfbef0304e42840e3eb6b532972d0b3ab4d2 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -276,7 +276,7 @@ and other things:
 
 (defvar-keymap shr-map
   "a" #'shr-show-alt-text
-  "i" #'shr-browse-image
+  "M-i" #'shr-browse-image
   "z" #'shr-zoom-image
   "TAB" #'shr-next-link
   "C-M-i" #'shr-previous-link