                         (format "* %d Files" len)
                         (car files)))
          (source    (case action
-                      ('copy 'anything-c-source-copy-files)
-                      ('rename 'anything-c-source-rename-files)
-                      ('symlink 'anything-c-source-symlink-files)
+                      ('copy     'anything-c-source-copy-files)
+                      ('rename   'anything-c-source-rename-files)
+                      ('symlink  'anything-c-source-symlink-files)
                       ('hardlink 'anything-c-source-hardlink-files)))
          (prompt-fm (case action
-                      ('copy "Copy %s to: ")
-                      ('rename "Rename %s to: ")
-                      ('symlink "Symlink %s to: ")
+                      ('copy     "Copy %s to: ")
+                      ('rename   "Rename %s to: ")
+                      ('symlink  "Symlink %s to: ")
                       ('hardlink "Hardlink %s to: ")))
          (buffer    (case action
-                      ('copy "*Anything Copy Files*")
-                      ('rename "*Anything Rename Files*")
-                      ('symlink "*Anything Symlink Files*")
+                      ('copy     "*Anything Copy Files*")
+                      ('rename   "*Anything Rename Files*")
+                      ('symlink  "*Anything Symlink Files*")
                       ('hardlink "*Anything Hardlink Files*"))))
     (anything source
               (or (dired-dwim-target-directory)

                  (replace-match (getenv "HOME") nil t anything-pattern)
                  anything-pattern)))
    (cond ((or (and (not (file-directory-p path)) (file-exists-p path))
               (string-match "^\\(http\\|https\\|ftp\\|mailto\\):/?/?.*" path))
           (list path))
          ((string= anything-pattern "")
           (directory-files "/" t))

  (let ((fap (ffap-guesser)))
    (anything 'anything-c-source-find-files
              (or (if (and fap (file-exists-p fap)) (expand-file-name fap) fap)
                  (expand-file-name default-directory))
              "Find Files or Url: " nil nil "*Anything Find Files*")))


;;; Anything completion for copy, rename and symlink files from dired.
