Mercurial > emacs
comparison lisp/vc-git.el @ 107958:09b4b2c3944d
Improve previous change.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 15 Apr 2010 19:45:26 -0700 |
parents | 54d5490c8e94 |
children | c168d4537385 e60e30383efd |
comparison
equal
deleted
inserted
replaced
107957:54d5490c8e94 | 107958:09b4b2c3944d |
---|---|
411 "--no-empty-directory" "--exclude-standard" "--")) | 411 "--no-empty-directory" "--exclude-standard" "--")) |
412 (ls-files-ignored | 412 (ls-files-ignored |
413 (vc-git-command (current-buffer) 'async files | 413 (vc-git-command (current-buffer) 'async files |
414 "ls-files" "-z" "-o" "-i" "--directory" | 414 "ls-files" "-z" "-o" "-i" "--directory" |
415 "--no-empty-directory" "--exclude-standard" "--")) | 415 "--no-empty-directory" "--exclude-standard" "--")) |
416 ;; --relative added in Git 1.5.5. | |
416 (diff-index | 417 (diff-index |
417 (vc-git-command (current-buffer) 'async files | 418 (vc-git-command (current-buffer) 'async files |
418 "diff-index" "--relative" "-z" "-M" "HEAD" "--"))) | 419 "diff-index" "--relative" "-z" "-M" "HEAD" "--"))) |
419 (vc-exec-after | 420 (vc-exec-after |
420 `(vc-git-after-dir-status-stage ',stage ',files ',update-function))) | 421 `(vc-git-after-dir-status-stage ',stage ',files ',update-function))) |
570 | 571 |
571 ;;; HISTORY FUNCTIONS | 572 ;;; HISTORY FUNCTIONS |
572 | 573 |
573 (defun vc-git-print-log (files buffer &optional shortlog start-revision limit) | 574 (defun vc-git-print-log (files buffer &optional shortlog start-revision limit) |
574 "Get change log associated with FILES. | 575 "Get change log associated with FILES. |
575 Note that using SHORTLOG requires at least Git version 1.5." | 576 Note that using SHORTLOG requires at least Git version 1.5.6, |
577 for the --graph option." | |
576 (let ((coding-system-for-read git-commits-coding-system)) | 578 (let ((coding-system-for-read git-commits-coding-system)) |
577 ;; `vc-do-command' creates the buffer, but we need it before running | 579 ;; `vc-do-command' creates the buffer, but we need it before running |
578 ;; the command. | 580 ;; the command. |
579 (vc-setup-buffer buffer) | 581 (vc-setup-buffer buffer) |
580 ;; If the buffer exists from a previous invocation it might be | 582 ;; If the buffer exists from a previous invocation it might be |