Mercurial > emacs

comparison lisp/add-log.el @ 104778:afa0e028ba97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mark face aliases with "-face" suffix as obsolete.
author Glenn Morris <rgm@gnu.org>
date Tue, 01 Sep 2009 07:24:13 +0000
parents 6298508aee59
children 1afcc0df808d
comparison
equal deleted inserted replaced
104777:537e1db33ebf 104778:afa0e028ba97
1 ;;; add-log.el --- change log maintenance commands for Emacs 1 ;;; add-log.el --- change log maintenance commands for Emacs
2 2
3 ;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2001, 3 ;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2001,
4 ;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
5 ;; Free Software Foundation, Inc.
5 6
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 ;; Keywords: tools 8 ;; Keywords: tools
8 9
9 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
178 (defface change-log-date 179 (defface change-log-date
179 '((t (:inherit font-lock-string-face))) 180 '((t (:inherit font-lock-string-face)))
180 "Face used to highlight dates in date lines." 181 "Face used to highlight dates in date lines."
181 :version "21.1" 182 :version "21.1"
182 :group 'change-log) 183 :group 'change-log)
183 ;; backward-compatibility alias 184 (define-obsolete-face-alias 'change-log-date-face 'change-log-date "22.1")
184 (put 'change-log-date-face 'face-alias 'change-log-date)
185 185
186 (defface change-log-name 186 (defface change-log-name
187 '((t (:inherit font-lock-constant-face))) 187 '((t (:inherit font-lock-constant-face)))
188 "Face for highlighting author names." 188 "Face for highlighting author names."
189 :version "21.1" 189 :version "21.1"
190 :group 'change-log) 190 :group 'change-log)
191 ;; backward-compatibility alias 191 (define-obsolete-face-alias 'change-log-name-face 'change-log-name "22.1")
192 (put 'change-log-name-face 'face-alias 'change-log-name)
193 192
194 (defface change-log-email 193 (defface change-log-email
195 '((t (:inherit font-lock-variable-name-face))) 194 '((t (:inherit font-lock-variable-name-face)))
196 "Face for highlighting author email addresses." 195 "Face for highlighting author email addresses."
197 :version "21.1" 196 :version "21.1"
198 :group 'change-log) 197 :group 'change-log)
199 ;; backward-compatibility alias 198 (define-obsolete-face-alias 'change-log-email-face 'change-log-email "22.1")
200 (put 'change-log-email-face 'face-alias 'change-log-email)
201 199
202 (defface change-log-file 200 (defface change-log-file
203 '((t (:inherit font-lock-function-name-face))) 201 '((t (:inherit font-lock-function-name-face)))
204 "Face for highlighting file names." 202 "Face for highlighting file names."
205 :version "21.1" 203 :version "21.1"
206 :group 'change-log) 204 :group 'change-log)
207 ;; backward-compatibility alias 205 (define-obsolete-face-alias 'change-log-file-face 'change-log-file "22.1")
208 (put 'change-log-file-face 'face-alias 'change-log-file)
209 206
210 (defface change-log-list 207 (defface change-log-list
211 '((t (:inherit font-lock-keyword-face))) 208 '((t (:inherit font-lock-keyword-face)))
212 "Face for highlighting parenthesized lists of functions or variables." 209 "Face for highlighting parenthesized lists of functions or variables."
213 :version "21.1" 210 :version "21.1"
214 :group 'change-log) 211 :group 'change-log)
215 ;; backward-compatibility alias 212 (define-obsolete-face-alias 'change-log-list-face 'change-log-list "22.1")
216 (put 'change-log-list-face 'face-alias 'change-log-list)
217 213
218 (defface change-log-conditionals 214 (defface change-log-conditionals
219 '((t (:inherit font-lock-variable-name-face))) 215 '((t (:inherit font-lock-variable-name-face)))
220 "Face for highlighting conditionals of the form `[...]'." 216 "Face for highlighting conditionals of the form `[...]'."
221 :version "21.1" 217 :version "21.1"
222 :group 'change-log) 218 :group 'change-log)
223 ;; backward-compatibility alias 219 (define-obsolete-face-alias 'change-log-conditionals-face
224 (put 'change-log-conditionals-face 'face-alias 'change-log-conditionals) 220 'change-log-conditionals "22.1")
225 221
226 (defface change-log-function 222 (defface change-log-function
227 '((t (:inherit font-lock-variable-name-face))) 223 '((t (:inherit font-lock-variable-name-face)))
228 "Face for highlighting items of the form `<....>'." 224 "Face for highlighting items of the form `<....>'."
229 :version "21.1" 225 :version "21.1"
230 :group 'change-log) 226 :group 'change-log)
231 ;; backward-compatibility alias 227 (define-obsolete-face-alias 'change-log-function-face
232 (put 'change-log-function-face 'face-alias 'change-log-function) 228 'change-log-function "22.1")
233 229
234 (defface change-log-acknowledgement 230 (defface change-log-acknowledgement
235 '((t (:inherit font-lock-comment-face))) 231 '((t (:inherit font-lock-comment-face)))
236 "Face for highlighting acknowledgments." 232 "Face for highlighting acknowledgments."
237 :version "21.1" 233 :version "21.1"
238 :group 'change-log) 234 :group 'change-log)
239 ;; backward-compatibility alias 235 (define-obsolete-face-alias 'change-log-acknowledgement-face
240 (put 'change-log-acknowledgement-face 'face-alias 'change-log-acknowledgement) 236 'change-log-acknowledgement "22.1")
241 237
242 (defconst change-log-file-names-re "^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)") 238 (defconst change-log-file-names-re "^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)")
243 (defconst change-log-start-entry-re "^\\sw.........[0-9:+ ]*") 239 (defconst change-log-start-entry-re "^\\sw.........[0-9:+ ]*")
244 240
245 (defvar change-log-font-lock-keywords 241 (defvar change-log-font-lock-keywords