Mercurial > emacs

comparison lisp/vc-git.el @ 100056:961732603114

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-git-diff): No need to duplicate vc-switches logic.
author Glenn Morris <rgm@gnu.org>
date Sun, 30 Nov 2008 01:44:33 +0000
parents 36e205658d72
children 7dffc98adf8f
comparison
equal deleted inserted replaced
100055:40edc7692997 100056:961732603114
516 (defun vc-git-diff (files &optional rev1 rev2 buffer) 516 (defun vc-git-diff (files &optional rev1 rev2 buffer)
517 "Get a difference report using Git between two revisions of FILES." 517 "Get a difference report using Git between two revisions of FILES."
518 (apply #'vc-git-command (or buffer "*vc-diff*") 1 files 518 (apply #'vc-git-command (or buffer "*vc-diff*") 1 files
519 (if (and rev1 rev2) "diff-tree" "diff-index") 519 (if (and rev1 rev2) "diff-tree" "diff-index")
520 "--exit-code" 520 "--exit-code"
521 (append (vc-switches (if vc-git-diff-switches 'git) 'diff) 521 (append (vc-switches 'git 'diff)
522 (list "-p" (or rev1 "HEAD") rev2 "--")))) 522 (list "-p" (or rev1 "HEAD") rev2 "--"))))
523 523
524 (defun vc-git-revision-table (files) 524 (defun vc-git-revision-table (files)
525 ;; What about `files'?!? --Stef 525 ;; What about `files'?!? --Stef
526 (let ((table (list "HEAD"))) 526 (let ((table (list "HEAD")))