[Emacs-diffs] /srv/bzr/emacs/trunk r103783: * lisp/vc/add-log.el (add-change-log-entry): Don't use whitespace

[Stefan Monnier]

------------------------------------------------------------
revno: 103783
author: Jason Merrill <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2011-03-30 17:56:04 -0400
message:
  * lisp/vc/add-log.el (add-change-log-entry): Don't use whitespace
  syntax class to search for whitespace on a single line
  (Message-ID: <address@hidden>).
modified:
  lisp/ChangeLog
  lisp/vc/add-log.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-30 01:06:00 +0000
+++ b/lisp/ChangeLog    2011-03-30 21:56:04 +0000
@@ -1,3 +1,9 @@
+2011-03-30  Jason Merrill  <address@hidden>  (tiny change)
+
+       * vc/add-log.el (add-change-log-entry): Don't use whitespace
+       syntax class to search for whitespace on a single line
+       (Message-ID: <address@hidden>).
+
 2011-03-30  Leo Liu  <address@hidden>
 
        * abbrev.el (abbrev-edit-save-to-file, abbrev-edit-save-buffer):

=== modified file 'lisp/vc/add-log.el'
--- a/lisp/vc/add-log.el        2011-01-25 04:08:28 +0000
+++ b/lisp/vc/add-log.el        2011-03-30 21:56:04 +0000
@@ -886,7 +886,7 @@
              (point))))
 
       ;; Now insert the new line for this item.
-      (cond ((re-search-forward "^\\s *\\*\\s *$" bound t)
+      (cond ((re-search-forward "^\\s *\\* *$" bound t)
              ;; Put this file name into the existing empty item.
              (if item
                  (insert item)))
@@ -928,7 +928,7 @@
        ;; No function name, so put in a colon unless we have just a star.
        (unless (save-excursion
                  (beginning-of-line 1)
-                 (looking-at "\\s *\\(\\*\\s *\\)?$"))
+                 (looking-at "\\s *\\(\\* *\\)?$"))
          (insert ": ")
          (if version (insert version ?\s)))
       ;; Make it easy to get rid of the function name.