[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 08aa6a0: Improve and make use of 'image--get-image'
From: |
Charles A. Roelli |
Subject: |
[Emacs-diffs] master 08aa6a0: Improve and make use of 'image--get-image' |
Date: |
Sun, 11 Mar 2018 06:02:30 -0400 (EDT) |
branch: master
commit 08aa6a0533c44771fb8c43771d806d3bf6ac3776
Author: Charles A. Roelli <address@hidden>
Commit: Charles A. Roelli <address@hidden>
Improve and make use of 'image--get-image'
* lisp/image.el (image--get-image): Add documentation, and
check overlays for images too (since function 'put-image' from
the same library uses overlays to insert images).
(image-save): Use 'image--get-image'.
---
lisp/image.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/lisp/image.el b/lisp/image.el
index b69bf93..ab868f7 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -971,7 +971,8 @@ default is 20%."
0.8)))
(defun image--get-image ()
- (let ((image (get-text-property (point) 'display)))
+ "Return the image at point."
+ (let ((image (get-char-property (point) 'display)))
(unless (eq (car-safe image) 'image)
(error "No image under point"))
image))
@@ -1026,10 +1027,7 @@ default is 20%."
(defun image-save ()
"Save the image under point."
(interactive)
- (let ((image (get-text-property (point) 'display)))
- (when (or (not (consp image))
- (not (eq (car image) 'image)))
- (error "No image under point"))
+ (let ((image (image--get-image)))
(with-temp-buffer
(let ((file (plist-get (cdr image) :file)))
(if file
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 08aa6a0: Improve and make use of 'image--get-image',
Charles A. Roelli <=