added flag for git add command

This commit is contained in:
Holger Wenzel 2019-12-14 02:10:38 -08:00 committed by Tom Willemse
parent 4cfc906cb4
commit aff67aa36d

View file

@ -69,6 +69,13 @@ If non-nil a git push will be executed after each commit."
:group 'git-auto-commit-mode :group 'git-auto-commit-mode
:type 'string) :type 'string)
(defcustom gac-add-additional-flag ""
"Flag to add to the git add command."
:tag "git add flag"
:group 'git-auto-commit-mode
:type 'string)
(defcustom gac-debounce-interval nil (defcustom gac-debounce-interval nil
"Debounce automatic commits to avoid hammering Git. "Debounce automatic commits to avoid hammering Git.
@ -140,7 +147,7 @@ Default to FILENAME."
(commit-msg (gac--commit-msg buffer-file)) (commit-msg (gac--commit-msg buffer-file))
(default-directory (file-name-directory buffer-file))) (default-directory (file-name-directory buffer-file)))
(shell-command (shell-command
(concat "git add " (shell-quote-argument filename) (concat "git add " gac-add-additional-flag " " (shell-quote-argument filename)
gac-shell-and gac-shell-and
"git commit -m " (shell-quote-argument commit-msg))))) "git commit -m " (shell-quote-argument commit-msg)))))