awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

tools/eval: fix window-live-p error on eval-and-replace

Browse Source 
Caused because the quickrun window adjustment hooks assume quickrun will
always spawn a results buffer, but in the case of eval-and-replace, it
doesn't.
This commit is contained in:
Henrik Lissner
2019-05-17 15:59:49 -04:00
parent 32f8fa9f46
commit ec240d0bfa
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/tools/eval/config.el
View File

@ -25,14 +25,15 @@
(defun +eval|quickrun-shrink-window () (defun +eval|quickrun-shrink-window ()
"Shrink the quickrun output window once code evaluation is complete." "Shrink the quickrun output window once code evaluation is complete."
(with-selected-window (get-buffer-window quickrun--buffer-name) (when-let* ((win (get-buffer-window quickrun--buffer-name)))
(let ((ignore-window-parameters t)) (with-selected-window (get-buffer-window quickrun--buffer-name)
(shrink-window-if-larger-than-buffer)))) (let ((ignore-window-parameters t))
(shrink-window-if-larger-than-buffer)))))
(add-hook 'quickrun-after-run-hook #'+eval|quickrun-shrink-window) (add-hook 'quickrun-after-run-hook #'+eval|quickrun-shrink-window)
(defun +eval|quickrun-scroll-to-bof () (defun +eval|quickrun-scroll-to-bof ()
"Ensures window is scrolled to BOF on invocation." "Ensures window is scrolled to BOF on invocation."
(with-selected-window (get-buffer-window quickrun--buffer-name) (when-let* ((win (get-buffer-window quickrun--buffer-name)))
(goto-char (point-min)))) (with-selected-window win
(goto-char (point-min)))))
(add-hook 'quickrun-after-run-hook #'+eval|quickrun-scroll-to-bof)) (add-hook 'quickrun-after-run-hook #'+eval|quickrun-scroll-to-bof))