summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2019-11-06 20:41:04 -0700
committerSean Whitton <spwhitton@spwhitton.name>2019-11-06 20:54:27 -0700
commit1f2438926be9b6d5365362dc95441956aa453331 (patch)
tree15f491bf83b33406e9fe0f71b62831c653899d34
parent736064843a60ac1814da71550ae04c9673ed1e89 (diff)
downloadmailscripts-1f2438926be9b6d5365362dc95441956aa453331.tar.gz
Revert "thread no-prefix through the -projectile functions"
This reverts commit 34f83d0d1ce17e6ef05dfe16f9a70c937cf2df56. Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r--mailscripts.el10
1 files changed, 4 insertions, 6 deletions
diff --git a/mailscripts.el b/mailscripts.el
index db1cf94..43d06d0 100644
--- a/mailscripts.el
+++ b/mailscripts.el
@@ -79,8 +79,7 @@ threads to the notmuch-extract-patch(1) command."
(defun notmuch-extract-thread-patches-projectile (&optional no-prefix)
"Like `notmuch-extract-thread-patches', but use projectile to choose the repo."
(interactive "P")
- (mailscripts--projectile-repo-and-branch
- 'notmuch-extract-thread-patches no-prefix))
+ (mailscripts--projectile-repo-and-branch 'notmuch-extract-thread-patches))
;;;###autoload
(defun notmuch-extract-message-patches (repo branch &optional no-prefix)
@@ -114,8 +113,7 @@ git-format-patch(1)."
(defun notmuch-extract-message-patches-projectile (&optional no-prefix)
"Like `notmuch-extract-message-patches', but use projectile to choose the repo."
(interactive "P")
- (mailscripts--projectile-repo-and-branch
- 'notmuch-extract-message-patches no-prefix))
+ (mailscripts--projectile-repo-and-branch 'notmuch-extract-message-patches))
(defun mailscripts--check-out-branch (branch no-prefix)
(unless (string= branch "")
@@ -126,13 +124,13 @@ git-format-patch(1)."
(concat mailscripts-extract-patches-branch-prefix branch)
branch))))))
-(defun mailscripts--projectile-repo-and-branch (f &optional no-prefix)
+(defun mailscripts--projectile-repo-and-branch (f)
(let ((repo (projectile-completing-read
"Select projectile project: " projectile-known-projects))
(branch (completing-read
"Branch name (or leave blank to apply to current HEAD): "
nil)))
- (funcall f repo branch no-prefix)))
+ (funcall f repo branch)))
(provide 'mailscripts)