mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/vc/log-edit.el: Fix highlighting of summary when it's the first line.

Browse source 
(log-edit--match-first-line): New function.
(log-edit-font-lock-keywords): Use it.
(log-edit-mode): Make jit-lock-defer-multiline work.
This commit is contained in:
Stefan Monnier 2014-01-13 10:33:01 -05:00
parent 237166b329
commit c055d65460
2 changed files with 27 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/vc/log-edit.el
View file

@ -355,6 +355,21 @@ The first subexpression is the actual text of the field.")
(set-match-data (list start (point)))
(point))))
(defun log-edit--match-first-line (limit)
(let ((start (point)))
(rfc822-goto-eoh)
(skip-chars-forward "\n")
(and (< start (line-end-position))
(< (point) limit)
(save-excursion
(not (re-search-backward "^Summary:[ \t]*[^ \t\n]" nil t)))
(looking-at ".+")
(progn
(goto-char (match-end 0))
(put-text-property (point-min) (point)
'jit-lock-defer-multiline t)
(point)))))
(defvar log-edit-font-lock-keywords
;; Copied/inspired by message-font-lock-keywords.
`((log-edit-match-to-eoh
@ -370,7 +385,8 @@ The first subexpression is the actual text of the field.")
nil lax))
("^\n"
(progn (goto-char (match-end 0)) (1+ (match-end 0))) nil
(0 '(:height 0.1 :inverse-video t))))))
(0 '(:height 0.1 :inverse-video t))))
(log-edit--match-first-line (0 'log-edit-summary))))
(defvar log-edit-font-lock-gnu-style nil
"If non-nil, highlight common failures to follow the GNU coding standards.")
@ -473,6 +489,7 @@ commands (under C-x v for VC, for example).
\\{log-edit-mode-map}"
(set (make-local-variable 'font-lock-defaults)
'(log-edit-font-lock-keywords t))
(setq-local jit-lock-contextually t) ;For the "first line is summary".
(make-local-variable 'log-edit-comment-ring-index)
(add-hook 'kill-buffer-hook 'log-edit-remember-comment nil t)
(hack-dir-local-variables-non-file-buffer))