                            (if (fboundp 'anything-traverse-occur-color-current-line)
                                (anything-traverse-occur-color-current-line))))
     (action . (lambda (elm)
-                (anything-c-imenu-default-action elm)))))
+                (anything-c-imenu-default-action elm))))
+  "See (info \"(emacs)Imenu\")")
 ;; (anything 'anything-c-source-imenu)
 
 (defun anything-c-imenu-default-action (elm)

(defun anything-headline-get-candidates (regexp subexp)
  (save-excursion
    (set-buffer anything-current-buffer)
    (when t
      (goto-char (point-min))
      (if (functionp regexp) (setq regexp (funcall regexp)))
      (let (hierarchy curhead)

;; Copyright (C) 2009, rubikitch, all rights reserved.
;; Copyright (C) 2009, Thierry Volpiatto, all rights reserved.
;; Created: 2009-02-16 21:38:23
;; Version: 0.4.0
;; URL: http://www.emacswiki.org/emacs/download/anything-config.el
;; Keywords: anything, anything-config
;; Compatibility: GNU Emacs 22 ~ 23
