ryuslash/git-auto-commit-mode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Cleanup git-commit slightly

Browse source
This commit is contained in:
Tom Willemse 2015-04-03 09:43:04 +02:00
parent 858dc816f1
commit 9edaf8243d
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
git-auto-commit-mode.el
View file

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