Mercurial > emacs
comparison lisp/vc-svn.el @ 106033:2bed02fa3041
* vc.el (vc-log-show-limit): New variable.
(vc-print-log, vc-print-root-log): Add new argument LIMIT. Set it
when using a prefix argument.
(vc-print-log-internal): Add new argument LIMIT.
* vc-svn.el (vc-svn-print-log):
* vc-mtn.el (vc-mtn-print-log):
* vc-hg.el (vc-hg-print-log):
* vc-bzr.el (vc-bzr-print-log): Add new optional argument LIMIT,
pass it to the log command when set. Make the BUFFER argument
non-optional.
* vc-sccs.el (vc-sccs-print-log):
* vc-rcs.el (vc-rcs-print-log):
* vc-git.el (vc-git-print-log):
* vc-cvs.el (vc-cvs-print-log): Add new optional argument LIMIT,
ignore it. Make the BUFFER argument non-optional
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sun, 15 Nov 2009 20:28:58 +0000 |
parents | 8acc6fb9ffc9 |
children | 2df31b09d293 |
comparison
equal
deleted
inserted
replaced
106032:42cdafa98c50 | 106033:2bed02fa3041 |
---|---|
460 | 460 |
461 (define-derived-mode vc-svn-log-view-mode log-view-mode "SVN-Log-View" | 461 (define-derived-mode vc-svn-log-view-mode log-view-mode "SVN-Log-View" |
462 (require 'add-log) | 462 (require 'add-log) |
463 (set (make-local-variable 'log-view-per-file-logs) nil)) | 463 (set (make-local-variable 'log-view-per-file-logs) nil)) |
464 | 464 |
465 (defun vc-svn-print-log (files &optional buffer shortlog) | 465 (defun vc-svn-print-log (files buffer &optional shortlog limit) |
466 "Get change log(s) associated with FILES." | 466 "Get change log(s) associated with FILES." |
467 (save-current-buffer | 467 (save-current-buffer |
468 (vc-setup-buffer buffer) | 468 (vc-setup-buffer buffer) |
469 (let ((inhibit-read-only t)) | 469 (let ((inhibit-read-only t)) |
470 (goto-char (point-min)) | 470 (goto-char (point-min)) |
471 (if files | 471 (if files |
472 (dolist (file files) | 472 (dolist (file files) |
473 (insert "Working file: " file "\n") | 473 (insert "Working file: " file "\n") |
474 (vc-svn-command | 474 (apply |
475 'vc-svn-command | |
475 buffer | 476 buffer |
476 'async | 477 'async |
477 ;; (if (and (= (length files) 1) (vc-stay-local-p file 'SVN)) 'async 0) | 478 ;; (if (and (= (length files) 1) (vc-stay-local-p file 'SVN)) 'async 0) |
478 (list file) | 479 (list file) |
479 "log" | 480 "log" |
480 ;; By default Subversion only shows the log up to the | 481 ;; By default Subversion only shows the log up to the |
481 ;; working revision, whereas we also want the log of the | 482 ;; working revision, whereas we also want the log of the |
482 ;; subsequent commits. At least that's what the | 483 ;; subsequent commits. At least that's what the |
483 ;; vc-cvs.el code does. | 484 ;; vc-cvs.el code does. |
484 "-rHEAD:0")) | 485 "-rHEAD:0" |
486 (when limit (list "-l" (format "%s" limit))))) | |
485 ;; Dump log for the entire directory. | 487 ;; Dump log for the entire directory. |
486 (vc-svn-command buffer 0 nil "log" "-rHEAD:0"))))) | 488 (apply vc-svn-command buffer 0 nil "log" "-rHEAD:0" |
489 (when limit (list "-l" (format "%s" limit)))))))) | |
487 | 490 |
488 (defun vc-svn-diff (files &optional oldvers newvers buffer) | 491 (defun vc-svn-diff (files &optional oldvers newvers buffer) |
489 "Get a difference report using SVN between two revisions of fileset FILES." | 492 "Get a difference report using SVN between two revisions of fileset FILES." |
490 (and oldvers | 493 (and oldvers |
491 (not newvers) | 494 (not newvers) |