Mercurial > emacs
changeset 82091:535e5fa4eca9
vc-git.el (vc-git-checkout, vc-directory-exclusion-list): Fix
typos.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 24 Jul 2007 13:15:04 +0000 |
| parents | 5bc3f262d854 |
| children | 38bfa1de0aca |
| files | lisp/ChangeLog lisp/vc-git.el |
| diffstat | 2 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jul 24 08:55:43 2007 +0000 +++ b/lisp/ChangeLog Tue Jul 24 13:15:04 2007 +0000 @@ -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
--- a/lisp/vc-git.el Tue Jul 24 08:55:43 2007 +0000 +++ b/lisp/vc-git.el Tue Jul 24 13:15:04 2007 +0000 @@ -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."