mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

Prefer keymap inheritance in shr-image-map

Browse Source 
* lisp/net/shr.el (shr-image-map): Replace copy-keymap with
inheritance.
This commit is contained in:
Stefan Kangas 2022-07-07 17:25:39 +02:00
parent a371298d2a
commit cbfd959e26
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/net/shr.el
View File

@ -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"