From 77adf19d3812ecfd821d250f8bc1eb821a88ee92 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 23 Apr 2022 15:49:05 +0100 Subject: Byte-compilation warnings fixed And, actually, fixing bugs: the warnings weren't spurious. --- elisp/geiser-autodoc.el | 7 ++++--- elisp/geiser-company.el | 2 +- 2 files changed, 5 insertions(+), 4 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))) diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el index 1383584..adc3654 100644 --- a/elisp/geiser-company.el +++ b/elisp/geiser-company.el @@ -36,7 +36,7 @@ (defun geiser-company--doc (id) (ignore-errors (when (not (geiser-autodoc--inhibit)) - (let ((help (geiser-autodoc--autodoc `((,id 0))))) + (let ((help (geiser-autodoc--autodoc `((,id 0)) nil))) (and help (substring-no-properties help)))))) (defun geiser-company--doc-buffer (id) -- cgit v1.2.3