From 944608851c81e279287051c2a243faee7b59f3be Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Wed, 15 Jul 2020 19:05:30 +0200 Subject: [PATCH] ; * lisp/epg.el (epg-signature-to-string): Use cl-case. In this case we can greatly increase readability by using `cl-case' instead of `cond'. --- lisp/epg.el | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/lisp/epg.el b/lisp/epg.el index 5b90bc290ab..65decf3cf5b 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -404,18 +404,13 @@ callback data (if any)." (pubkey-algorithm (epg-signature-pubkey-algorithm signature)) (key-id (epg-signature-key-id signature))) (concat - (cond ((eq (epg-signature-status signature) 'good) - "Good signature from ") - ((eq (epg-signature-status signature) 'bad) - "Bad signature from ") - ((eq (epg-signature-status signature) 'expired) - "Expired signature from ") - ((eq (epg-signature-status signature) 'expired-key) - "Signature made by expired key ") - ((eq (epg-signature-status signature) 'revoked-key) - "Signature made by revoked key ") - ((eq (epg-signature-status signature) 'no-pubkey) - "No public key for ")) + (cl-case (epg-signature-status signature) + (good "Good signature from ") + (bad "Bad signature from ") + (expired "Expired signature from ") + (expired-key "Signature made by expired key ") + (revoked-key "Signature made by revoked key ") + (no-pubkey "No public key for ")) key-id (if user-id (concat " " -- 2.39.5