0001-Delete-even-if-the-first-member-of-overlays-is-IT.patch

From 388bdc585dc6fd64d2be2c9fe02a47963aad00dd Mon Sep 17 00:00:00 2001
From: Takeshi Banse <[email protected]>
Date: Sat, 27 Feb 2010 02:25:33 +0900
Subject: Delete even if the first member of overlays is IT.

---
 /anything.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/anything.el b/anything.el
index 7824cab..302757a 100644
--- a/anything.el
+++ b/anything.el
@@ -3612,7 +3612,8 @@ (defun anything-toggle-visible-mark ()
                    (cons source selection)
                    anything-marked-candidates))
             (delete-overlay it)
-            (delq it anything-visible-mark-overlays))
+            (setq anything-visible-mark-overlays
+                  (delq it anything-visible-mark-overlays)))
         (let ((o (make-overlay (line-beginning-position) (1+ (line-end-position)))))
           (overlay-put o 'face anything-visible-mark-face)
           (overlay-put o 'source (assoc-default 'name source))
-- 
1.7.0.87.g0901d