ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org: Equip inline images with key-map `image-map'

This commit is contained in:
Marco Wahl 2019-08-26 22:53:24 +02:00
parent 6f5516953f
commit 3c24be0945
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -16653,6 +16653,8 @@ conventions:
type. In this case, that link must be a well-formed plain type. In this case, that link must be a well-formed plain
or angle link, i.e., it must have an explicit \"file\" type. or angle link, i.e., it must have an explicit \"file\" type.
Equip each image with the key-map `image-map'.
When optional argument INCLUDE-LINKED is non-nil, also links with When optional argument INCLUDE-LINKED is non-nil, also links with
a text description part will be inlined. This can be nice for a text description part will be inlined. This can be nice for
a quick look at those images, but it does not reflect what a quick look at those images, but it does not reflect what
@ -16771,6 +16773,7 @@ boundaries."
(overlay-put (overlay-put
ov 'modification-hooks ov 'modification-hooks
(list 'org-display-inline-remove-overlay)) (list 'org-display-inline-remove-overlay))
(overlay-put ov 'keymap image-map)
(push ov org-inline-image-overlays))))))))))))))) (push ov org-inline-image-overlays)))))))))))))))
(defun org-display-inline-remove-overlay (ov after _beg _end &optional _len) (defun org-display-inline-remove-overlay (ov after _beg _end &optional _len)