master cbfd959e26 1/2: Prefer keymap inheritance in shr-image-map

[Stefan Kangas]

branch: master
commit cbfd959e26da13ae872ee11a1c8365abd6906d96
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Prefer keymap inheritance in shr-image-map
    
    * lisp/net/shr.el (shr-image-map): Replace copy-keymap with
    inheritance.
---
 lisp/net/shr.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 63f313bbf4..c4f0d3b940 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -290,11 +290,10 @@ and other things:
   "O" #'shr-save-contents
   "RET" #'shr-browse-url)
 
-(defvar shr-image-map
-  (let ((map (copy-keymap shr-map)))
-    (when (boundp 'image-map)
-      (set-keymap-parent map image-map))
-    map))
+(defvar-keymap shr-image-map
+  :parent (if (boundp 'image-map)
+              (make-composed-keymap shr-map image-map)
+            shr-map))
 
 ;; Public functions and commands.
 (declare-function libxml-parse-html-region "xml.c"