awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix #1719: sole :when in def-project-mode!

Browse Source
This commit is contained in:
Henrik Lissner
2019-08-29 20:05:34 -04:00
parent 3a10e948aa
commit d1a299b9f5
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
core/core-projects.el
View File

@ -239,6 +239,7 @@ Relevant: `doom-project-hook'."
'(project-file-exists-p! '(project-file-exists-p!
,(if (stringp (car files)) (cons 'and files) files)))) ,(if (stringp (car files)) (cons 'and files) files))))
,(or when t) ,(or when t)
(,name 1)))))
(if modes (if modes
`((dolist (mode ,modes) `((dolist (mode ,modes)
(let ((hook-name (let ((hook-name
@ -246,7 +247,8 @@ Relevant: `doom-project-hook'."
(if (eq mode t) "" (format "-in-%s" mode)))))) (if (eq mode t) "" (format "-in-%s" mode))))))
(fset hook-name #',fn) (fset hook-name #',fn)
(if (eq mode t) (if (eq mode t)
(add-to-list 'auto-minor-mode-magic-alist (cons hook-name #',name)) (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))))) `((add-hook 'change-major-mode-after-body-hook #',fn)))))
(match (match
`((add-to-list 'auto-minor-mode-alist (cons ,match #',name))))))))) `((add-to-list 'auto-minor-mode-alist (cons ,match #',name)))))))))