[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-gauche 96fa06aaee 2/3: fix autodoc functionality
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser-gauche 96fa06aaee 2/3: fix autodoc functionality |
Date: |
Tue, 3 May 2022 13:58:56 -0400 (EDT) |
branch: elpa/geiser-gauche
commit 96fa06aaeef18cc1b3b519e83dbb7be09eeb0d07
Author: Fabian Brosda <f.brosda@gmx.de>
Commit: Fabian Brosda <f.brosda@gmx.de>
fix autodoc functionality
When get-module returns `:f`, rewrite it to "'#f" in the gauche
expression.
---
geiser-gauche.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/geiser-gauche.el b/geiser-gauche.el
index 2c425d1d5b..4f534ff56a 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -229,7 +229,10 @@
(replace-regexp-in-string
"{{cur-module}}"
(if (string= module "'#f")
- (format "'%s" (geiser-gauche--get-module))
+ (let ((cur-module (geiser-gauche--get-module)))
+ (if (eq cur-module :f)
+ "'#f"
+ (format "'%s" cur-module)))
module)
(format "(eval '(geiser:eval %s '%s) (find-module 'geiser))" module
form))))
;; The rest of the commands are all evaluated in the geiser module