From f7d91d04e3fcca40268439e702cb6c4f5c90ab98 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Mon, 31 Jan 2022 14:40:14 +0100 Subject: Silence byte-compiler --- elisp/geiser-base.el | 5 +++-- elisp/geiser-compile.el | 1 - 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)) -- cgit v1.2.3