From cbfd959e26da13ae872ee11a1c8365abd6906d96 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 7 Jul 2022 17:25:39 +0200 Subject: [PATCH] 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 63f313bbf44..c4f0d3b9404 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" -- 2.39.5