Mercurial > emacs

changeset 12402:62e4bc95cecd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-consult-rcs-headers): Use an even more pedantic regexp to match RCS time strings. Improved efficiency by using looking-at instead of re-search "\\=...
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 Jun 1995 19:06:15 +0000
parents 5c1a20283286
children f863ead116f0
files lisp/vc-hooks.el
diffstat 1 files changed, 24 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Tue Jun 27 19:03:51 1995 +0000
+++ b/lisp/vc-hooks.el	Tue Jun 27 19:06:15 1995 +0000
@@ -346,29 +346,30 @@
 	(let ((rev (buffer-substring (match-beginning 1)
 				     (match-end 1))))
 	  ;; ... and check for the locking state
-	  (if (re-search-forward 
-	       (concat "\\=[0-9]+[/-][0-9]+[/-][0-9]+ "             ; date
-		          "[0-9]+:[0-9]+:[0-9]+\\([+-][0-9:]+\\)? " ; time
-		          "[^ ]+ [^ ]+ ")                 ; author & state
-	       nil t)
-	      (cond 
-	       ;; unlocked revision
-	       ((looking-at "\\$")
-		(vc-file-setprop file 'vc-workfile-version rev)
-		(vc-file-setprop file 'vc-locking-user 'none)
-		'rev-and-lock)
-	       ;; revision is locked by some user
-	       ((looking-at "\\([^ ]+\\) \\$")
-		(vc-file-setprop file 'vc-workfile-version rev)
-		(vc-file-setprop file 'vc-locking-user 
-				 (buffer-substring (match-beginning 1)
-						   (match-end 1)))
-		'rev-and-lock)
-	       ;; everything else: false
-	       (nil))
-	    ;; unexpected information in
-	    ;; keyword string --> quit
-	    nil)))
+	  (cond 
+	   ((looking-at
+	     (concat "[0-9]+[/-][01][0-9][/-][0-3][0-9] "             ; date
+	      "[0-2][0-9]:[0-5][0-9]+:[0-6][0-9]+\\([+-][0-9:]+\\)? " ; time
+		     "[^ ]+ [^ ]+ "))                       ; author & state
+	    (goto-char (match-end 0)) ; [0-6] in regexp handles leap seconds
+	    (cond 
+	     ;; unlocked revision
+	     ((looking-at "\\$")
+	      (vc-file-setprop file 'vc-workfile-version rev)
+	      (vc-file-setprop file 'vc-locking-user 'none)
+	      'rev-and-lock)
+	     ;; revision is locked by some user
+	     ((looking-at "\\([^ ]+\\) \\$")
+	      (vc-file-setprop file 'vc-workfile-version rev)
+	      (vc-file-setprop file 'vc-locking-user 
+			       (buffer-substring (match-beginning 1)
+						 (match-end 1)))
+	      'rev-and-lock)
+	     ;; everything else: false
+	     (nil)))
+	   ;; unexpected information in
+	   ;; keyword string --> quit
+	   (nil))))
        ;; search for $Revision
        ;; --------------------
        ((re-search-forward (concat "\\$"