Mercurial > emacs
changeset 9377:45228a0f6b78
(change-log-mode): Set font-lock-keywords locally.
(change-log-font-lock-keywords): New variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Oct 1994 09:53:28 +0000 |
| parents | f0ac347309e2 |
| children | 1c9b8b3971a0 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Fri Oct 07 09:52:36 1994 +0000 +++ b/lisp/add-log.el Fri Oct 07 09:53:28 1994 +0000 @@ -43,6 +43,12 @@ "*Electronic mail address of user, for inclusion in ChangeLog daily headers. This defaults to the value of `user-mail-address'.") +(defvar change-log-font-lock-keywords + '(("^[SMTWF].+$" . font-lock-function-name-face) ; Date line. + ("^\t\\* \\([^ :\n]+\\)" 1 font-lock-comment-face) ; File name. + ("\(\\([^)\n]+\\)\)" 1 font-lock-keyword-face)) ; Function name. + "Additional expressions to highlight in Change Log mode.") + (defun change-log-name () (or change-log-default-name (if (eq system-type 'vax-vms) @@ -259,6 +265,7 @@ (set (make-local-variable 'page-delimiter) "^\\<\\|^\f") (set (make-local-variable 'version-control) 'never) (set (make-local-variable 'adaptive-fill-regexp) "\\s *") + (set (make-local-variable 'font-lock-keywords) change-log-font-lock-keywords) (run-hooks 'change-log-mode-hook)) (defvar change-log-mode-map nil