alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

mu4e-mu-scm-repl: tweak to avoid bytecomp warning

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2025-09-04 18:32:56 +03:00
committed by Seth Ladygo
parent 2630832b19
commit 410436b7ad
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
mu4e/mu4e-server.el
View File

@ -129,17 +129,18 @@ Note: this REPL is not to be confused with the mu REPL as per
(interactive "P") (interactive "P")
(unless (require 'geiser-guile nil 'noerror) (unless (require 'geiser-guile nil 'noerror)
(mu4e-error "geiser-guile not found; please install")) (mu4e-error "geiser-guile not found; please install"))
(let ((sock (plist-get (mu4e-server-properties) :scm-socket-path)) (let ((sock (plist-get (mu4e-server-properties) :scm-socket-path)))
(geiser-repl-buffer-name-function
(lambda (_)
mu4e-mu-scm-repl-buffer-name)))
(unless sock (unless sock
(mu4e-error "socket-path unavailable")) (mu4e-error "socket-path unavailable"))
(when (fboundp 'geiser-connect-local) (when (fboundp 'geiser-connect-local)
(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)) (if (and (buffer-live-p (get-buffer mu4e-mu-scm-repl-buffer-name))
(not new-repl)) (not new-repl))
(switch-to-buffer mu4e-mu-scm-repl-buffer-name) (switch-to-buffer mu4e-mu-scm-repl-buffer-name)
(geiser-connect-local 'guile sock))))) (geiser-connect-local 'guile sock))))))
;; Cached data ;; Cached data
(defvar mu4e-maildir-list) (defvar mu4e-maildir-list)