From 268480b3de5778c2c946a5ee0397a359511e183a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 10 May 2023 09:59:46 -0700 Subject: avoid gdbmacs loading uncompiled Gnus --- .emacs.d/init.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 0ad77a61..e7e5a97a 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -58,7 +58,7 @@ (expand-file-name "initlibs/" user-emacs-directory)) t) -;; gdbmacs loads Gnus out of ~/src/emacs/primary/, if it's there. +;; gdbmacs loads Gnus out of ~/src/emacs/primary/, if it's there & compiled. (when (string= (daemonp) "gdbmacs") (let ((gnus-primary (expand-file-name "~/src/emacs/primary/lisp/gnus/"))) (when (file-directory-p gnus-primary) @@ -67,7 +67,11 @@ (gnus-lib-cons (or (member (directory-file-name gnus-lib-dir) load-path) (member gnus-lib-dir load-path)))) - (rplaca gnus-lib-cons (directory-file-name gnus-primary)))))) + (cl-loop for f in (directory-files-recursively gnus-primary + emacs-lisp-file-regexp) + always (file-exists-p (byte-compile-dest-file f)) + finally (rplaca gnus-lib-cons + (directory-file-name gnus-primary))))))) (require 'cl-lib) (require 'subr-x) -- cgit v1.2.3