branch: elpa/sweeprolog
commit f7db8a2e1e26b07cc8c8b3a629a685b0fd344c2f
Author: Eshel Yaron <[email protected]>
Commit: Eshel Yaron <[email protected]>
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)))
