branch: externals/doc-view-follow
commit 30b6c7d89f9c3f1aaf0e6e00620f41d58660a277
Author: Paul Nelson <ultr...@gmail.com>
Commit: Paul Nelson <ultr...@gmail.com>
Simplify page synchronization in doc-dual-view
* doc-dual-view.el (doc-dual-view--sync-pages): Use the goto function
directly with an idle timer instead of having a separate redisplay
step.
---
doc-dual-view.el | 24 +++++++-----------------
1 file changed, 7 insertions(+), 17 deletions(-)
diff --git a/doc-dual-view.el b/doc-dual-view.el
index 870c30b0ac..f8a69ab982 100644
--- a/doc-dual-view.el
+++ b/doc-dual-view.el
@@ -97,7 +97,6 @@ redisplay-func)."
(current-page (funcall current-page-func))
(max-page-func (nth 3 mode-funcs))
(max-page (funcall max-page-func))
- (redisplay-func (nth 4 mode-funcs))
(current-window (selected-window))
(window-index (seq-position windows current-window)))
(seq-do-indexed
@@ -110,24 +109,15 @@ redisplay-func)."
(with-selected-window win
(let ((current (funcall current-page-func)))
(when (not (= current target-page))
- (funcall goto-func target-page)
- (let ((timer-sym
- (intern (format
- "doc-dual-view--redisplay-timer-%d"
i))))
- (when (and (boundp timer-sym)
- (timerp (symbol-value timer-sym)))
- (cancel-timer (symbol-value timer-sym)))
- (set timer-sym
- (run-with-idle-timer
- 0.001 nil
- (lambda (w f p)
- (when (window-live-p w)
- (with-selected-window w
- (funcall f p))))
- win redisplay-func target-page)))))))))
+ (run-with-idle-timer
+ 0.001 nil
+ (lambda (target-win func page)
+ (when (window-live-p target-win)
+ (with-selected-window target-win
+ (funcall func page))))
+ win goto-func target-page)))))))
windows))))))
-
;;;###autoload
(define-minor-mode doc-dual-view-mode
"Minor mode to sync pages between two windows showing the same document."
