diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2022-01-31 14:40:14 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2022-01-31 14:43:08 +0100 |
| commit | f7d91d04e3fcca40268439e702cb6c4f5c90ab98 (patch) | |
| tree | 9071e1fe116c4a1abbe547be14668306ee63fb81 | |
| parent | 22702313a1f65abaa3bb691cc82cb50b1c14f455 (diff) | |
| download | geiser-f7d91d04e3fcca40268439e702cb6c4f5c90ab98.tar.gz geiser-f7d91d04e3fcca40268439e702cb6c4f5c90ab98.tar.bz2 | |
Silence byte-compiler
| -rw-r--r-- | elisp/geiser-base.el | 5 | ||||
| -rw-r--r-- | elisp/geiser-compile.el | 1 | ||||
| -rw-r--r-- | 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 327a91f..cb315e0 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 d43cabb..c513606 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 f761c8b..78160e4 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)) |