Support Windows paths

- Changes the current directory before commit
- Quotes the filename arguments using shell-quote-argument
This commit is contained in:
Owen Griffin 2015-04-01 21:29:32 +01:00
parent e7b3a146b8
commit ca96589764

View file

@ -107,7 +107,7 @@ Default to FILENAME."
(let* ((filename (buffer-file-name))
(commit-msg (gac--commit-msg filename)))
(shell-command
(concat "git add '" filename "' && git commit -m '" commit-msg "'"))))
(concat "cd " (shell-quote-argument (convert-standard-filename (file-name-directory (buffer-file-name)))) " && git add " (shell-quote-argument (convert-standard-filename (file-name-nondirectory filename))) " && git commit -m '" commit-msg "'"))))
(defun gac-push ()
"Push commits to the current upstream.