(vc-rcs-annotate-command):

Set text property :vc-annotate-prefix on the annotation text.
(vc-rcs-annotate-time): Instead of searching for ": ",
search for end of text propertized with :vc-annotate-prefix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 51caf6213a9de5c54fa68d72c20742bc9d80bb2c..603c30d373ec67326129063a84cefc41956fd396 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,14 @@
+2007-03-24  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * vc-rcs.el (vc-rcs-annotate-command):
+       Set text property :vc-annotate-prefix on the annotation text.
+       (vc-rcs-annotate-time): Instead of searching for ": ",
+       search for end of text propertized with :vc-annotate-prefix.
+
 2007-03-24  Martin Rudalics  <rudalics@gmx.at>
 
        * whitespace.el (top level): Remove calls putting
-       permanent-local nil property since these are no-ops. 
+       permanent-local nil property since these are no-ops.
 
        * man.el (Man-support-local-filenames): Assure that
        default-directory exists when doing call-process.

diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index ae4758169f456d8d204515d48402c89a3ce3ce3f..a4b3b11301e4abd72516c6cd2047b094ca80e5eb 100644 (file)
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -666,6 +666,7 @@ Optional arg REVISION is a revision to annotate from."
                              "  "
                              (aref rda 0)
                              ls)
+                      :vc-annotate-prefix t
                       :vc-rcs-r/d/a rda)))
         (maphash
          (if all-me
@@ -688,9 +689,9 @@ encoded as fractional days."
   "Return the time of the next annotation (as fraction of days)
 systime, or nil if there is none.  Also, reposition point."
   (unless (eobp)
-    (search-forward ": ")
-    (vc-annotate-convert-time
-     (aref (get-text-property (point) :vc-rcs-r/d/a) 1))))
+    (prog1 (vc-annotate-convert-time
+            (aref (get-text-property (point) :vc-rcs-r/d/a) 1))
+      (goto-char (next-single-property-change (point) :vc-annotate-prefix)))))
 
 (defun vc-rcs-annotate-extract-revision-at-line ()
   (aref (get-text-property (point) :vc-rcs-r/d/a) 0))
@@ -907,7 +908,7 @@ Returns: nil            if no headers were found
          (vc-file-setprop file 'vc-state
                           (cond
                            ((eq locking-user 'none) 'up-to-date)
-                           ((string= locking-user (vc-user-login-name file)) 
+                           ((string= locking-user (vc-user-login-name file))
                              'edited)
                            (t locking-user)))
          ;; If the file has headers, we don't want to query the