Mercurial > emacs
changeset 104751:0299ec0f58e6
(define-obsolete-face-alias): New macro.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 31 Aug 2009 01:32:36 +0000 |
| parents | d2e8b86ba828 |
| children | fcbe482879e0 |
| files | lisp/emacs-lisp/byte-run.el |
| diffstat | 1 files changed, 17 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-run.el Mon Aug 31 00:28:37 2009 +0000 +++ b/lisp/emacs-lisp/byte-run.el Mon Aug 31 01:32:36 2009 +0000 @@ -1,7 +1,7 @@ ;;; byte-run.el --- byte-compiler support for inlining -;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com> ;; Hallvard Furuseth <hbf@ulrik.uio.no> @@ -180,6 +180,21 @@ (defvaralias ,obsolete-name ,current-name ,docstring) (make-obsolete-variable ,obsolete-name ,current-name ,when))) +;; 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 + &optional when) + "Make OBSOLETE-FACE a face alias for CURRENT-FACE and mark it obsolete. +The optional 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 ,when t)))) + (defmacro dont-compile (&rest body) "Like `progn', but the body always runs interpreted (not compiled). If you think you need this, you're probably making a mistake somewhere."