branch: elpa/hyperdrive
commit f670ac3cf7d4401986fdd4bc38cd6e0b74a79f21
Author: Joseph Turner <jos...@ushin.org>
Commit: Adam Porter <a...@alphapapa.net>
Change: (-handler-directory) with-silent-modifications in finally
---
hyperdrive-handlers.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/hyperdrive-handlers.el b/hyperdrive-handlers.el
index 35667cd9b1..4f3608aa49 100644
--- a/hyperdrive-handlers.el
+++ b/hyperdrive-handlers.el
@@ -149,13 +149,16 @@ arguments."
:limit hyperdrive-queue-size
:finally (lambda ()
(with-current-buffer (ewoc-buffer
ewoc)
- (ewoc-set-hf ewoc header "")
- (setf entries
(hyperdrive-sort-entries entries))
- (dolist (entry entries)
- (ewoc-enter-last ewoc entry))
- (or (when prev-entry
- (goto-entry prev-entry
ewoc))
- (goto-char prev-point))
+ (with-silent-modifications
+ ;; `with-silent-modifications'
increases performance,
+ ;; but we still need
`set-buffer-modified-p' below.
+ (ewoc-set-hf ewoc header "")
+ (setf entries
(hyperdrive-sort-entries entries))
+ (dolist (entry entries)
+ (ewoc-enter-last ewoc entry))
+ (or (when prev-entry
+ (goto-entry prev-entry
ewoc))
+ (goto-char prev-point)))
(set-buffer-modified-p nil))
;; TODO: Remove this and the
commented out `debug-start-time'
;; binding when we're done
experimenting.
