561 |
|
|
562 |
(defun vc-cvs-annotate-time () |
(defun vc-cvs-annotate-time () |
563 |
"Return the time of the next annotation (as fraction of days) |
"Return the time of the next annotation (as fraction of days) |
564 |
systime , or NIL if there is none." |
systime, or nil if there is none." |
565 |
(let ((time-stamp |
(let ((time-stamp |
566 |
"^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): ")) |
"^\\S-+\\s-+\\S-+\\s-+\\([0-9]+\\)-\\(\\sw+\\)-\\([0-9]+\\)): ")) |
567 |
(if (looking-at time-stamp) |
(if (looking-at time-stamp) |