summaryrefslogtreecommitdiff
path: root/elisp/geiser-autodoc.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-04-23 15:49:05 +0100
committerjao <jao@gnu.org>2022-04-23 15:49:05 +0100
commit77adf19d3812ecfd821d250f8bc1eb821a88ee92 (patch)
tree11796936d8b399da4599abbedbad5e36dd69f2a8 /elisp/geiser-autodoc.el
parent1300dd1a410a172588c529734a4fb1c8b58eaef1 (diff)
downloadgeiser-77adf19d3812ecfd821d250f8bc1eb821a88ee92.tar.gz
geiser-77adf19d3812ecfd821d250f8bc1eb821a88ee92.tar.bz2
Byte-compilation warnings fixed
And, actually, fixing bugs: the warnings weren't spurious.
Diffstat (limited to 'elisp/geiser-autodoc.el')
-rw-r--r--elisp/geiser-autodoc.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 674e0dd..1ce2936 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -91,6 +91,8 @@ when `geiser-autodoc-display-module-p' is on."
(format "(#%s)" (car a))))
(t (geiser-syntax--display a))))
+(defvar geiser-autodoc--arg-face 'geiser-font-lock-autodoc-current-arg)
+
(defun geiser-autodoc--insert-arg-group (args current &optional pos)
(when args (insert " "))
(dolist (a (geiser-autodoc--sanitize-args args))
@@ -103,8 +105,7 @@ when `geiser-autodoc-display-module-p' is on."
(and (geiser-syntax--keywordp current)
(listp a)
(geiser-syntax--symbol-eq current (car a))))
- (put-text-property p (point)
- 'face 'geiser-font-lock-autodoc-current-arg)
+ (put-text-property p (point) 'face geiser-autodoc--arg-face)
(setq pos nil current nil)))
(insert " "))
(when args (backward-char))
@@ -134,7 +135,7 @@ when `geiser-autodoc-display-module-p' is on."
(propertize str 'face 'geiser-font-lock-autodoc-identifier)))
(defun geiser-autodoc--str* (full-signature)
- (let ((geiser-font-lock-autodoc-current-arg 'default)
+ (let ((geiser-autodoc--arg-face 'default)
(sign (if (listp full-signature) full-signature (list full-signature))))
(geiser-autodoc--str (list (car sign)) sign)))