From: Jason Merrill <jason@redhat.com>
Date: Wed, 30 Mar 2011 21:56:04 +0000 (-0400)
Subject: * lisp/vc/add-log.el (add-change-log-entry): Don't use whitespace
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~453
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3e4086c9ddb2df447907aaf8fc403426b724408;p=emacs.git

* 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: <4D938140.4030905@redhat.com>).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ce8b62b333..3c9e81f0b8a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-30  Jason Merrill  <jason@redhat.com>  (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: <4D938140.4030905@redhat.com>).
+
 2011-03-30  Leo Liu  <sdl.web@gmail.com>
 
 	* abbrev.el (abbrev-edit-save-to-file, abbrev-edit-save-buffer):
diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el
index d75fcb5f4f1..e9fbdb91e97 100644
--- a/lisp/vc/add-log.el
+++ b/lisp/vc/add-log.el
@@ -886,7 +886,7 @@ non-nil, otherwise in local time."
              (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 @@ non-nil, otherwise in local time."
 	;; 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.