diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2019-11-06 20:41:04 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-11-06 20:54:27 -0700 |
commit | 1f2438926be9b6d5365362dc95441956aa453331 (patch) | |
tree | 15f491bf83b33406e9fe0f71b62831c653899d34 /mailscripts.el | |
parent | 736064843a60ac1814da71550ae04c9673ed1e89 (diff) | |
download | mailscripts-1f2438926be9b6d5365362dc95441956aa453331.tar.gz |
Revert "thread no-prefix through the -projectile functions"
This reverts commit 34f83d0d1ce17e6ef05dfe16f9a70c937cf2df56.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'mailscripts.el')
-rw-r--r-- | mailscripts.el | 10 |
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) |