diff options
| -rw-r--r-- | tw/home/files/emacs-init.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tw/home/files/emacs-init.el b/tw/home/files/emacs-init.el index 427bac2b..8d224a20 100644 --- a/tw/home/files/emacs-init.el +++ b/tw/home/files/emacs-init.el @@ -722,6 +722,15 @@ For use in `org-latex-classes'." '((modify-syntax-entry 126 "'") (modify-syntax-entry 36 "'") (modify-syntax-entry 43 "'") + (let ((root-dir-unexpanded (locate-dominating-file default-directory ".dir-locals.el"))) + (when root-dir-unexpanded + (let* ((root-dir (file-local-name (expand-file-name root-dir-unexpanded))) + (root-dir* (directory-file-name root-dir))) + (unless (boundp 'geiser-guile-load-path) + (defvar geiser-guile-load-path 'nil)) + (make-local-variable 'geiser-guile-load-path) + (require 'cl-lib) + (cl-pushnew root-dir* geiser-guile-load-path :test #'string-equal)))) (progn (require 'lisp-mode) (defun emacs27-lisp-fill-paragraph (&optional justify) |