added flag for git add command
This commit is contained in:
parent
4cfc906cb4
commit
aff67aa36d
1 changed files with 8 additions and 1 deletions
|
@ -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)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue