From cc1a70fcda85ee62207346db97060f9b8f9d9b20 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 18 Dec 2022 15:19:14 -0700 Subject: mailscripts.el: fix usage of cl-case in an internal function Signed-off-by: Sean Whitton --- debian/changelog | 3 ++- mailscripts.el | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/debian/changelog b/debian/changelog index 9f9a539..223c3c8 100644 --- a/debian/changelog +++ b/debian/changelog @@ -2,7 +2,8 @@ mailscripts (28-1) UNRELEASED; urgency=medium * mailscripts.el: - new commands: mailscripts-git-format-patch-{attach,drafts} - - new DWIM wrapper command: mailscripts-prepare-patch. + - new DWIM wrapper command: mailscripts-prepare-patch + - fix usage of cl-case in an internal function. -- Sean Whitton Sun, 18 Dec 2022 10:40:55 -0700 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 -- cgit v1.2.3