branch: elpa/git-commit
commit 02144f9bc2a484bccb4a89953a0f4264fe2d3ae4
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
magit-confirm: Add prompt-suffix argument
---
lisp/magit-base.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index 32a3cf4f33..c039c36177 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -777,12 +777,14 @@ ACTION is a member of option `magit-slow-confirm'."
discard reverse stage-all-changes unstage-all-changes)))
(cl-defun magit-confirm ( action &optional prompt prompt-n noabort
- (items nil sitems))
+ (items nil sitems) prompt-suffix)
(declare (indent defun))
(setq prompt-n (format (concat (or prompt-n prompt) "? ") (length items)))
(setq prompt (format (concat (or prompt (magit-confirm-make-prompt action))
"? ")
(car items)))
+ (when prompt-suffix
+ (setq prompt (concat prompt prompt-suffix)))
(or (cond ((and (not (eq action t))
(or (eq magit-no-confirm t)
(memq action magit-no-confirm)
