larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2025-11-04 02:00:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix checkdoc issues

Browse Source
This commit is contained in:
Philip Kaludercic 2022-09-06 10:22:16 +02:00
parent 704db49988
commit 02eeb16e26
No known key found for this signature in database
GPG Key ID: F2C3CC513DB89F66
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
focus.el
View File

@ -69,7 +69,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.")
@ -114,7 +114,7 @@ command."
(focus-move-overlays (car bounds) (cdr bounds)))))) (focus-move-overlays (car bounds) (cdr bounds))))))
(defun focus-move-overlays (low high) (defun focus-move-overlays (low high)
"Move `focus-pre-overlay', `focus-mid-overlay' and `focus-post-overlay'." "Move the overlays to highlight the region between LOW and HIGH."
(move-overlay focus-pre-overlay (point-min) low) (move-overlay focus-pre-overlay (point-min) low)
(move-overlay focus-mid-overlay low high) (move-overlay focus-mid-overlay low high)
(move-overlay focus-post-overlay high (point-max))) (move-overlay focus-post-overlay high (point-max)))