org-attach.el: Check whether git is installed

* org-attach.el (vc-git): Require.
(org-attach-commit): Check whether git is installed.

Thanks to Jonathan Leech-Pepin for reporting this.
This commit is contained in:
Bastien Guerry 2013-12-06 15:22:50 +01:00
parent af6f14d907
commit 6a86f32c70
1 changed files with 2 additions and 3 deletions

View File

@ -41,8 +41,7 @@
(require 'cl))
(require 'org-id)
(require 'org)
(declare-function vc-git-root "vc-git" (file))
(require 'vc-git)
(defgroup org-attach nil
"Options concerning entry attachments in Org-mode."
@ -266,7 +265,7 @@ This checks for the existence of a \".git\" directory in that directory."
(let* ((dir (expand-file-name org-attach-directory))
(git-dir (vc-git-root dir))
(changes 0))
(when git-dir
(when (and git-dir (executable-find "git"))
(with-temp-buffer
(cd dir)
(let ((have-annex