summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2022-01-31 14:40:14 +0100
committerJonas Bernoulli <jonas@bernoul.li>2022-01-31 14:43:08 +0100
commitf7d91d04e3fcca40268439e702cb6c4f5c90ab98 (patch)
tree9071e1fe116c4a1abbe547be14668306ee63fb81 /elisp
parent22702313a1f65abaa3bb691cc82cb50b1c14f455 (diff)
downloadgeiser-f7d91d04e3fcca40268439e702cb6c4f5c90ab98.tar.gz
geiser-f7d91d04e3fcca40268439e702cb6c4f5c90ab98.tar.bz2
Silence byte-compiler
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-base.el5
-rw-r--r--elisp/geiser-compile.el1
-rw-r--r--elisp/geiser-debug.el5
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))