diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-12-18 15:19:14 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-12-18 15:19:53 -0700 |
commit | cc1a70fcda85ee62207346db97060f9b8f9d9b20 (patch) | |
tree | 48f5577dfaf710aa23d534ae7174721caec17d9b /mailscripts.el | |
parent | 3d404ef37e6f7303bba74a8cf413aaa8b8672ef5 (diff) | |
download | mailscripts-cc1a70fcda85ee62207346db97060f9b8f9d9b20.tar.gz |
mailscripts.el: fix usage of cl-case in an internal function
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'mailscripts.el')
-rw-r--r-- | mailscripts.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mailscripts.el b/mailscripts.el index 5a55b79..f3e1e53 100644 --- a/mailscripts.el +++ b/mailscripts.el @@ -328,14 +328,14 @@ See also the interactive wrapper command `mailscripts-prepare-patch'." (defun mailscripts--project-repo-and-branch (f &rest args) (let ((repo (cl-case mailscripts-project-library - ('project + (project (require 'project) (project-prompt-project-dir)) - ('projectile + (projectile (require 'projectile) (projectile-completing-read "Select Projectile project: " projectile-known-projects)) - (nil + (t (user-error "Please customize variable `mailscripts-project-library'.")))) (branch (read-from-minibuffer |