# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 824272375 0
# Node ID 20d4400de24eed7af2138acf545dc7678ceea82a
# Parent  fa33ca883a52de35ddfc34a1d453ec27295fb4b9
(vc-consult-rcs-headers): Ignore text properties.

diff -r fa33ca883a52 -r 20d4400de24e lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Wed Feb 14 04:26:43 1996 +0000
+++ b/lisp/vc-hooks.el	Wed Feb 14 04:32:55 1996 +0000
@@ -393,7 +393,8 @@
 		 (looking-at "[^ ]+ \\([0-9.]+\\) ")))
 	(goto-char (match-end 0))
 	;; if found, store the revision number ...
-	(setq version (buffer-substring (match-beginning 1) (match-end 1)))
+	(setq version (buffer-substring-no-properties (match-beginning 1)
+						      (match-end 1)))
 	;; ... and check for the locking state
 	(cond 
 	 ((looking-at
@@ -409,7 +410,8 @@
 	   ;; revision is locked by some user
 	   ((looking-at "\\([^ ]+\\) \\$")
 	    (setq locking-user
-		  (buffer-substring (match-beginning 1) (match-end 1)))
+		  (buffer-substring-no-properties (match-beginning 1)
+						  (match-end 1)))
 	    (setq status 'rev-and-lock))
 	   ;; everything else: false
 	   (nil)))
@@ -422,13 +424,15 @@
 				   "Revision: \\([0-9.]+\\) \\$")
 			   nil t)
 	;; if found, store the revision number ...
-	(setq version (buffer-substring (match-beginning 1) (match-end 1)))
+	(setq version (buffer-substring-no-properties (match-beginning 1)
+						      (match-end 1)))
 	;; and see if there's any lock information
 	(goto-char (point-min))
 	(if (re-search-forward (concat "\\$" "Locker:") nil t)
 	    (cond ((looking-at " \\([^ ]+\\) \\$")
-		   (setq locking-user (buffer-substring (match-beginning 1)
-							(match-end 1)))
+		   (setq locking-user (buffer-substring-no-properties
+				       (match-beginning 1)
+				       (match-end 1)))
 		   (setq status 'rev-and-lock))
 		  ((looking-at " *\\$") 
 		   (setq locking-user 'none)