summaryrefslogtreecommitdiff
path: root/elisp/geiser-autodoc.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-autodoc.el')
-rw-r--r--elisp/geiser-autodoc.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 51bad79..924fadb 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -186,7 +186,7 @@ you can set this variable to nil to avoid them."
(while (and p (not s))
(setq s (or (cdr (assoc (car p) signs))
(cdr (geiser-edit--find-def (car p)))))
- (setq p (car path) path (cdr path)))
+ (unless s (setq p (car path) path (cdr path))))
(cond ((stringp s) s)
(s (geiser-autodoc--str p s)))))))