mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

image-dired-dired-toggle-marked-thumbs tiny change

Browse Source 
* lisp/image-dired.el (image-dired-dired-toggle-marked-thumbs):
Only remove a `thumb-file' overlay.

Fixes: debbugs:14548
This commit is contained in:
E Sabof 2013-06-12 22:10:48 -07:00 committed by Glenn Morris
parent 65e704b9ab
commit 1261d2daee
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2013-06-13 E Sabof <esabof@gmail.com> (tiny change)
* image-dired.el (image-dired-dired-toggle-marked-thumbs):
Only remove a `thumb-file' overlay. (Bug#14548)
2013-06-12 Grégoire Jadi <daimrod@gmail.com>
* mail/reporter.el (reporter-submit-bug-report):

12
lisp/image-dired.el
View File

@ -156,8 +156,9 @@
(require 'format-spec)
(require 'widget)
(require 'cl-lib)
(eval-when-compile
(require 'cl-lib)
(require 'wid-edit))
(defgroup image-dired nil
@ -657,9 +658,12 @@ previous -ARG, if ARG<0) files."
(string-match-p (image-file-name-regexp) image-file))
(setq thumb-file (image-dired-get-thumbnail-image image-file))
;; If image is not already added, then add it.
(let ((cur-ov (overlays-in (point) (1+ (point)))))
(if cur-ov
(delete-overlay (car cur-ov))
(let* ((cur-ovs (overlays-in (point) (1+ (point))))
(thumb-ov (car (cl-remove-if-not
(lambda (ov) (overlay-get ov 'thumb-file))
cur-ovs))))
(if thumb-ov
(delete-overlay thumb-ov)
(put-image thumb-file image-pos)
(setq overlay
(cl-loop for o in (overlays-in (point) (1+ (point)))