[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 69705aadb6 1/2: Fix: Use hyperdrive etc slot sa
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 69705aadb6 1/2: Fix: Use hyperdrive etc slot safep key instead of h/safe-hyperdrives |
Date: |
Sat, 13 Jul 2024 16:00:23 -0400 (EDT) |
branch: elpa/hyperdrive
commit 69705aadb64d357c5e00f55e8c605932acaf767f
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Fix: Use hyperdrive etc slot safep key instead of h/safe-hyperdrives
---
hyperdrive.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 2bb2f01e56..15df89eace 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -505,8 +505,7 @@ use, see `hyperdrive-write'."
(with-current-buffer buffer
(unless h/mode
(h//clean-buffer)
- (when (member (hyperdrive-public-key hyperdrive)
- h/safe-hyperdrives)
+ (when (map-elt (hyperdrive-etc hyperdrive) 'safep)
(let ((buffer-file-name (he/name entry)))
(set-auto-mode)))
(h/mode))