From f7db8a2e1e26b07cc8c8b3a629a685b0fd344c2f Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 8 Jan 2023 16:35:52 +0200 Subject: [PATCH] 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 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))) -- 2.39.2