larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2024-11-26 11:38:32 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't recalculate while typing

Browse Source
This commit is contained in:
Lars Tveito 2020-03-08 20:48:58 +01:00
parent 872f24cb26
commit 9af4fbe635
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
focus.el
View File

@ -183,6 +183,7 @@ If `focus-mode' is enabled, this function is added to
`post-command-hook' and `window-scroll-functions'. The function `post-command-hook' and `window-scroll-functions'. The function
can be called with an arbitrary number of ARGS to support being can be called with an arbitrary number of ARGS to support being
called from `window-scroll-functions'." called from `window-scroll-functions'."
(while-no-input
(with-current-buffer focus-buffer (with-current-buffer focus-buffer
(let* ((bg (face-background 'default)) (let* ((bg (face-background 'default))
(window-bounds (focus-window-bounds)) (window-bounds (focus-window-bounds))
@ -200,7 +201,7 @@ called from `window-scroll-functions'."
(move-overlay focus-focused-overlay low high))) (move-overlay focus-focused-overlay low high)))
(setq focus-last-background bg) (setq focus-last-background bg)
(setq focus-last-window-bounds window-bounds) (setq focus-last-window-bounds window-bounds)
(setq focus-last-bounds bounds)))) (setq focus-last-bounds bounds)))))
(defun focus-make-focused-overlay () (defun focus-make-focused-overlay ()
(let ((o (make-overlay (point-min) (point-max)))) (let ((o (make-overlay (point-min) (point-max))))