# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 743801326 0
# Node ID 52d82c1a394810d78d98273a0bfec6421db2d56b
# Parent  c79a44360ed953aa1dd6b75df778d15b4d904eaf
(vc-rcs-status): Removing any trailing "-".

diff -r c79a44360ed9 -r 52d82c1a3948 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Tue Jul 27 17:00:08 1993 +0000
+++ b/lisp/vc-hooks.el	Tue Jul 27 19:28:46 1993 +0000
@@ -216,7 +216,7 @@
 			(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 (if (eobp) "" "-") t t))
 			(buffer-string)))
 		     (status
 		      (if (not (string-equal locks ""))