Minor tweaks across the board

This commit is contained in:
Henrik Lissner 2019-05-21 00:34:32 -04:00
parent 2f569eda51
commit 2214c3175e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
7 changed files with 28 additions and 32 deletions

View file

@ -258,7 +258,7 @@ non-nil, return paths of possible modules, activated or otherwise."
(setq use-package-keywords
(use-package-list-insert keyword use-package-keywords :after)))
(defalias 'use-package-normalize/:defer-incrementally 'use-package-normalize-symlist)
(defalias 'use-package-normalize/:defer-incrementally #'use-package-normalize-symlist)
(defun use-package-handler/:defer-incrementally (name _keyword targets rest state)
(use-package-concat
`((doom-load-packages-incrementally
@ -267,11 +267,11 @@ non-nil, return paths of possible modules, activated or otherwise."
(append targets (list name)))))
(use-package-process-keywords name rest state)))
(defalias 'use-package-normalize/:after-call 'use-package-normalize-symlist)
(defalias 'use-package-normalize/:after-call #'use-package-normalize-symlist)
(defun use-package-handler/:after-call (name _keyword hooks rest state)
(if (plist-get state :demand)
(use-package-process-keywords name rest state)
(let ((fn (intern (format "doom|transient-hook--load-%s" name))))
(let ((fn (make-symbol (format "doom|transient-hook--load-%s" name))))
(use-package-concat
`((fset ',fn
(lambda (&rest _)
@ -284,8 +284,8 @@ non-nil, return paths of possible modules, activated or otherwise."
(dolist (hook (cdr deferral-list))
(advice-remove hook #',fn)
(remove-hook hook #',fn))
(setq doom--deferred-packages-alist
(delq deferral-list doom--deferred-packages-alist))))))
(delq! deferral-list doom--deferred-packages-alist)
(unintern ',fn nil)))))
(let (forms)
(dolist (hook hooks forms)
(push (if (string-match-p "-\\(?:functions\\|hook\\)$" (symbol-name hook))