.emacs.el

;; (install-elisp-from-emacswiki "anything-match-plugin.el")
;; (install-elisp-from-emacswiki "anything-config.el")
(when (and (locate-library "anything")
           (locate-library "anything-config"))
  (autoload 'anything "anything"
    "Main function to execute anything sources." t)
  (when (boundp 'anything-for-document-sources)
    (setq anything-for-document-sources
          '(anything-c-source-man-pages
            anything-c-source-info-cl
            anything-c-source-info-pages
            anything-c-source-info-elisp
            anything-c-source-apropos-emacs-commands
            anything-c-source-apropos-emacs-functions
            anything-c-source-apropos-emacs-variables)))
  (defun anything-for-document ()
    "Preconfigured anything for anything-for-document"
    (interactive)
    (when (and (boundp 'anything-for-document-sources)
               (fboundp 'anything))
      (anything anything-for-document-sources
                (thing-at-point 'symbol) nil nil nil
                "*anything for document*")))
  (define-key global-map (kbd "C-c a c") 'anything-for-document))