[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 6a7b855be0 1/3: Fix: (h/handler-html) Don't pro
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 6a7b855be0 1/3: Fix: (h/handler-html) Don't prompt to save hyperdrive EWW buffers |
Date: |
Mon, 15 Jul 2024 19:00:00 -0400 (EDT) |
branch: elpa/hyperdrive
commit 6a7b855be00587c741ded1885fd60008d9298498
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Fix: (h/handler-html) Don't prompt to save hyperdrive EWW buffers
Resolves <https://todo.sr.ht/~ushin/ushin/198>.
---
hyperdrive-lib.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 907991b3d0..60fd48e401 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1408,6 +1408,11 @@ with `hyperdrive-handler-default'."
(h/mode)
(setf buffer (current-buffer)))
(set-buffer buffer)
+ ;; Since the buffer is modified (by `eww') and
+ ;; `write-contents-functions' is set (by `hyperdrive-mode'), Emacs
+ ;; prompts to save before killing the EWW buffer. To avoid this, set
+ ;; `buffer-modified-p' flag to nil.
+ (set-buffer-modified-p nil)
(when then
(funcall then)))
(h/handler-default entry :then then)))