Convert integer :builtin to string and warn user.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
This commit is contained in:
Rüdiger Sonderfeld 2013-03-04 01:52:34 +01:00
parent 2c31220504
commit 9fb0c6b1ba

View File

@ -177,6 +177,9 @@ return 'builtin."
package-or-source)) package-or-source))
(builtin (plist-get def :builtin))) (builtin (plist-get def :builtin)))
(when (integerp builtin)
(warn "Integer argument for :builtin is obsolete. Use strings instead.")
(setq builtin (number-to-string builtin)))
(if (and builtin (version<= builtin emacs-version)) (if (and builtin (version<= builtin emacs-version))
'builtin 'builtin
(plist-get def :type)))) (plist-get def :type))))