Mercurial > emacs
comparison lisp/vc-sccs.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 | 2bed02fa3041 |
| children | 6e0f1038bc44 |
comparison
equal
deleted
inserted
replaced
| 106059:996d28557095 | 106060:2f9ecf376c7a |
|---|---|
| 336 ;;; | 336 ;;; |
| 337 | 337 |
| 338 (defun vc-sccs-print-log (files buffer &optional shortlog limit) | 338 (defun vc-sccs-print-log (files buffer &optional shortlog limit) |
| 339 "Get change log associated with FILES." | 339 "Get change log associated with FILES." |
| 340 (setq files (vc-expand-dirs files)) | 340 (setq files (vc-expand-dirs files)) |
| 341 (vc-sccs-do-command buffer 0 "prs" (mapcar 'vc-name files))) | 341 (vc-sccs-do-command buffer 0 "prs" (mapcar 'vc-name files)) |
| 342 (when limit 'limit-unsupported)) | |
| 342 | 343 |
| 343 (defun vc-sccs-diff (files &optional oldvers newvers buffer) | 344 (defun vc-sccs-diff (files &optional oldvers newvers buffer) |
| 344 "Get a difference report using SCCS between two filesets." | 345 "Get a difference report using SCCS between two filesets." |
| 345 (setq files (vc-expand-dirs files)) | 346 (setq files (vc-expand-dirs files)) |
| 346 (setq oldvers (vc-sccs-lookup-triple (car files) oldvers)) | 347 (setq oldvers (vc-sccs-lookup-triple (car files) oldvers)) |