 ;; New maintainer.
 ;;
 
-(defvar anything-version "$Id: anything.el,v 1.181 2009/05/04 19:05:03 rubikitch Exp $")
+(defvar anything-version "$Id: anything.el,v 1.182 2009/05/08 18:28:18 rubikitch Exp $")
 (require 'cl)
 
 ;; (@* "User Configuration")


;; (@* "HISTORY")
;; $Log: anything.el,v $
;; Revision 1.181  2009/05/04 19:05:03  rubikitch
;; * `anything-yank-selection' and `anything-kill-selection-and-quit' handles display string now.
;; * `anything-get-selection': Added optional arguments.

  (let ((name (assoc-default 'name source)))
    (anything-insert-header name
                            (anything-aif (assoc-default 'header-name source)
                                (anything-funcall-with-source source it name)))))

(defun anything-insert-header (name &optional display-string)
  "Insert header of source NAME into the anything buffer."
