refactor: use print! to emit doom! module warnings

This commit is contained in:
Henrik Lissner 2022-09-16 00:03:36 +02:00
parent b598d41ffb
commit b395bd5392
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -260,12 +260,14 @@ those directories."
(when-let (new (assq module obsolete)) (when-let (new (assq module obsolete))
(let ((newkeys (cdr new))) (let ((newkeys (cdr new)))
(if (null newkeys) (if (null newkeys)
(message "WARNING %s module was removed" (list category module)) (print! (warn "%s module was removed"))
(if (cdr newkeys) (if (cdr newkeys)
(message "WARNING %s module was removed and split into the %s modules" (print! (warn "%s module was removed and split into the %s modules")
(list category module) (mapconcat #'prin1-to-string newkeys ", ")) (list category module)
(message "WARNING %s module was moved to %s" (mapconcat #'prin1-to-string newkeys ", "))
(list category module) (car newkeys))) (print! (warn "%s module was moved to %s")
(list category module)
(car newkeys)))
(push category mplist) (push category mplist)
(dolist (key newkeys) (dolist (key newkeys)
(push (if flags (push (if flags