Prefer keymap inheritance in shr-image-map

* lisp/net/shr.el (shr-image-map): Replace copy-keymap with
inheritance.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 63f313bbf44fccd1227f6f493d171294a46b71b8..c4f0d3b940439bef9bbc64148512a9ad70678621 100644 (file)
--- 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"