[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 [EMACS_22_BASE]
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-git.el,v [EMACS_22_BASE] |
Date: |
Mon, 30 Jul 2007 00:19:13 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Dan Nicolaescu <dann> 07/07/30 00:19:07
Index: lisp/vc-git.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.18.2.3
retrieving revision 1.18.2.4
diff -u -b -r1.18.2.3 -r1.18.2.4
--- lisp/vc-git.el 28 Jul 2007 16:18:01 -0000 1.18.2.3
+++ lisp/vc-git.el 30 Jul 2007 00:19:00 -0000 1.18.2.4
@@ -111,13 +111,6 @@
(eval-when-compile (require 'cl) (require 'vc))
-;; XXX when this backend is considered sufficiently reliable this
-;; 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 ".git" t))
-
-
(defvar git-commits-coding-system 'utf-8
"Default coding system for git commits.")
@@ -331,14 +324,12 @@
(push (match-string 2) table)))
table))
-;; Commented out on the 22.x branch, VC here does not support it yet
-;; and when bytecompiling it max-specpdl-size is exceeded.
-;; (defun vc-git-revision-completion-table (file)
-;; (lexical-let ((file file)
-;; table)
-;; (setq table (lazy-completion-table
-;; table (lambda () (vc-git-revision-table file))))
-;; table))
+(defun vc-git-revision-completion-table (file)
+ (lexical-let ((file file)
+ table)
+ (setq table (lazy-completion-table
+ table (lambda () (vc-git-revision-table file))))
+ table))
(defun vc-git-diff-tree (dir &optional rev1 rev2)
(vc-git-diff dir rev1 rev2))