[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive cd9ae68268 2/3: Fix: (--clean-buffer) Pass kill
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive cd9ae68268 2/3: Fix: (--clean-buffer) Pass kill-all-local-variables arg in Emacs 29 |
Date: |
Wed, 27 Sep 2023 04:01:00 -0400 (EDT) |
branch: elpa/hyperdrive
commit cd9ae6826897a88a7b2c2716c55cf0b085ec6ebb
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Fix: (--clean-buffer) Pass kill-all-local-variables arg in Emacs 29
---
hyperdrive-lib.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 3a8fdab3d3..e2d02466d7 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1399,7 +1399,9 @@ When PATH is nil or blank, return \"/\"."
"Remove all local variables, overlays, and text properties in BUFFER.
When BUFFER is nil, act on current buffer."
(with-current-buffer (or buffer (current-buffer))
- (kill-all-local-variables t)
+ (if (>= emacs-major-version 29)
+ (kill-all-local-variables t)
+ (kill-all-local-variables))
(let ((inhibit-read-only t))
(delete-all-overlays)
(set-text-properties (point-min) (point-max) nil))))