[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#14548: 24.3.1; [PATCH] image-dired-dired-toggle-marked-thumbs confli
From: |
Glenn Morris |
Subject: |
bug#14548: 24.3.1; [PATCH] image-dired-dired-toggle-marked-thumbs conflicts with other modes using overlays |
Date: |
Thu, 13 Jun 2013 01:11:10 -0400 |
User-agent: |
Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) |
Version: 24.4
Applied in this form.
> *** lisp/image-dired.el 2013-02-17 00:45:53 +0000
> --- lisp/image-dired.el 2013-06-11 19:00:18 +0000
> ***************
> *** 657,665 ****
> (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))
> (put-image thumb-file image-pos)
> (setq overlay
> (cl-loop for o in (overlays-in (point) (1+ (point)))
> --- 657,668 ----
> (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-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)))
bug#14548: 24.3.1; [PATCH] image-dired-dired-toggle-marked-thumbs conflicts with other modes using overlays,
Glenn Morris <=