branch: externals/beardbolt
commit 93778d8391caf48b50f87e7f20cf5398f698c1f7
Author: João Távora <[email protected]>
Commit: João Távora <[email protected]>
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"
