Don't use image-map if it isn't defined
* lisp/net/shr.el (shr-image-map): Only use image-map as a parent if it's defined (bug#22614).
This commit is contained in:
parent
980836d80e
commit
395f2ad689
1 changed files with 2 additions and 3 deletions
|
@ -189,11 +189,10 @@ and other things:
|
|||
(define-key map "\r" 'shr-browse-url)
|
||||
map))
|
||||
|
||||
(defvar image-map nil) ;in case image.el is not pre-loaded
|
||||
|
||||
(defvar shr-image-map
|
||||
(let ((map (copy-keymap shr-map)))
|
||||
(set-keymap-parent map image-map)
|
||||
(when (boundp 'image-map)
|
||||
(set-keymap-parent map image-map))
|
||||
map))
|
||||
|
||||
;; Public functions and commands.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue