 If you want to have the default tramp messages set it to 3."
   :type 'integer
   :group 'anything-config)
+
+;;; Documentation
+(defun anything-c-describe-anything-bindings ()
+  "Describe `anything' bindings."
+  (interactive)
+  (anything-run-after-quit
+   #'(lambda ()
+       (with-current-buffer (get-buffer-create "*Anything Help*")
+         (erase-buffer)
+         (insert
+          (substitute-command-keys
+           "The keys that are defined for `anything' are:
+       \\{anything-map}")))
+       (pop-to-buffer "*Anything Help*")
+       (goto-char (point-min)))))
+
+(define-key anything-map (kbd "C-h m") 'anything-c-describe-anything-bindings)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Preconfigured Anything ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defun anything-for-files ()

                         (anything-dired-action candidate :action 'rename)))))))

(defvar anything-c-source-symlink-files
  '((name . "Symlink Files")
    (candidates . anything-find-files-get-candidates)
    (candidate-transformer anything-c-highlight-ffiles)
    (persistent-action . anything-find-files-persistent-action)



(defvar anything-c-source-rename-files
  '((name . "Rename Files (`C-z':expand directory, `C-.':Go to precedent level)")
    (candidates . anything-find-files-get-candidates)
    (candidate-transformer anything-c-highlight-ffiles)
    (persistent-action . anything-find-files-persistent-action)
