[nongnu] elpa/geiser 77adf19d38: Byte-compilation warnings fixed

[ELPA Syncer]

branch: elpa/geiser
commit 77adf19d3812ecfd821d250f8bc1eb821a88ee92
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>

    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 674e0dd5d6..1ce2936b86 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 1383584354..adc3654b6a 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)