mirror of
https://github.com/larstvei/Focus.git
synced 2024-11-26 11:38:32 +00:00
Merge pull request #26 from phikal/master
This commit is contained in:
commit
fd65701b8c
4
focus.el
4
focus.el
@ -69,7 +69,7 @@ Things that are defined include `symbol', `list', `sexp',
|
||||
:group 'focus)
|
||||
|
||||
(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
|
||||
"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))))))
|
||||
|
||||
(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-mid-overlay low high)
|
||||
(move-overlay focus-post-overlay high (point-max)))
|
||||
|
Loading…
Reference in New Issue
Block a user