Mercurial > emacs
comparison lisp/vc-rcs.el @ 106060:2f9ecf376c7a
* vc.el (vc-log-show-limit): Default to 2000.
(vc-print-log-internal): Insert buttons to request more entries
when limiting the output.
* vc-sccs.el (vc-sccs-print-log):
* vc-rcs.el (vc-rcs-print-log):
* vc-cvs.el (vc-cvs-print-log):
* vc-git.el (vc-git-print-log): Return 'limit-unsupported when
LIMIT is non-nil.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 16 Nov 2009 20:36:06 +0000 |
parents | a7d1facd7ddf |
children | 6e0f1038bc44 |
comparison
equal
deleted
inserted
replaced
106059:996d28557095 | 106060:2f9ecf376c7a |
---|---|
562 (defun vc-rcs-print-log (files buffer &optional shortlog limit) | 562 (defun vc-rcs-print-log (files buffer &optional shortlog limit) |
563 "Get change log associated with FILE. If FILE is a | 563 "Get change log associated with FILE. If FILE is a |
564 directory the operation is applied to all registered files beneath it." | 564 directory the operation is applied to all registered files beneath it." |
565 (vc-do-command (or buffer "*vc*") 0 "rlog" (mapcar 'vc-name (vc-expand-dirs files))) | 565 (vc-do-command (or buffer "*vc*") 0 "rlog" (mapcar 'vc-name (vc-expand-dirs files))) |
566 (with-current-buffer (or buffer "*vc*") | 566 (with-current-buffer (or buffer "*vc*") |
567 (vc-rcs-print-log-cleanup))) | 567 (vc-rcs-print-log-cleanup)) |
568 (when limit 'limit-unsupported)) | |
568 | 569 |
569 (defun vc-rcs-diff (files &optional oldvers newvers buffer) | 570 (defun vc-rcs-diff (files &optional oldvers newvers buffer) |
570 "Get a difference report using RCS between two sets of files." | 571 "Get a difference report using RCS between two sets of files." |
571 (apply 'vc-do-command (or buffer "*vc-diff*") | 572 (apply 'vc-do-command (or buffer "*vc-diff*") |
572 1 ;; Always go synchronous, the repo is local | 573 1 ;; Always go synchronous, the repo is local |