branch: elpa/hyperdrive
commit 43b0704dcf4da3eb58f1f60560150febf474f6f2
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (h/describe-hyperdrive) Use h/safe-string
---
hyperdrive-describe.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-describe.el b/hyperdrive-describe.el
index 80c146cd34..298ea421a0 100644
--- a/hyperdrive-describe.el
+++ b/hyperdrive-describe.el
@@ -56,7 +56,7 @@ Universal prefix argument \\[universal-argument] forces
(setq-local h/describe-current-hyperdrive hyperdrive)
(pcase-let*
(((cl-struct hyperdrive metadata writablep etc) hyperdrive)
- ((map disk-usage safep) etc))
+ ((map disk-usage) etc))
(erase-buffer)
(insert
(propertize "Hyperdrive: \n" 'face 'bold)
@@ -65,7 +65,7 @@ Universal prefix argument \\[universal-argument] forces
(h//format hyperdrive "Petname: %P\n" h/raw-formats)
(h//format hyperdrive "Nickname: %N\n" h/raw-formats)
(h//format hyperdrive "Domains: %D\n" h/raw-formats)
- (format "Safe: %s\n" (if safep "yes" "no"))
+ (format "Safe: %s\n" (h/safe-string hyperdrive))
(format "Latest version: %s\n" (h/latest-version hyperdrive))
(format "Writable: %s\n" (if writablep "yes" "no"))
(format "Disk usage: %s\n"
