[nongnu] elpa/geiser bb309de946 1/2: geiser-repl: Silence warnings

[ELPA Syncer]

branch: elpa/geiser
commit bb309de946af96e7a1f710171c9e01c6cce9525d
Author: Brian Leung <leungbk@posteo.net>
Commit: jao <jao@gnu.org>

    geiser-repl: Silence warnings
---
 elisp/geiser-repl.el | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 897a17b14c..f1207bd1b1 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -474,13 +474,13 @@ will be set up using `geiser-connect-local' when a REPL 
is started.")
       (narrow-to-region prompt-beg prompt-end)
       t)))
 
-(defun geiser-repl--wrap-fontify-region-function (beg end &optional loudly)
+(defun geiser-repl--wrap-fontify-region-function (_beg _end &optional _loudly)
   (save-restriction
     (when (geiser-repl--narrow-to-prompt)
       (let ((font-lock-dont-widen t))
         (font-lock-default-fontify-region (point-min) (point-max) nil)))))
 
-(defun geiser-repl--wrap-unfontify-region-function (beg end &optional loudly)
+(defun geiser-repl--wrap-unfontify-region-function (_beg _end &optional 
_loudly)
   (save-restriction
     (when (geiser-repl--narrow-to-prompt)
       (let ((font-lock-dont-widen t))
@@ -541,6 +541,10 @@ will be set up using `geiser-connect-local' when a REPL is 
started.")
 
 (defvar-local geiser-repl--repl-buffer nil)
 
+(defvar-local geiser-repl--binary nil)
+
+(defvar-local geiser-repl--arglist nil)
+
 (defun geiser-repl--start-repl (impl address)
   (message "Starting Geiser REPL ...")
   (when (not address) (geiser-repl--check-version impl))
@@ -732,7 +736,7 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
                      (equal cb geiser-repl--repl))
             (geiser-repl--set-up-repl geiser-impl--implementation)))))))
 
-(defun geiser-repl--sentinel (proc event)
+(defun geiser-repl--sentinel (proc _event)
   (let ((pb (process-buffer proc)))
     (when (buffer-live-p pb)
       (with-current-buffer pb
@@ -820,8 +824,7 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
 
   (let* ((proc (get-buffer-process (current-buffer)))
          (pmark (and proc (process-mark proc)))
-         (intxt (and pmark (buffer-substring pmark (point))))
-         (eob (point-max)))
+         (intxt (and pmark (buffer-substring pmark (point)))))
     (when intxt
       (when geiser-repl-forget-old-errors-p
         (compilation-forget-errors))
@@ -1001,10 +1004,6 @@ over a Unix-domain socket."
              (eq major-mode 'geiser-repl-mode))
     (setq geiser-repl--last-scm-buffer buffer)))
 
-(defvar-local geiser-repl--binary nil)
-
-(defvar-local geiser-repl--arglist nil)
-
 (defun geiser-repl--get-binary (impl)
   (or geiser-repl--binary (geiser-repl--binary impl)))