From d1a299b9f5a21db18f3a885f91dde86480eb0cf0 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 29 Aug 2019 20:05:34 -0400 Subject: [PATCH] Fix #1719: sole :when in def-project-mode! --- core/core-projects.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/core/core-projects.el b/core/core-projects.el index ba5a4a5f6..c4bf12519 100644 --- a/core/core-projects.el +++ b/core/core-projects.el @@ -239,14 +239,16 @@ Relevant: `doom-project-hook'." ,(if (stringp (car files)) (cons 'and files) files)))) ,(or when t) (,name 1))))) - `((dolist (mode ,modes) - (let ((hook-name - (intern (format "doom--enable-%s%s-h" ',name - (if (eq mode t) "" (format "-in-%s" mode)))))) - (fset hook-name #',fn) - (if (eq mode t) - (add-to-list 'auto-minor-mode-magic-alist (cons hook-name #',name)) - (add-hook (intern (format "%s-hook" mode)) hook-name))))))) + (if modes + `((dolist (mode ,modes) + (let ((hook-name + (intern (format "doom--enable-%s%s-h" ',name + (if (eq mode t) "" (format "-in-%s" mode)))))) + (fset hook-name #',fn) + (if (eq mode t) + (add-to-list 'auto-minor-mode-magic-alist (cons hook-name #',name)) + (add-hook (intern (format "%s-hook" mode)) hook-name))))) + `((add-hook 'change-major-mode-after-body-hook #',fn))))) (match `((add-to-list 'auto-minor-mode-alist (cons ,match #',name)))))))))