diff options
| author | Stefan Monnier | 2004-03-18 02:48:51 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-03-18 02:48:51 +0000 |
| commit | 165a7fbe6655561aeb78fd2856b60f4c83d9c635 (patch) | |
| tree | e1c2497e3eadd6c3c5905368207a979b16540b4c | |
| parent | 153e2961356ab877e71ed2803e4df1cf7fbb74ca (diff) | |
| download | emacs-165a7fbe6655561aeb78fd2856b60f4c83d9c635.tar.gz emacs-165a7fbe6655561aeb78fd2856b60f4c83d9c635.zip | |
(log-edit-font-lock-keywords): New var.
(log-edit-mode): Use it.
| -rw-r--r-- | lisp/log-edit.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/log-edit.el b/lisp/log-edit.el index fa7ea4e842d..99ff6cc1586 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; log-edit.el --- Major mode for editing CVS commit messages | 1 | ;;; log-edit.el --- Major mode for editing CVS commit messages |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999,2000,2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999,2000,2003,2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> | 5 | ;; Author: Stefan Monnier <monnier@cs.yale.edu> |
| 6 | ;; Keywords: pcl-cvs cvs commit log | 6 | ;; Keywords: pcl-cvs cvs commit log |
| @@ -299,6 +299,11 @@ automatically." | |||
| 299 | ;;; Actual code | 299 | ;;; Actual code |
| 300 | ;;; | 300 | ;;; |
| 301 | 301 | ||
| 302 | (defar log-edit-font-lock-keywords | ||
| 303 | '(("\\`\\(Summary:\\)\\(.*\\)" | ||
| 304 | (1 font-lock-keyword-face) | ||
| 305 | (2 font-lock-function-name-face)))) | ||
| 306 | |||
| 302 | ;;;###autoload | 307 | ;;;###autoload |
| 303 | (defun log-edit (callback &optional setup listfun buffer &rest ignore) | 308 | (defun log-edit (callback &optional setup listfun buffer &rest ignore) |
| 304 | "Setup a buffer to enter a log message. | 309 | "Setup a buffer to enter a log message. |
| @@ -337,6 +342,8 @@ the package from which this is used might also provide additional | |||
| 337 | commands (under C-x v for VC, for example). | 342 | commands (under C-x v for VC, for example). |
| 338 | 343 | ||
| 339 | \\{log-edit-mode-map}" | 344 | \\{log-edit-mode-map}" |
| 345 | (set (make-local-variable 'font-lock-defaults) | ||
| 346 | '(log-edit-font-lock-keywords t)) | ||
| 340 | (make-local-variable 'log-edit-comment-ring-index)) | 347 | (make-local-variable 'log-edit-comment-ring-index)) |
| 341 | 348 | ||
| 342 | (defun log-edit-hide-buf (&optional buf where) | 349 | (defun log-edit-hide-buf (&optional buf where) |