From: Paul Eggert <eggert@twinsun.com>
Date: Tue, 20 Jul 1993 02:25:19 +0000 (+0000)
Subject: (vc-rcs-status): Use "-", not " ", to separate locks, so that the RCS
X-Git-Tag: emacs-19.34~11681
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5baea11cb6d3bdf1d6f9e1fbd99274023103a56;p=emacs.git

(vc-rcs-status): Use "-", not " ", to separate locks, so that the RCS
minor mode doesn't contain internal spaces.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 092084f6906..c120b7cea3f 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -210,20 +210,20 @@ visiting FILE."
 	      (let* ((lock-pattern
 		      (concat "[ \b\t\n\v\f\r]+\\("
 			      (regexp-quote (user-login-name))
-			      ":\\|\\)"))
+			      ":\\)?"))
 		     (locks
 		      (save-restriction
 			(narrow-to-region (match-beginning 1) (match-end 1))
 			(goto-char (point-min))
 			(while (re-search-forward lock-pattern nil t)
-			  (replace-match " " t t))
+			  (replace-match "-" t t))
 			(buffer-string)))
 		     (status
 		      (if (not (string-equal locks ""))
 			  locks
 			(goto-char (point-min))
 			(if (looking-at "head[ \b\t\n\v\f\r]+\\([.0-9]+\\)")
-			    (concat " " (buffer-substring (match-beginning 1)
+			    (concat "-" (buffer-substring (match-beginning 1)
 							  (match-end 1)))
 			  " @@"))))
 		;; Clean work buffer.