From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 8 Jan 2023 14:35:52 +0000 (+0200)
Subject: MODIFIED: do not force set next-error buffer to Prolog buffer
X-Git-Tag: V9.1.3~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7db8a2e1e26b07cc8c8b3a629a685b0fd344c2f;p=dict.git

MODIFIED: do not force set next-error buffer to Prolog buffer
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 0c196f7..d60a3d0 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3884,18 +3884,13 @@ certain contexts to maintain conventional Prolog layout."
     (add-hook 'sweeprolog-analyze-region-start-hook #'sweeprolog-analyze-start-flymake nil t)
     (add-hook 'sweeprolog-analyze-region-fragment-hook #'sweeprolog-analyze-fragment-flymake nil t)
     (add-hook 'sweeprolog-analyze-region-end-hook #'sweeprolog-analyze-end-flymake nil t)
-    (setq-local next-error-function #'flymake-goto-next-error)
-    (add-hook 'window-selection-change-functions
-              (let ((buffer (current-buffer)))
-                (lambda (win)
-                  (when (equal buffer
-                               (window-buffer win))
-                    (next-error-select-buffer buffer))))
-              nil t))
+    (setq-local next-error-function #'flymake-goto-next-error))
   (when (and (boundp 'cycle-spacing-actions)
              (consp cycle-spacing-actions)
-             sweeprolog-enable-cycle-spacing
-             (setq-local cycle-spacing-actions (cons #'sweeprolog-align-spaces cycle-spacing-actions))))
+             sweeprolog-enable-cycle-spacing)
+    (setq-local cycle-spacing-actions
+                (cons #'sweeprolog-align-spaces
+                      cycle-spacing-actions)))
   (sweeprolog-ensure-initialized)
   (sweeprolog--update-buffer-last-modified-time)
   (let ((time (current-time)))