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
[EMAIL PROTECTED]
http://www.marcelotoledo.org
Mobile: 55 71 9116-1101
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
