syntax highlight fix for add-log.el

[Marcelo Toledo]

The manual describing a Change Log entry, says: (...) "Aside from these
header lines, every line in the change log starts with a space or a
tab.".

The font-lock was not highlighting lines started with spaces, added
support for it and corrected an `indent-region' call.

Can I install it?

Index: lisp/add-log.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/add-log.el,v
retrieving revision 1.156
diff -c -r1.156 add-log.el
*** lisp/add-log.el     21 Mar 2005 14:37:35 -0000      1.156
--- lisp/add-log.el     3 Apr 2005 02:12:14 -0000
***************
*** 225,231 ****
        (2 'change-log-email-face)))
      ;;
      ;; File names.
!     ("^\t\\* \\([^ ,:([\n]+\\)"
       (1 'change-log-file-face)
       ;; Possibly further names in a list:
       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))
--- 225,231 ----
        (2 'change-log-email-face)))
      ;;
      ;; File names.
!     ("^\\(?: \\{8\\}\\|\t\\)\\* \\([^ ,:([\n]+\\)"
       (1 'change-log-file-face)
       ;; Possibly further names in a list:
       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))
***************
*** 310,316 ****
                          (mark) (point)))
      (when (fboundp 'log-edit-previous-comment)
        (log-edit-previous-comment arg)
!       (indent-region (point-min) (point-max))
        (goto-char (point-min))
        (unless (save-restriction (widen) (bolp))
        (delete-region (point) (progn (skip-chars-forward " \t\n") (point))))
--- 310,316 ----
                          (mark) (point)))
      (when (fboundp 'log-edit-previous-comment)
        (log-edit-previous-comment arg)
!       (indent-region (point-min) (point-max) nil)
        (goto-char (point-min))
        (unless (save-restriction (widen) (bolp))
        (delete-region (point) (progn (skip-chars-forward " \t\n") (point))))

-- 
Marcelo Toledo
address@hidden
http://www.marcelotoledo.org
Mobile: 55 71 9116-1101