refactor: use print! to emit doom! module warnings
This commit is contained in:
parent
b598d41ffb
commit
b395bd5392
1 changed files with 7 additions and 5 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue