[nongnu] elpa/geiser f7d91d04e3: Silence byte-compiler

[ELPA Syncer]

branch: elpa/geiser
commit f7d91d04e3fcca40268439e702cb6c4f5c90ab98
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Silence byte-compiler
---
 elisp/geiser-base.el    | 5 +++--
 elisp/geiser-compile.el | 1 -
 elisp/geiser-debug.el   | 5 ++++-
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el
index 327a91f62f..cb315e0ac8 100644
--- a/elisp/geiser-base.el
+++ b/elisp/geiser-base.el
@@ -26,8 +26,9 @@
 
 (when (not (fboundp 'looking-at-p))
   (defsubst looking-at-p (regexp)
-    (let ((inhibit-changing-match-data t))
-      (looking-at regexp))))
+    (with-no-warnings
+      (let ((inhibit-changing-match-data t))
+        (looking-at regexp)))))
 
 (defalias 'geiser--font-lock-ensure
   (if (fboundp 'font-lock-ensure)
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index d43cabbcd9..c51360623c 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -38,7 +38,6 @@
 
 (defun geiser-compile--file-op (path compile-p msg)
   (let* ((b/p (geiser-compile--buffer/path path))
-         (buffer (car b/p))
          (path (cdr b/p))
          (msg (format "%s %s ..." msg path))
          (code `(,(if compile-p :comp-file :load-file) ,path))
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index f761c8b997..78160e4d78 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -25,6 +25,9 @@
 
 (require 'transient)
 (require 'ansi-color)
+(require 'compile)
+
+(declare-function geiser-repl--switch-to-buffer "geiser-repl" (buffer))
 
 
 ;;; Customization:
@@ -230,7 +233,7 @@ buffer.")
 
 (declare-function switch-to-geiser "geiser-repl")
 
-(defun geiser-debug--display-retort (what ret &optional res auto-p)
+(defun geiser-debug--display-retort (what ret &optional res _auto-p)
   (let* ((err (geiser-eval--retort-error ret))
          (key (geiser-eval--error-key err))
          (debug (alist-get 'debug ret))