+(set-advertised-calling-convention
+ ;; New code should always provide the `when' argument.
+ 'define-obsolete-variable-alias
+ '(obsolete-name current-name when &optional docstring) "23.1")
+
+;; FIXME This is only defined in this file because the variable- and
+;; function- versions are too. Unlike those two, this one is not used
+;; by the byte-compiler (would be nice if it could warn about obsolete
+;; faces, but it doesn't really do anything special with faces).
+;; It only really affects M-x describe-face output.
+(defmacro define-obsolete-face-alias (obsolete-face current-face when)
+ "Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete.
+The string WHEN gives the Emacs version where OBSOLETE-FACE became
+obsolete."
+ `(progn
+ (put ,obsolete-face 'face-alias ,current-face)
+ ;; Used by M-x describe-face.
+ (put ,obsolete-face 'obsolete-face (or (purecopy ,when) t))))