diff options
author | Dan Nicolaescu <[email protected]> | 2009-08-29 18:56:12 +0000 |
---|---|---|
committer | Dan Nicolaescu <[email protected]> | 2009-08-29 18:56:12 +0000 |
commit | db167d28c634931c7cc72640edb23b141050fd33 (patch) | |
tree | 8889a2fefc42d731ac583e17f7afba807f197971 /lisp/vc.el | |
parent | e0840eefe151fcecd119f24665f7a7445d19892c (diff) |
* vc.el (vc-print-log-internal): Move RCS/CVS specific code ...
* vc-rcs.el (vc-rcs-print-log-cleanup): ... here. New function.
(vc-rcs-print-log): Use it.
* vc-cvs.el (vc-cvs-print-log): Use vc-rcs-print-log-cleanup.
Diffstat (limited to 'lisp/vc.el')
-rw-r--r-- | lisp/vc.el | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index f9a89d1dec..fd95d86c5e 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1834,17 +1834,6 @@ allowed and simply skipped)." (set (make-local-variable 'log-view-vc-backend) ',backend) (set (make-local-variable 'log-view-vc-fileset) ',files) - ;; FIXME: this seems to apply only to RCS/CVS, it doesn't quite - ;; belong here in the generic code. - (goto-char (point-max)) - (forward-line -1) - (while (looking-at "=*\n") - (delete-char (- (match-end 0) (match-beginning 0))) - (forward-line -1)) - (goto-char (point-min)) - (when (looking-at "[\b\t\n\v\f\r ]+") - (delete-char (- (match-end 0) (match-beginning 0)))) - (shrink-window-if-larger-than-buffer) ;; move point to the log entry for the working revision (vc-call-backend ',backend 'show-log-entry ',working-revision) |