Mercurial > emacs

comparison lisp/vc-git.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 78f37cce705f
children 2f9ecf376c7a
comparison
equal deleted inserted replaced
106032:42cdafa98c50 106033:2bed02fa3041
75 ;; by git, so it's probably 75 ;; by git, so it's probably
76 ;; not a good idea. 76 ;; not a good idea.
77 ;; - merge-news (file) see `merge' 77 ;; - merge-news (file) see `merge'
78 ;; - steal-lock (file &optional revision) NOT NEEDED 78 ;; - steal-lock (file &optional revision) NOT NEEDED
79 ;; HISTORY FUNCTIONS 79 ;; HISTORY FUNCTIONS
80 ;; * print-log (files &optional buffer shortlog) OK 80 ;; * print-log (files buffer &optional shortlog limit) OK
81 ;; - log-view-mode () OK 81 ;; - log-view-mode () OK
82 ;; - show-log-entry (revision) OK 82 ;; - show-log-entry (revision) OK
83 ;; - comment-history (file) ?? 83 ;; - comment-history (file) ??
84 ;; - update-changelog (files) COULD BE SUPPORTED 84 ;; - update-changelog (files) COULD BE SUPPORTED
85 ;; * diff (file &optional rev1 rev2 buffer) OK 85 ;; * diff (file &optional rev1 rev2 buffer) OK
506 (vc-git-command nil 0 file "update-index" "--") 506 (vc-git-command nil 0 file "update-index" "--")
507 (vc-git-command nil 0 file "checkout" "HEAD"))) 507 (vc-git-command nil 0 file "checkout" "HEAD")))
508 508
509 ;;; HISTORY FUNCTIONS 509 ;;; HISTORY FUNCTIONS
510 510
511 (defun vc-git-print-log (files &optional buffer shortlog) 511 (defun vc-git-print-log (files buffer &optional shortlog limit)
512 "Get change log associated with FILES." 512 "Get change log associated with FILES."
513 (let ((coding-system-for-read git-commits-coding-system)) 513 (let ((coding-system-for-read git-commits-coding-system))
514 ;; `vc-do-command' creates the buffer, but we need it before running 514 ;; `vc-do-command' creates the buffer, but we need it before running
515 ;; the command. 515 ;; the command.
516 (vc-setup-buffer buffer) 516 (vc-setup-buffer buffer)