diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2012-04-10 04:34:57 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2012-04-10 04:34:57 +0200 |
| commit | bc72b5d984940dfebda3721cac0669d4780a2cdd (patch) | |
| tree | dc0acb30197fcacc3daeb5be5a677a0956cf8f32 /lisp/image.el | |
| parent | bd2dba5afe571a4b71f949bc3759fbced287508a (diff) | |
| download | emacs-bc72b5d984940dfebda3721cac0669d4780a2cdd.tar.gz | |
Make `put-image' return the overlay created
* image.el (put-image): Return the overlay created instead of the
optional input string. Note that this may break code
that is (for some reason or other) depending on `put-image'
returning the string.
Fixes: debbugs:7834
Diffstat (limited to 'lisp/image.el')
| -rw-r--r-- | lisp/image.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/image.el b/lisp/image.el index be1b1ef8f48..b094f2464ec 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -412,7 +412,8 @@ means display it in the right marginal area." (prop (if (null area) image (list (list 'margin area) image)))) (put-text-property 0 (length string) 'display prop string) (overlay-put overlay 'put-image t) - (overlay-put overlay 'before-string string)))) + (overlay-put overlay 'before-string string) + overlay))) ;;;###autoload |