aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2004-03-18 02:48:51 +0000
committerStefan Monnier2004-03-18 02:48:51 +0000
commit165a7fbe6655561aeb78fd2856b60f4c83d9c635 (patch)
treee1c2497e3eadd6c3c5905368207a979b16540b4c
parent153e2961356ab877e71ed2803e4df1cf7fbb74ca (diff)
downloademacs-165a7fbe6655561aeb78fd2856b60f4c83d9c635.tar.gz
emacs-165a7fbe6655561aeb78fd2856b60f4c83d9c635.zip
(log-edit-font-lock-keywords): New var.
(log-edit-mode): Use it.
-rw-r--r--lisp/log-edit.el9
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
337commands (under C-x v for VC, for example). 342commands (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)