branch: elpa/casual
commit 48a6b73ad2e6a0d6a89ec738a433bcd01ca89394
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add info-display-manual
- Adds menu item `info-display-manual` bound to "M" to `casual-info-tmenu`.
---
docs/images/casual-info-screenshot.png | Bin 344749 -> 447998 bytes
lisp/casual-info.el | 3 ++-
tests/test-casual-info.el | 2 ++
3 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/docs/images/casual-info-screenshot.png
b/docs/images/casual-info-screenshot.png
index 8de71f8727..cfeb019e29 100644
Binary files a/docs/images/casual-info-screenshot.png and
b/docs/images/casual-info-screenshot.png differ
diff --git a/lisp/casual-info.el b/lisp/casual-info.el
index 610feb4fe1..4a81ed2c1e 100644
--- a/lisp/casual-info.el
+++ b/lisp/casual-info.el
@@ -48,7 +48,8 @@
"CC Info Transient menu."
[["Overview"
- ("d" "Directory" Info-directory :transient nil)
+ ("d" "Directory" Info-directory)
+ ("M" "Manual…" info-display-manual)
("t" "Top" Info-top-node)
("T" "ToC" Info-toc :transient nil)]
diff --git a/tests/test-casual-info.el b/tests/test-casual-info.el
index 47d5e32262..9a557d0082 100644
--- a/tests/test-casual-info.el
+++ b/tests/test-casual-info.el
@@ -33,6 +33,7 @@
(casualt-info-setup)
(cl-letf (
(casualt-mock #'Info-directory)
+ (casualt-mock #'info-display-manual)
(casualt-mock #'Info-top-node)
(casualt-mock #'Info-toc)
(casualt-mock #'Info-menu)
@@ -69,6 +70,7 @@
(let ((test-vectors
'(;; Overview
(:binding "d" :command Info-directory)
+ (:binding "M" :command info-display-manual)
(:binding "t" :command Info-top-node)
(:binding "T" :command Info-toc)
