Commit: 9936816b5fe9660a78925c182ae37107bc797d40 - emacs-files (hg)

Commit MetaInfo

• Revisión: 9936816b5fe9660a78925c182ae37107bc797d40 (tree)
• Tiempo: 2023-05-03 20:32:19
• Autor: badcoff33
• Commiter: badcoff33

Log Message

+find-any-file acts different with prefix

Cambiar Resumen

• modified: elisp/find-in-files.el

Diferencia incremental

diff -r 4729f42b88ed -r 9936816b5fe9 elisp/find-in-files.el
--- a/elisp/find-in-files.el	Wed May 03 13:31:24 2023 +0200
+++ b/elisp/find-in-files.el	Wed May 03 13:32:19 2023 +0200
@@ -82,13 +82,19 @@
 
 ;;;###autoload
 (defun +find-any-file (&optional prefix)
-  "Find a file in root directory. The root directory is evaluatd by
-function `+utils-find-root-dir'. When called with prefix, the
-`default-directoy' is used. "
+  "Find rekursive any file matching glob pattern *.* in root
+directory. Root directory is determined by `+utils-find-root-dir'.
+When called with prefix, the root directory is requested first. "
   (interactive "P")
-  (let* ((default-directory (if prefix
-                                default-directory
-                              (+utils-find-root-dir)))
+  (let* ((default-directory
+           (if prefix
+               (completing-read "in directory: "
+                                (apply-partially #'completion-table-with-predicate
+                                                 #'completion-file-name-table
+                                                 #'file-directory-p
+                                                 'strict)
+                                nil t default-directory)
+             (+utils-find-root-dir)))
          (major-mode-specific-part '("everything" . "-g *.*"))
          (find-files-command (concat "rg --color never --files"
                                      " " (cdr major-mode-specific-part)