[elpa] externals/beardbolt 93778d8391 298/323: Don't try any window scrolling heroics on recompile

[ELPA Syncer]

branch: externals/beardbolt
commit 93778d8391caf48b50f87e7f20cf5398f698c1f7
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Don't try any window scrolling heroics on recompile
    
    They are more annoying than useful
    
    * beardbolt.el (bb--handle-finish-compile): Simplify.
---
 beardbolt.el | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/beardbolt.el b/beardbolt.el
index c780410e87..16c82e0be9 100644
--- a/beardbolt.el
+++ b/beardbolt.el
@@ -521,18 +521,12 @@ Argument STR compilation finish status."
        ((string-match "^finished" str)
         (display-buffer (current-buffer) `(() (inhibit-same-window . t)))
         ;; Replace buffer contents but save point and scroll
-        (let* ((output-window (get-buffer-window))
-               (inhibit-modification-hooks t)
-               (old-point (and output-window (window-point output-window)))
-               (old-window-start (and output-window (window-start 
output-window))))
+        (let* ((inhibit-modification-hooks t))
           (erase-buffer)
           (mapc #'delete-overlay (overlays-in (point-min) (point-max)))
           (insert-file-contents declared-output)
           (setq bb--line-mappings nil)
           (save-excursion (funcall (cadr compile-spec)))
-          (when output-window
-            (set-window-start output-window old-window-start)
-            (set-window-point output-window old-point))
           (setq bb--line-mappings (reverse bb--line-mappings))
           (when (bb--get bb-demangle)
             (shell-command-on-region (point-min) (point-max) "c++filt"