mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* vc.el (vc-print-log-internal): Move RCS/CVS specific code ...

Browse source 
* 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.
This commit is contained in:
Dan Nicolaescu 2009-08-29 18:56:12 +00:00
parent e0840eefe1
commit db167d28c6
4 changed files with 29 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/vc.el
View file

@ -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)