diff options
| author | Brian Leung <leungbk@posteo.net> | 2022-08-20 11:15:02 -0700 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-21 14:46:05 +0100 |
| commit | bb309de946af96e7a1f710171c9e01c6cce9525d (patch) | |
| tree | 8a3371d431862f0cb115ee5b80b702f29965adcd | |
| parent | b03bad3e5dfa8f8a74167f78f25d7b664284a9ae (diff) | |
| download | geiser-bb309de946af96e7a1f710171c9e01c6cce9525d.tar.gz geiser-bb309de946af96e7a1f710171c9e01c6cce9525d.tar.bz2 | |
geiser-repl: Silence warnings
| -rw-r--r-- | elisp/geiser-repl.el | 17 |
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))) |