emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 43b0704dcf 08/14: Change: (h/describe-hyperdriv


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 43b0704dcf 08/14: Change: (h/describe-hyperdrive) Use h/safe-string
Date: Sun, 18 Aug 2024 19:00:19 -0400 (EDT)

branch: elpa/hyperdrive
commit 43b0704dcf4da3eb58f1f60560150febf474f6f2
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@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"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]