Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 11:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
typos.
This commit is contained in:
Dan Nicolaescu 2007-07-24 13:15:04 +00:00
parent 78a264f495
commit 7546c76775
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

11
lisp/vc-git.el
View file

@ -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."