[nongnu] elpa/sweeprolog f7db8a2e1e 1/2: MODIFIED: do not force set next-error buffer to Prolog buffer

[ELPA Syncer]

branch: elpa/sweeprolog
commit f7db8a2e1e26b07cc8c8b3a629a685b0fd344c2f
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    MODIFIED: do not force set next-error buffer to Prolog buffer
---
 sweeprolog.el | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 0c196f72aa..d60a3d09e9 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)))