From 701aab2db64690e1f42725d6163291e4e0878ad2 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 2 Dec 2020 18:51:41 +0000 Subject: Placate byte compiler (Brian Leung) --- elisp/geiser-debug.el | 2 ++ elisp/geiser-doc.el | 2 ++ elisp/geiser-repl.el | 2 ++ 3 files changed, 6 insertions(+) diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index d2e91ec..ca51748 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -136,6 +136,8 @@ buffer.") (newline 2) (and no (> no 0)))))) +(declare-function switch-to-geiser "geiser-repl") + (defun geiser-debug--display-retort (what ret &optional res auto-p) (let* ((err (geiser-eval--retort-error ret)) (key (geiser-eval--error-key err)) diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index d7210f6..edd6dab 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -288,6 +288,8 @@ help (e.g. browse an HTML page) implementing this method.") map) "Keymap for `geiser-doc-mode'.") +(declare-function switch-to-geiser "geiser-repl") + (defun geiser-doc-switch-to-repl () (interactive) (switch-to-geiser nil nil (current-buffer))) diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index a576beb..c41f05d 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -515,6 +515,8 @@ module command as a string") (when (and v r (geiser--version< v r)) (error "Geiser requires %s version %s but detected %s" impl r v))))) +(defvar geiser-repl--last-scm-buffer) + (defun geiser-repl--start-repl (impl address) (message "Starting Geiser REPL ...") (when (not address) (geiser-repl--check-version impl)) -- cgit v1.2.3