Improve deprecation warnings for modules
Hopefully makes them easier to understand.
This commit is contained in:
parent
fbf4f78e8e
commit
efb06ee42f
1 changed files with 6 additions and 3 deletions
|
@ -349,9 +349,12 @@ to least)."
|
||||||
(new (assq module obsolete)))
|
(new (assq module obsolete)))
|
||||||
(let ((newkeys (cdr new)))
|
(let ((newkeys (cdr new)))
|
||||||
(if (null newkeys)
|
(if (null newkeys)
|
||||||
(message "WARNING %s is deprecated" key)
|
(message "WARNING %s module was removed" key)
|
||||||
(message "WARNING %s is deprecated, enabling %s instead"
|
(if (cdr newkeys)
|
||||||
(list category module) newkeys)
|
(message "WARNING %s module was removed and split into the %s modules"
|
||||||
|
(list category module) (mapconcat #'prin1-to-string newkeys ", "))
|
||||||
|
(message "WARNING %s module was moved to %s"
|
||||||
|
(list category module) (car newkeys)))
|
||||||
(push category modules)
|
(push category modules)
|
||||||
(dolist (key newkeys)
|
(dolist (key newkeys)
|
||||||
(push (if flags
|
(push (if flags
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue