branch: elpa/hyperdrive
commit 8872cc31dd17edfc55fa16e3aaf736848d6c70e7
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Tidy: (hyperdrive-mark-as-safe) Remove redundant pcase check
---
hyperdrive.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 2830c4030a..5f89629e3e 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -195,10 +195,10 @@ Interactively, prompt for hyperdrive and action."
("unknown" ?u "ask again later")
("help" ?h "show Info manual section about safety")
("quit" ?q "quit")))
- ((or ?S "safe") t)
- ((or ?U "unsafe") nil)
- ((or ?u "unknown") 'unknown)
- ((or ?h "help") :help)
+ ("safe" t)
+ ("unsafe" nil)
+ ("unknown" 'unknown)
+ ("help" :help)
(_ :quit))))
(list hyperdrive mark-safe-p)))
(pcase safep
