summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorBrian Leung <leungbk@posteo.net>2022-08-20 11:15:02 -0700
committerjao <jao@gnu.org>2022-08-21 14:46:05 +0100
commitbb309de946af96e7a1f710171c9e01c6cce9525d (patch)
tree8a3371d431862f0cb115ee5b80b702f29965adcd /elisp
parentb03bad3e5dfa8f8a74167f78f25d7b664284a9ae (diff)
downloadgeiser-bb309de946af96e7a1f710171c9e01c6cce9525d.tar.gz
geiser-bb309de946af96e7a1f710171c9e01c6cce9525d.tar.bz2
geiser-repl: Silence warnings
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-repl.el17
1 files changed, 8 insertions, 9 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 897a17b..f1207bd 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)))