vc-git.el (vc-git-checkout, vc-directory-exclusion-list): Fix

typos.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56b3e937b6d78dc516c7c976fe2f63e08869b4dc..d0ab7c803aec1b9c575a2ed1dd0ecc81da7e9c9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-24  Alexandre Julliard  <julliard@winehq.org>
+
+       * vc-git.el (vc-git-checkout, vc-directory-exclusion-list): Fix
+       typos.
+
 2007-07-24  Alan Mackenzie  <acm@muc.de>
 
        * emacs-lisp/bytecomp.el (byte-compile-from-buffer): Initialise

diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index de6be9af7336ec8af3dd87de243236a267599769..39c86f672fbb94e107b36d34be8950af9768c613 100644 (file)
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -44,6 +44,7 @@
 
 ;; Implement the rest of the vc interface. See the comment at the
 ;; beginning of vc.el. The current status is:
+;; ("??" means: "figure out what to do about it")
 ;;
 ;; FUNCTION NAME                                   STATUS
 ;; BACKEND PROPERTIES
@@ -56,7 +57,7 @@
 ;; * workfile-version (file)                      OK
 ;; - latest-on-branch-p (file)                    ??
 ;; * checkout-model (file)                        OK
-;; - workfile-unchanged-p (file)                  MAYBE CAN BE SIMPLIFIED
+;; - workfile-unchanged-p (file)                  OK
 ;; - mode-line-string (file)                      NOT NEEDED
 ;; - dired-state-info (file)                      OK
 ;; STATE-CHANGING FUNCTIONS
@@ -97,8 +98,8 @@
 ;; MISCELLANEOUS
 ;; - make-version-backups-p (file)                ??
 ;; - repository-hostname (dirname)                ??
-;; - previous-version (file rev)                  ??
-;; - next-version (file rev)                      ??
+;; - previous-version (file rev)                  OK
+;; - next-version (file rev)                      OK
 ;; - check-headers ()                             ??
 ;; - clear-headers ()                             ??
 ;; - delete-file (file)                                   OK
@@ -115,7 +116,7 @@
 ;; should be moved to vc-hooks.el
 (add-to-list 'vc-handled-backends 'GIT)
 (eval-after-load "vc"
-  '(add-to-list 'vc-directory-exclusion-list ".bzr" t))
+  '(add-to-list 'vc-directory-exclusion-list ".git" t))
 
 ;;; BACKEND PROPERTIES
 
@@ -251,7 +252,7 @@
      (concat (if rev rev "HEAD") ":" fullname) "cat-file" "blob")))
 
 (defun vc-git-checkout (file &optional editable rev)
-  (vc-git-command nil0 file "checkout" (or rev "HEAD")))
+  (vc-git-command nil 0 file "checkout" (or rev "HEAD")))
 
 (defun vc-git-revert (file &optional contents-done)
   "Revert FILE to the version stored in the git repository."