branch: elpa/hyperdrive
commit 2d40411cc3f0b15f7e68f48b8dbd260e6c41f048
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change/Fix: (hyperdrive-dir-sort) Leave buffer-modified-p nil
---
hyperdrive-dir.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 150b989fc3..300819e861 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -288,13 +288,14 @@ DIRECTORY-SORT should be a valid value of
`hyperdrive-directory-sort'."
(interactive (list (hyperdrive-complete-sort)))
(setq-local hyperdrive-directory-sort directory-sort)
- (let ((entries (ewoc-collect hyperdrive-ewoc #'hyperdrive-entry-p)))
- (ewoc-filter hyperdrive-ewoc #'ignore)
- (dolist (entry (hyperdrive-sort-entries entries))
- (ewoc-enter-last hyperdrive-ewoc entry))
- (ewoc-set-hf hyperdrive-ewoc
- (hyperdrive-dir-column-headers (hyperdrive-entry-description
hyperdrive-current-entry))
- "")))
+ (with-silent-modifications
+ (let ((entries (ewoc-collect hyperdrive-ewoc #'hyperdrive-entry-p)))
+ (ewoc-filter hyperdrive-ewoc #'ignore)
+ (dolist (entry (hyperdrive-sort-entries entries))
+ (ewoc-enter-last hyperdrive-ewoc entry))
+ (ewoc-set-hf hyperdrive-ewoc
+ (hyperdrive-dir-column-headers
(hyperdrive-entry-description hyperdrive-current-entry))
+ ""))))
;;;; Imenu support
