(vc-consult-rcs-headers): Ignore text properties.

1 files changed, 9 insertions, 5 deletions

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 27b57e17de1..c255be1a93d 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -393,7 +393,8 @@ See also variable `vc-consult-headers'.")
 		 (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 @@ See also variable `vc-consult-headers'.")
 	   ;; 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 @@ See also variable `vc-consult-headers'.")
 				   "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)