branch: elpa/casual
commit e1ddf19eb0659da3a88cb817633d6a58b98eb0fa
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add dired-view-file command
- Adds `dired-view-file` to `casual-dired-tmenu`.
---
lisp/casual-dired.el | 1 +
tests/test-casual-dired.el | 1 +
2 files changed, 2 insertions(+)
diff --git a/lisp/casual-dired.el b/lisp/casual-dired.el
index a7e9cb657d..f1f2912013 100644
--- a/lisp/casual-dired.el
+++ b/lisp/casual-dired.el
@@ -52,6 +52,7 @@
"Transient menu for Dired."
[["File"
("o" "Open Other" dired-find-file-other-window :transient nil)
+ ("v" "View" dired-view-file)
("C" "Copy to…" dired-do-copy :transient t)
("R" "Rename…" dired-do-rename :transient t)
("D" "Delete…" dired-do-delete :transient t)
diff --git a/tests/test-casual-dired.el b/tests/test-casual-dired.el
index 421f4b8ceb..4f6974f95a 100644
--- a/tests/test-casual-dired.el
+++ b/tests/test-casual-dired.el
@@ -38,6 +38,7 @@
(let ((test-vectors (list)))
(push (casualt-suffix-test-vector "o" #'dired-find-file-other-window)
test-vectors)
+ (push (casualt-suffix-test-vector "v" #'dired-view-file) test-vectors)
(push (casualt-suffix-test-vector "C" #'dired-do-copy) test-vectors)
(push (casualt-suffix-test-vector "R" #'dired-do-rename) test-vectors)
(push (casualt-suffix-test-vector "D" #'dired-do-delete) test-vectors)
