Improve deprecation warnings for modules

Hopefully makes them easier to understand.
This commit is contained in:
Henrik Lissner 2019-05-21 17:17:23 -04:00
parent fbf4f78e8e
commit efb06ee42f
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

@ -349,9 +349,12 @@ to least)."
(new (assq module obsolete)))
(let ((newkeys (cdr new)))
(if (null newkeys)
(message "WARNING %s is deprecated" key)
(message "WARNING %s is deprecated, enabling %s instead"
(list category module) newkeys)
(message "WARNING %s module was removed" key)
(if (cdr 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)
(dolist (key newkeys)
(push (if flags