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

Add modification hook for inline images 

This patch adds a modification hook to remove inline-image overlays if
the underlying text is modified.  This prevents blind editing of text
behind images.
This commit is contained in:
Martin Pohlack 2010-06-02 04:10:35 +00:00 committed by John Wiegley
parent becfc8979e
commit d18653505d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

@ -15943,8 +15943,17 @@ BEG and END default to the buffer boundaries."
(overlay-put ov 'display img)
(overlay-put ov 'face 'default)
(overlay-put ov 'org-image-overlay t)
(overlay-put ov 'modification-hooks
(list 'org-display-inline-modification-hook))
(push ov org-inline-image-overlays)))))))))
(defun org-display-inline-modification-hook (ov after beg end &optional len)
"Remove inline-display overlay if a corresponding region is modified."
(let ((inhibit-modification-hooks t))
(when (and ov after)
(delete ov org-inline-image-overlays)
(delete-overlay ov))))
(defun org-remove-inline-images ()
"Remove inline display of images."
(interactive)