/[emacs]/emacs/lisp/add-log.el
ViewVC logotype

Diff of /emacs/lisp/add-log.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.163 by jurta, Sun May 29 16:09:04 2005 UTC revision 1.164 by miles, Fri Jun 10 07:26:14 2005 UTC
# Line 166  Note: The search is conducted only withi Line 166  Note: The search is conducted only withi
166    :type '(repeat regexp)    :type '(repeat regexp)
167    :group 'change-log)    :group 'change-log)
168    
169  (defface change-log-date-face  (defface change-log-date
170    '((t (:inherit font-lock-string-face)))    '((t (:inherit font-lock-string-face)))
171    "Face used to highlight dates in date lines."    "Face used to highlight dates in date lines."
172    :version "21.1"    :version "21.1"
173    :group 'change-log)    :group 'change-log)
174    ;; backward-compatibility alias
175    (put 'change-log-date-face 'face-alias 'change-log-date)
176    
177  (defface change-log-name-face  (defface change-log-name
178    '((t (:inherit font-lock-constant-face)))    '((t (:inherit font-lock-constant-face)))
179    "Face for highlighting author names."    "Face for highlighting author names."
180    :version "21.1"    :version "21.1"
181    :group 'change-log)    :group 'change-log)
182    ;; backward-compatibility alias
183    (put 'change-log-name-face 'face-alias 'change-log-name)
184    
185  (defface change-log-email-face  (defface change-log-email
186    '((t (:inherit font-lock-variable-name-face)))    '((t (:inherit font-lock-variable-name-face)))
187    "Face for highlighting author email addresses."    "Face for highlighting author email addresses."
188    :version "21.1"    :version "21.1"
189    :group 'change-log)    :group 'change-log)
190    ;; backward-compatibility alias
191    (put 'change-log-email-face 'face-alias 'change-log-email)
192    
193  (defface change-log-file-face  (defface change-log-file
194    '((t (:inherit font-lock-function-name-face)))    '((t (:inherit font-lock-function-name-face)))
195    "Face for highlighting file names."    "Face for highlighting file names."
196    :version "21.1"    :version "21.1"
197    :group 'change-log)    :group 'change-log)
198    ;; backward-compatibility alias
199    (put 'change-log-file-face 'face-alias 'change-log-file)
200    
201  (defface change-log-list-face  (defface change-log-list
202    '((t (:inherit font-lock-keyword-face)))    '((t (:inherit font-lock-keyword-face)))
203    "Face for highlighting parenthesized lists of functions or variables."    "Face for highlighting parenthesized lists of functions or variables."
204    :version "21.1"    :version "21.1"
205    :group 'change-log)    :group 'change-log)
206    ;; backward-compatibility alias
207    (put 'change-log-list-face 'face-alias 'change-log-list)
208    
209  (defface change-log-conditionals-face  (defface change-log-conditionals
210    '((t (:inherit font-lock-variable-name-face)))    '((t (:inherit font-lock-variable-name-face)))
211    "Face for highlighting conditionals of the form `[...]'."    "Face for highlighting conditionals of the form `[...]'."
212    :version "21.1"    :version "21.1"
213    :group 'change-log)    :group 'change-log)
214    ;; backward-compatibility alias
215    (put 'change-log-conditionals-face 'face-alias 'change-log-conditionals)
216    
217  (defface change-log-function-face  (defface change-log-function
218    '((t (:inherit font-lock-variable-name-face)))    '((t (:inherit font-lock-variable-name-face)))
219    "Face for highlighting items of the form `<....>'."    "Face for highlighting items of the form `<....>'."
220    :version "21.1"    :version "21.1"
221    :group 'change-log)    :group 'change-log)
222    ;; backward-compatibility alias
223    (put 'change-log-function-face 'face-alias 'change-log-function)
224    
225  (defface change-log-acknowledgement-face  (defface change-log-acknowledgement
226    '((t (:inherit font-lock-comment-face)))    '((t (:inherit font-lock-comment-face)))
227    "Face for highlighting acknowledgments."    "Face for highlighting acknowledgments."
228    :version "21.1"    :version "21.1"
229    :group 'change-log)    :group 'change-log)
230    ;; backward-compatibility alias
231    (put 'change-log-acknowledgement-face 'face-alias 'change-log-acknowledgement)
232    
233  (defvar change-log-font-lock-keywords  (defvar change-log-font-lock-keywords
234    '(;;    '(;;
235      ;; Date lines, new and old styles.      ;; Date lines, new and old styles.
236      ("^\\sw.........[0-9:+ ]*"      ("^\\sw.........[0-9:+ ]*"
237       (0 'change-log-date-face)       (0 'change-log-date)
238       ;; Name and e-mail; some people put e-mail in parens, not angles.       ;; Name and e-mail; some people put e-mail in parens, not angles.
239       ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil       ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
240        (1 'change-log-name-face)        (1 'change-log-name)
241        (2 'change-log-email-face)))        (2 'change-log-email)))
242      ;;      ;;
243      ;; File names.      ;; File names.
244      ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)"      ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)"
245       (2 'change-log-file-face)       (2 'change-log-file)
246       ;; Possibly further names in a list:       ;; Possibly further names in a list:
247       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file))
248       ;; Possibly a parenthesized list of names:       ;; Possibly a parenthesized list of names:
249       ("\\= (\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"       ("\\= (\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
250        nil nil (1 'change-log-list-face))        nil nil (1 'change-log-list))
251       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
252        nil nil (1 'change-log-list-face)))        nil nil (1 'change-log-list)))
253      ;;      ;;
254      ;; Function or variable names.      ;; Function or variable names.
255      ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"      ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
256       (2 'change-log-list-face)       (2 'change-log-list)
257       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil
258        (1 'change-log-list-face)))        (1 'change-log-list)))
259      ;;      ;;
260      ;; Conditionals.      ;; Conditionals.
261      ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals-face))      ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals))
262      ;;      ;;
263      ;; Function of change.      ;; Function of change.
264      ("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function-face))      ("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function))
265      ;;      ;;
266      ;; Acknowledgements.      ;; Acknowledgements.
267      ;; Don't include plain "From" because that is vague;      ;; Don't include plain "From" because that is vague;
# Line 254  Note: The search is conducted only withi Line 270  Note: The search is conducted only withi
270      ;; is to put the name of the author of the changes at the top      ;; is to put the name of the author of the changes at the top
271      ;; of the change log entry.      ;; of the change log entry.
272      ("\\(^\\( +\\|\t\\)\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"      ("\\(^\\( +\\|\t\\)\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"
273       3 'change-log-acknowledgement-face))       3 'change-log-acknowledgement))
274    "Additional expressions to highlight in Change Log mode.")    "Additional expressions to highlight in Change Log mode.")
275    
276  (defvar change-log-mode-map  (defvar change-log-mode-map

Legend:
Removed from v.1.163  
changed lines
  Added in v.1.164

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26