branch: elpa/casual
commit 3778142c867cf9b40fe0d963fe68eafe7a430187
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Change label "Filter…" to "Filter by name…" in Dired main menu
- Menu item changes for `casual-dired-find-dired-regexp`
- Change label to better clarify its purpose.
- Improve docstring.
---
docs/images/casual-dired-screenshot-unicode.png | Bin 357137 -> 392174 bytes
docs/images/casual-dired-screenshot.png | Bin 728609 -> 687768 bytes
lisp/casual-dired.el | 14 ++++++++++++--
3 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/docs/images/casual-dired-screenshot-unicode.png
b/docs/images/casual-dired-screenshot-unicode.png
index 3b5a1a39d6..704b0d43a4 100644
Binary files a/docs/images/casual-dired-screenshot-unicode.png and
b/docs/images/casual-dired-screenshot-unicode.png differ
diff --git a/docs/images/casual-dired-screenshot.png
b/docs/images/casual-dired-screenshot.png
index 30ef3d2d17..1c209b9f84 100644
Binary files a/docs/images/casual-dired-screenshot.png and
b/docs/images/casual-dired-screenshot.png differ
diff --git a/lisp/casual-dired.el b/lisp/casual-dired.el
index f661d88557..4c49346fed 100644
--- a/lisp/casual-dired.el
+++ b/lisp/casual-dired.el
@@ -89,7 +89,7 @@
:transient t)
("k" "Kill (Hide) Line(s)" dired-do-kill-lines :transient t)
("g" "Revert" revert-buffer :transient t)
- ("f" "Filter…" casual-dired-find-dired-regexp :transient nil)
+ ("f" "Filter by name…" casual-dired-find-dired-regexp :transient nil)
("E" "Edit (wdired)" wdired-change-to-wdired-mode :transient nil)
("T" "Thumbnails…" image-dired :if display-graphic-p :transient n)
("d" "Dired…" dired :transient t)]
@@ -242,7 +242,17 @@ This buffer is created by the command
`find-lisp-find-dired'."
(not (casual-dired-lisp-dired-buffer-p))))
(defun casual-dired-find-dired-regexp (REGEXP)
- "Find files in current directory whose names match REGEXP."
+ "Recursively find file names in current directory matching REGEXP.
+
+Recursively find all files whose name matches the Elisp REGEXP
+from the current directory `default-directory'. The value of
+REGEXP will be interactively prompted for.
+
+The command `find-lisp-find-dired' does all the heavy lifting
+here.
+
+* References
+- Info node `(elisp) Regular Expressions'"
(interactive "sFind filenames with regex: ")
(find-lisp-find-dired default-directory REGEXP))