[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 4fe4ad8d45 4/5: Fix: (h/history-fill-version-ra
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 4fe4ad8d45 4/5: Fix: (h/history-fill-version-ranges) Pass VECP arg to copy-tree |
Date: |
Sun, 28 Jul 2024 22:00:31 -0400 (EDT) |
branch: elpa/hyperdrive
commit 4fe4ad8d45a23f17f91672d78ef407ac1a805a13
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Fix: (h/history-fill-version-ranges) Pass VECP arg to copy-tree
---
hyperdrive-history.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index fd8e7dd0e5..b6caaeeeff 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -245,7 +245,7 @@ prefix argument \\[universal-argument], prompt for ENTRY."
(interactive (list (h/history-range-entry-at-point)))
(pcase-let* ((`(,range . ,entry) range-entry)
(`(,_range-start . ,(map :range-end)) range)
- (range-end-entry (compat-call copy-tree entry))
+ (range-end-entry (compat-call copy-tree entry t))
(ov (make-overlay (pos-bol) (+ (pos-bol) (length "Loading")))))
(setf (he/version range-end-entry) range-end)
(overlay-put ov 'display "Loading")