Mercurial > emacs
changeset 4770:987685f55edd
(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.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Tue, 21 Sep 1993 07:51:53 +0000 |
| parents | d1b5ca8f5493 |
| children | d6ddaf79ea6a |
| files | lisp/vc.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)