Mercurial > emacs

comparison lisp/vc-svn.el @ 106033:2bed02fa3041

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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)