fix: void-function (setf plist-get) error

Only affected users on Emacs 27, before a generalized setter was defined
for `plist-get`.

Amend: 50b9afbb2d
This commit is contained in:
Henrik Lissner
2025-01-13 12:36:05 -05:00
parent 01666572d7
commit 311ad23fd4

View File

@ -585,8 +585,9 @@ windows, switch to `doom-fallback-buffer'. Otherwise, delegate to original
Themes wouldn't call `provide-theme' unless they were a color-scheme, so treat Themes wouldn't call `provide-theme' unless they were a color-scheme, so treat
them as such. Also intended as a helper for `doom--theme-is-colorscheme-p'." them as such. Also intended as a helper for `doom--theme-is-colorscheme-p'."
:after #'provide-theme :after #'provide-theme
(with-memoization (plist-get (get theme 'theme-properties) :kind) (or (plist-get (get theme 'theme-properties) :kind)
'color-scheme)) (cl-callf plist-put (get theme 'theme-properties) :kind
'color-scheme)))
(defun doom--theme-is-colorscheme-p (theme) (defun doom--theme-is-colorscheme-p (theme)
(unless (memq theme '(nil user changed use-package)) (unless (memq theme '(nil user changed use-package))