diff options
author | Glenn Morris <rgm@gnu.org> | 2009-09-01 07:24:13 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-09-01 07:24:13 +0000 |
commit | c4f6e489aa5c0d3559f442587b32b01cf7dbdb8d (patch) | |
tree | 77117e072ab68f0ad7a1039105faaac2368d5429 /lisp/add-log.el | |
parent | d80619faefb04b289ea2dfb9d83256d3a61159f6 (diff) |
Mark face aliases with "-face" suffix as obsolete.
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r-- | lisp/add-log.el | 30 |
1 files changed, 13 insertions, 17 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 30c9520a66..c8b34a6e08 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -1,7 +1,8 @@ ;;; add-log.el --- change log maintenance commands for Emacs ;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2001, -;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: tools @@ -180,64 +181,59 @@ Note: The search is conducted only within 10%, at the beginning of the file." "Face used to highlight dates in date lines." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-date-face 'face-alias 'change-log-date) +(define-obsolete-face-alias 'change-log-date-face 'change-log-date "22.1") (defface change-log-name '((t (:inherit font-lock-constant-face))) "Face for highlighting author names." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-name-face 'face-alias 'change-log-name) +(define-obsolete-face-alias 'change-log-name-face 'change-log-name "22.1") (defface change-log-email '((t (:inherit font-lock-variable-name-face))) "Face for highlighting author email addresses." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-email-face 'face-alias 'change-log-email) +(define-obsolete-face-alias 'change-log-email-face 'change-log-email "22.1") (defface change-log-file '((t (:inherit font-lock-function-name-face))) "Face for highlighting file names." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-file-face 'face-alias 'change-log-file) +(define-obsolete-face-alias 'change-log-file-face 'change-log-file "22.1") (defface change-log-list '((t (:inherit font-lock-keyword-face))) "Face for highlighting parenthesized lists of functions or variables." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-list-face 'face-alias 'change-log-list) +(define-obsolete-face-alias 'change-log-list-face 'change-log-list "22.1") (defface change-log-conditionals '((t (:inherit font-lock-variable-name-face))) "Face for highlighting conditionals of the form `[...]'." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-conditionals-face 'face-alias 'change-log-conditionals) +(define-obsolete-face-alias 'change-log-conditionals-face + 'change-log-conditionals "22.1") (defface change-log-function '((t (:inherit font-lock-variable-name-face))) "Face for highlighting items of the form `<....>'." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-function-face 'face-alias 'change-log-function) +(define-obsolete-face-alias 'change-log-function-face + 'change-log-function "22.1") (defface change-log-acknowledgement '((t (:inherit font-lock-comment-face))) "Face for highlighting acknowledgments." :version "21.1" :group 'change-log) -;; backward-compatibility alias -(put 'change-log-acknowledgement-face 'face-alias 'change-log-acknowledgement) +(define-obsolete-face-alias 'change-log-acknowledgement-face + 'change-log-acknowledgement "22.1") (defconst change-log-file-names-re "^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)") (defconst change-log-start-entry-re "^\\sw.........[0-9:+ ]*") |