# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748597913 0
# Node ID 987685f55edd28f6253b399231340a69a99d593a
# Parent  d1b5ca8f5493007cb451ee38765a38293492314d
(vc-do-command): Remove debugging output.  Use (forward-line -1) instead
of (previous-line 1).
(vc-print-log): Delete extraneous lines of RCS output if present.

diff -r d1b5ca8f5493 -r 987685f55edd lisp/vc.el
--- a/lisp/vc.el	Tue Sep 21 07:50:14 1993 +0000
+++ b/lisp/vc.el	Tue Sep 21 07:51:53 1993 +0000
@@ -207,12 +207,9 @@
 	  (exec-path (if vc-path (append exec-path vc-path) exec-path)))
       (setq status (apply 'call-process command nil t nil squeezed)))
     (goto-char (point-max))
-    (previous-line 1)
+    (forward-line -1)
     (if (or (not (integerp status)) (< okstatus status))
 	(progn
-	  (previous-line 1)
-	  (print (cons command squeezed))
-	  (next-line 1)
 	  (pop-to-buffer "*vc*")
 	  (goto-char (point-min))
 	  (shrink-window-if-larger-than-buffer)
@@ -1072,7 +1069,12 @@
       (progn
 	(vc-backend-print-log buffer-file-name)
 	(pop-to-buffer (get-buffer-create "*vc*"))
+	(while (looking-at "=*\n")
+	  (delete-char (- (match-end 0) (match-beginning 0)))
+	  (forward-line -1))
 	(goto-char (point-min))
+	(if (looking-at "[\b\t\n\v\f\r ]+")
+	    (delete-char (- (match-end 0) (match-beginning 0))))
 	(shrink-window-if-larger-than-buffer)
 	)
     (vc-registration-error buffer-file-name)