This commit is contained in:
Lars Tveito 2020-02-23 23:44:14 +01:00
parent ee27db522a
commit 89a954d8d2

View File

@ -77,7 +77,7 @@ Things that are defined include `symbol', `list', `sexp',
:group 'focus) :group 'focus)
(defvar focus-cursor-type cursor-type (defvar focus-cursor-type cursor-type
"Used to restore the users `cursor-type'") "Used to restore the users `cursor-type'.")
(defvar-local focus-current-thing nil (defvar-local focus-current-thing nil
"Overrides the choice of thing dictated by `focus-mode-to-thing' if set.") "Overrides the choice of thing dictated by `focus-mode-to-thing' if set.")
@ -207,7 +207,7 @@ command."
(move-overlay focus-post-overlay high (point-max))) (move-overlay focus-post-overlay high (point-max)))
(defun focus-init () (defun focus-init ()
"This function runs when `focus-mode' is enabled. "This function run when command `focus-mode' is enabled.
It sets the `focus-pre-overlay', `focus-min-overlay', and It sets the `focus-pre-overlay', `focus-min-overlay', and
`focus-post-overlay' to overlays; these are invisible until `focus-post-overlay' to overlays; these are invisible until