(change-log-mode): Use fill-nobreak-predicate to

avoid that filling introduces lines with a single asterisk.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be77e72e924a59b27be86c5f10e1b5f556f4a6cb..ba1fb92aaabf4581b9ec7b0f78d18d5352f9cb24 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2007-07-18  Martin Rudalics  <rudalics@gmx.at>
+
+       * add-log.el (change-log-mode): Use fill-nobreak-predicate to
+       avoid that filling introduces lines with a single asterisk.
+
+       * kmacro.el (kmacro-end-macro): When ignoring empty macro
+       avoid incorrect kmacro-ring-empty-p messages.
+       Reported by Michael Schierl <schierlm@gmx.de>
+
 2007-07-17  Michael Albinus  <michael.albinus@gmx.de>
 
        * files.el (file-remote-p): Introduce optional parameter

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 3ec00b81b350e7f421f5131a7f82491a75be6e72..0ff82bba2f598be4bbc9209b78ffbe3ce6ca8052 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -699,6 +699,11 @@ Runs `change-log-mode-hook'.
        show-trailing-whitespace t)
   (set (make-local-variable 'fill-paragraph-function)
        'change-log-fill-paragraph)
+  ;; Avoid that filling leaves behind a single "*" on a line.
+  (add-hook 'fill-nobreak-predicate
+           '(lambda ()
+              (looking-back "^\\s *\\*\\s *" (line-beginning-position))) 
+           nil t)
   (set (make-local-variable 'indent-line-function) 'change-log-indent)
   (set (make-local-variable 'tab-always-indent) nil)
   ;; We really do want "^" in paragraph-start below: it is only the