             (anything-candidate-buffer buf)
             (prog1 (buffer-string)
               (kill-buffer (current-buffer))))))
+      (expect "buf1"
+        (let (anything-candidate-buffer-alist
+              (anything-source-name "foo")
+              (buf1 (get-buffer-create "buf1"))
+              (buf2 (get-buffer-create "buf2")))
+          (anything-candidate-buffer buf1)
+          (anything-candidate-buffer buf2)
+          (prog1 (buffer-name (anything-candidate-buffer buf1))
+            (kill-buffer buf1)
+            (kill-buffer buf2))))
       (desc "action attribute")
       (expect "foo"
         (anything-test-candidates

;; New maintainer.
;;

(defvar anything-version "$Id: anything.el,v 1.175 2009/03/22 19:10:37 rubikitch Exp rubikitch $")
(require 'cl)

;; (@* "User Configuration")


;; (@* "HISTORY")
;; $Log: anything.el,v $
;; Revision 1.176  2009/04/08 14:48:15  rubikitch
;; bug fix in `anything-candidate-buffer'
;;
;; Revision 1.175  2009/03/22 19:10:37  rubikitch
;; New Variable: `anything-scroll-amount' (thx. ThierryVolpiatto)
;;
