Mercurial > emacs
changeset 14566:20d4400de24e
(vc-consult-rcs-headers): Ignore text properties.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 14 Feb 1996 04:32:55 +0000 |
| parents | fa33ca883a52 |
| children | 94dd08880c3b |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)