From 410436b7adf398ee31f22690ca2d7d16cafd42d8 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Thu, 4 Sep 2025 18:32:56 +0300 Subject: [PATCH] mu4e-mu-scm-repl: tweak to avoid bytecomp warning --- mu4e/mu4e-server.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/mu4e/mu4e-server.el b/mu4e/mu4e-server.el index 9aa0ec5d..570432e3 100644 --- a/mu4e/mu4e-server.el +++ b/mu4e/mu4e-server.el @@ -129,17 +129,18 @@ Note: this REPL is not to be confused with the mu REPL as per (interactive "P") (unless (require 'geiser-guile nil 'noerror) (mu4e-error "geiser-guile not found; please install")) - (let ((sock (plist-get (mu4e-server-properties) :scm-socket-path)) - (geiser-repl-buffer-name-function - (lambda (_) - mu4e-mu-scm-repl-buffer-name))) + (let ((sock (plist-get (mu4e-server-properties) :scm-socket-path))) (unless sock (mu4e-error "socket-path unavailable")) (when (fboundp 'geiser-connect-local) - (if (and (buffer-live-p (get-buffer mu4e-mu-scm-repl-buffer-name)) - (not new-repl)) - (switch-to-buffer mu4e-mu-scm-repl-buffer-name) - (geiser-connect-local 'guile sock))))) + (defvar geiser-repl-buffer-name-function) ;; avoid warning + (let ((geiser-repl-buffer-name-function + (lambda (_) + mu4e-mu-scm-repl-buffer-name))) + (if (and (buffer-live-p (get-buffer mu4e-mu-scm-repl-buffer-name)) + (not new-repl)) + (switch-to-buffer mu4e-mu-scm-repl-buffer-name) + (geiser-connect-local 'guile sock)))))) ;; Cached data (defvar mu4e-maildir-list)