 ;; New maintainer.
 ;;
 
-(defvar anything-version "$Id: anything.el,v 1.136 2008/10/27 17:41:27 rubikitch Exp $")
+(defvar anything-version "$Id: anything.el,v 1.137 2008/12/20 19:38:47 rubikitch Exp $")
 (require 'cl)
 
 ;; (@* "User Configuration")


;; (@* "HISTORY")
;; $Log: anything.el,v $
;; Revision 1.136  2008/10/27 17:41:27  rubikitch
;; `anything-process-delayed-sources', `anything-check-minibuffer-input-1': quittable
;;

        (sources)
        (t anything-sources)))  

(defvar anything-quit nil)
(defmacro with-anything-quittable (&rest body)
  `(let (inhibit-quit)
     (condition-case v
         (progn ,@body)
       (quit (setq anything-quit t)
             (exit-minibuffer)
             (keyboard-quit)))))
(put 'with-anything-quittable 'lisp-indent-function 0)

;; (@* "Core: entry point")
(defun anything (&optional any-sources any-input any-prompt any-resume any-preselect any-buffer)
  "Select anything. In Lisp program, some optional arguments can be used.
