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

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

[nongnu] elpa/hyperdrive 50dda235ca 114/163: Change: Use h/user-error in


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 50dda235ca 114/163: Change: Use h/user-error instead of user-error everywhere
Date: Fri, 31 May 2024 04:00:23 -0400 (EDT)

branch: elpa/hyperdrive
commit 50dda235ca0eb9eec4658c50853dbb87366f7de4
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: Use h/user-error instead of user-error everywhere
---
 hyperdrive-lib.el | 2 +-
 hyperdrive.el     | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 33cd7b6754..80bb4337bf 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -289,7 +289,7 @@ before making the entry struct."
                         ;; not recognizable anyway.
                         (unless (y-or-n-p
                                  (format "Suspicious domain: %s; continue 
anyway?" host))
-                          (user-error "Suspicious domain %s" host)))
+                          (h/user-error "Suspicious domain %s" host)))
                       (h/create :domains (list host)))
                      (_  ;; Assume host is a public-key
                       (or (gethash host h/hyperdrives)
diff --git a/hyperdrive.el b/hyperdrive.el
index 581b781ab1..5dcf3208b0 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -524,7 +524,7 @@ Interactively, use the `hyperdrive-current-entry'.  If 
THEN, pass
 it to `hyperdrive-open'."
   (interactive (progn
                  (unless (and h/mode h/current-entry)
-                   (user-error "Not a hyperdrive buffer"))
+                   (h/user-error "Not a hyperdrive buffer"))
                  (list h/current-entry))
                h/mode)
   (if-let ((parent (h/parent entry)))
@@ -1315,7 +1315,7 @@ If FORCEP, don't prompt for confirmation before 
downloading."
   (unless forcep
     (when (h/gateway-installed-p)
       (unless (yes-or-no-p "Download and reinstall/upgrade 
hyper-gateway-ushin? ")
-        (user-error "Not downloading; aborted"))))
+        (h/user-error "Not downloading; aborted"))))
   (let ((urls-and-hashes (alist-get system-type h/gateway-urls-and-hashes)))
     (cl-labels
         ((try ()



reply via email to

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