branch: elpa/geiser-kawa
commit e63a8b4fac29f6c576463a7ae469307f8be17346
Author: spellcard199 <spellcard...@protonmail.com>
Commit: spellcard199 <spellcard...@protonmail.com>
Improve message when manual is not found.
---
elisp/geiser-kawa-ext-help.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/elisp/geiser-kawa-ext-help.el b/elisp/geiser-kawa-ext-help.el
index 94464b1..0346fb3 100644
--- a/elisp/geiser-kawa-ext-help.el
+++ b/elisp/geiser-kawa-ext-help.el
@@ -132,7 +132,12 @@ Argument MOD is passed by geiser, but it's not used here
yet."
nil (format
(concat
"Kawa's manual file specified by "
- "`geiser-kawa-manual-path' does not exist: \"%s\"")
+ "`geiser-kawa-manual-path' does not exist: \"%s\". "
+ "You can either compile it yourself or "
+ "find it inside the pre-compiled Kawa release. "
+ "See: https://www.gnu.org/software/kawa/Getting-Kawa.html. "
+ "When you have a copy, set the `geiser-kawa-manual-path' "
+ "elisp variable to where the .info or .epub file is
located. ")
geiser-kawa-manual-path))
(cond
((string-suffix-p ".epub" geiser-kawa-manual-path)
@@ -142,7 +147,7 @@ Argument MOD is passed by geiser, but it's not used here
yet."
(geiser-kawa-manual--info-search (symbol-name id)
geiser-kawa-manual-path))
(t (error "Supported formats for `geiser-kawa-manual-path' are only
- `.epub' and `.info'"))))
+ `.epub' and `.info'"))))
(provide 'geiser-kawa-ext-help)
