[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-git.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-git.el,v |
Date: |
Sat, 20 Oct 2007 01:10:00 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/10/20 01:10:00
Index: vc-git.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- vc-git.el 10 Oct 2007 19:39:22 -0000 1.23
+++ vc-git.el 20 Oct 2007 01:09:58 -0000 1.24
@@ -319,7 +319,8 @@
(vc-git-command buf 1 files "diff-tree" "--exit-code" "-p" rev1 rev2
"--")
(vc-git-command buf 1 files "diff-index" "--exit-code" "-p" (or rev1
"HEAD") "--"))))
-(defun vc-git-revision-table (file)
+(defun vc-git-revision-table (files)
+ ;; What about `files'?!? --Stef
(let ((table (list "HEAD")))
(with-temp-buffer
(vc-git-command t nil nil "for-each-ref" "--format=%(refname)")
@@ -328,11 +329,11 @@
(push (match-string 2) table)))
table))
-(defun vc-git-revision-completion-table (file)
- (lexical-let ((file file)
+(defun vc-git-revision-completion-table (files)
+ (lexical-let ((files files)
table)
(setq table (lazy-completion-table
- table (lambda () (vc-git-revision-table file))))
+ table (lambda () (vc-git-revision-table files))))
table))
(defun vc-git-diff-tree (dir &optional rev1 rev2)
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Miles Bader, 2007/10/09
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Eric S. Raymond, 2007/10/10
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Eric S. Raymond, 2007/10/10
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/vc-git.el,v, Stefan Monnier, 2007/10/19