git-emacs-autoloads.el

;; See git-emacs.el for project and license information.

;; Autoloads for git-emacs.
;;
;; Loads git-emacs in the following situations:
;;
;; 1) git-init
;; 2) git-status
;; 3) git-log-from-cmdline
;; 4) opening a git-controlled file

(eval-when-compile (require 'vc))
(eval-when-compile (require 'vc-git))
(add-to-list 'vc-handled-backends 'git)

(autoload 'git-status "git-status"
  "Launch git-emacs's status mode on the specified directory.")
(autoload 'git-init             "git-emacs"
  "Initialize a git repository." t)
(autoload 'git-log-from-cmdline "git-log"
  "Launch a git log view from emacs --eval or gnuclient --eval")
(autoload 'git--update-modeline "git-emacs")

;; A couple of functions are needed to support autoload on opening a git file.
(defsubst git--in-vc-mode? ()
  "Returns true if the current buffer is under vc-git."
  
  (and vc-mode (string-match "^ Git" (substring-no-properties vc-mode))))

;; vc-hook to check whether to load git-emacs or not
(if (fboundp 'vc-refresh-state)
    (defadvice vc-refresh-state (after git--vc-git-find-file-hook activate)
      "vc-find-file-hook advice for synchronizing with vc-git interface"
      
      (when (git--in-vc-mode?) (git--update-modeline)))
  ;; Temporary fallback for emacs < 25.1
  (defadvice vc-find-file-hook (after git--vc-git-find-file-hook activate)
    "vc-find-file-hook advice for synchronizing with vc-git interface"
    
    (when (git--in-vc-mode?) (git--update-modeline))))

  

(provide 'git-emacs-autoloads)