branch: externals/doc-view-follow
commit 693467470c7b6c618d805c175593dafb9cd6dd19
Author: Paul Nelson <ultr...@gmail.com>
Commit: Paul Nelson <ultr...@gmail.com>
Simplify variables in doc-dual-view--sync-pages
* doc-dual-view.el (doc-dual-view--sync-pages): Simplify variable
usage.
---
doc-dual-view.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/doc-dual-view.el b/doc-dual-view.el
index 19044d2d91..49831076ec 100644
--- a/doc-dual-view.el
+++ b/doc-dual-view.el
@@ -94,14 +94,14 @@ redisplay-func)."
(windows (doc-dual-view--order-windows
(get-buffer-window-list nil nil nil)))
((> (length windows) 1)))
- (let* ((goto-funcs (nth 1 mode-funcs))
+ (let* ((goto-func (car (nth 1 mode-funcs)))
(current-page-func (nth 2 mode-funcs))
+ (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))
- (current-page (funcall current-page-func))
- (max-page (funcall max-page-func))
(i 0))
(dolist (win windows)
(let ((target-page (min max-page (max 1 (+ current-page
@@ -111,7 +111,7 @@ redisplay-func)."
(with-selected-window win
(let ((current (funcall current-page-func)))
(when (not (= current target-page))
- (funcall (car goto-funcs) target-page)
+ (funcall goto-func target-page)
(let ((timer-sym
(intern (format
"doc-dual-view--redisplay-timer-%d" i))))
