From d92ec61bb63c6c9099b7e2a013313e3a31a0b6c1 Mon Sep 17 00:00:00 2001 From: Simon-Lin Date: Tue, 18 Jan 2022 15:18:52 -0600 Subject: [PATCH] bug fix Fix the bug that lpp/window-containing-preview cannot correctly identify the correct window --- latex-preview-pane.el | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) diff --git a/latex-preview-pane.el b/latex-preview-pane.el index 597ed90..bc35b26 100755 --- a/latex-preview-pane.el +++ b/latex-preview-pane.el @@ -60,18 +60,8 @@ (add-hook 'latex-mode-hook (lambda () (latex-preview-pane-mode 1)))) (defun lpp/window-containing-preview () - (let (windows i docViewWindow) - (setq windows (cl-reduce #'append (mapcar `window-list (frame-list)))) - (setq i 0) - (progn - (while (and (not docViewWindow) (<= i (length windows))) - (let ((currentWindow (pop windows))) - (if (window-parameter currentWindow 'is-latex-preview-pane) - (setq docViewWindow currentWindow) - )) - (setq i (1+ i)) - ) - docViewWindow))) + (let ((windows (cl-reduce #'append (mapcar `window-list (frame-list))))) + (cl-find-if (lambda (window) (window-parameter window 'is-latex-preview-pane)) windows))) ;; ;; Init procedure: