branch: elpa/hyperdrive
commit 6ef425d194c79c15a29bf7455bee1816ca25c54c
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (h/menu-bar-menu) Use h/safe-string
---
hyperdrive.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 8e4345cfca..4d9bf93758 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1022,9 +1022,7 @@ The return value of this function is the retrieval
buffer."
:help "Mark hyperdrive as safe or not"
:label
(format-message "Mark as Safe: `%s'"
- (if (alist-get 'safep (h/etc drive))
- "safe"
- "unsafe")))
+ (h/safe-string drive)))
"---"
(vector "Purge"
`(lambda ()
