shell-command
は default-directory
に設定されているディレクトリに移動してからコマンドを実行しますので、以下の様にします。
(let* ((clone "~/.emacs.d/git/auto-complete")
(default-directory (file-name-directory clone)))
(unless (file-exists-p clone)
(if (and (file-directory-p default-directory)
(file-writable-p default-directory))
(shell-command "git clone [email protected]:auto-complete/auto-complete.git")
(message (concat default-directory " does not exist or not writable.")))))
追記
余談ですが、例えば以下の様なマクロを定義しておいて、
(defmacro shell-command-at-directory (command dir &optional output-buffer error-buffer)
`(let ((default-directory ,dir))
(shell-command ,command ,output-buffer ,error-buffer)))
以下の様に実行すると良いかも知れません。
(shell-command-at-directory "git clone [email protected]:auto-complete/auto-complete.git"
"~/.emacs.d/git")
# あまり代わり映えしませんけれども…