diff options
author | Glenn Morris <rgm@gnu.org> | 2016-05-23 12:48:19 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2016-05-23 12:48:19 -0400 |
commit | 9c969e1f848e65b24e06d3919cde9a7ae668bfb8 (patch) | |
tree | 470fc660a17cfc332bb4bb250aecfea1bbe3c4f9 | |
parent | 918ef71538fd43049496e4370eba63e3096a4933 (diff) |
* lisp/image.el (image--get-image): Avoid requiring a library for
one trivial operation.
-rw-r--r-- | lisp/image.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/image.el b/lisp/image.el index e06cb6f473..e855d5e97d 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -973,13 +973,13 @@ default is 20%." 0.8))) (defun image--get-image () - (require 'seq) (let ((image (or (get-text-property (point) 'display) ;; `put-image' uses overlays, so find an image in ;; the overlays. - (seq-find (lambda (overlay) - (overlay-get overlay 'display)) - (overlays-at (point)))))) + (catch 'found + (dolist (o (overlays-at (point))) + (if (overlay-get o 'display) + (throw 'found o))))))) (when (or (not (consp image)) (not (eq (car image) 'image))) (error "No image under point")) |