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

Move condition

Browse Source
This commit is contained in:
Lars Tveito 2020-02-24 21:50:24 +01:00
parent f82be0af42
commit af05a01667
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
focus.el
View File

@ -173,13 +173,14 @@ The timer calls `focus-read-only-hide-cursor' after
"Restore original colors between LOW and HIGH.
Returns the list of added overlays."
(let* ((next (min high (or (next-property-change low) high)))
(face (get-text-property low 'face))
(fg (focus-foreground-from-face face))
(restored-face (focus-make-focused-face fg))
(o (make-overlay low next)))
(overlay-put o 'face restored-face)
(cons o (when (< low high) (focus-undim-area next high)))))
(when (< low high)
(let* ((next (min high (or (next-property-change low) high)))
(face (get-text-property low 'face))
(fg (focus-foreground-from-face face))
(restored-face (focus-make-focused-face fg))
(o (make-overlay low next)))
(overlay-put o 'face restored-face)
(cons o (focus-undim-area next high)))))
(defun focus-move-focus ()
"Move the focused section according to `focus-bounds'.