Commit 4805f679 authored by Brian Fox's avatar Brian Fox

(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.
parent 90a44351
......@@ -207,12 +207,9 @@ the master name of FILE; this is appended to an optional list of FLAGS."
(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 @@ levels in the snapshot."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment