@@ -5936,24 +5936,27 @@ egg in current buffer.\\<egg-minor-mode-map> (make-local-variable 'egg-minor-mode) (egg-minor-mode 1))) -(or (assq 'egg-minor-mode minor-mode-alist) - (setq minor-mode-alist - (cons '(egg-minor-mode egg-minor-mode-name) minor-mode-alist))) - -(setcdr (or (assq 'egg-minor-mode minor-mode-map-alist) - (car (setq minor-mode-map-alist - (cons (list 'egg-minor-mode) - minor-mode-map-alist)))) - egg-minor-mode-map) - -(if (and (boundp 'vc-handled-backends) - (listp (symbol-value 'vc-handled-backends))) - (set 'vc-handled-backends - (delq 'Git (symbol-value 'vc-handled-backends)))) - - -(add-hook 'find-file-hook 'egg-git-dir) -(add-hook 'find-file-hook 'egg-minor-mode-find-file-hook) +(when (string-match "\\`git version 1.6." + (shell-command-to-string + (concat egg-git-command " --version"))) + (or (assq 'egg-minor-mode minor-mode-alist) + (setq minor-mode-alist + (cons '(egg-minor-mode egg-minor-mode-name) minor-mode-alist))) + + (setcdr (or (assq 'egg-minor-mode minor-mode-map-alist) + (car (setq minor-mode-map-alist + (cons (list 'egg-minor-mode) + minor-mode-map-alist)))) + egg-minor-mode-map) + + (if (and (boundp 'vc-handled-backends) + (listp (symbol-value 'vc-handled-backends))) + (set 'vc-handled-backends + (delq 'Git (symbol-value 'vc-handled-backends)))) + + + (add-hook 'find-file-hook 'egg-git-dir) + (add-hook 'find-file-hook 'egg-minor-mode-find-file-hook)) ;;;======================================================== ;;; tool-tip egg.el 2cadafd21b671cf122fa22b6fba0b21a1f73345f Bogolisk bogolisk@gmail.com http://github.com/bogolisk/egg/commit/9ae5b190daa162e9bc67bc07e30254a35b168301 9ae5b190daa162e9bc67bc07e30254a35b168301 2009-03-03T18:16:58-08:00 2009-03-03T18:16:58-08:00 check for git 1.6 availability before enable file find hook 95753a4dec3bfc2eef1a619c278c16900e6e0b76 Bogolisk bogolisk@gmail.com