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

Fixed compile warnings.

Browse Source
This commit is contained in:
jenchieh 2019-03-09 21:59:30 +08:00
parent 045ee6175e
commit f058bd163d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
focus.el
View File

@ -198,7 +198,7 @@ default is overwritten. This function simply helps set the
"Pin the focused section to its current location or the region, "Pin the focused section to its current location or the region,
if active." if active."
(interactive) (interactive)
(when focus-mode (when (bound-and-true-p focus-mode)
(when (region-active-p) (when (region-active-p)
(focus-move-overlays (region-beginning) (region-end))) (focus-move-overlays (region-beginning) (region-end)))
(remove-hook 'post-command-hook 'focus-move-focus t))) (remove-hook 'post-command-hook 'focus-move-focus t)))
@ -206,7 +206,7 @@ if active."
(defun focus-unpin () (defun focus-unpin ()
"Unpin the focused section." "Unpin the focused section."
(interactive) (interactive)
(when focus-mode (when (bound-and-true-p focus-mode)
(add-hook 'post-command-hook 'focus-move-focus nil t))) (add-hook 'post-command-hook 'focus-move-focus nil t)))
(defun focus-next-thing (&optional n) (defun focus-next-thing (&optional n)
@ -229,7 +229,8 @@ if active."
This function is triggered by the `focus-read-only-blink-timer', This function is triggered by the `focus-read-only-blink-timer',
when `focus-read-only-mode' is activated." when `focus-read-only-mode' is activated."
(with-current-buffer focus-buffer (with-current-buffer focus-buffer
(when (and focus-read-only-mode (not (null focus-read-only-blink-timer))) (when (and (bound-and-true-p focus-read-only-mode)
(not (null focus-read-only-blink-timer)))
(setq focus-read-only-blink-timer nil) (setq focus-read-only-blink-timer nil)
(setq cursor-type nil)))) (setq cursor-type nil))))
@ -238,7 +239,7 @@ when `focus-read-only-mode' is activated."
This is added to the `pre-command-hook' when This is added to the `pre-command-hook' when
`focus-read-only-mode' is active." `focus-read-only-mode' is active."
(with-current-buffer focus-buffer (with-current-buffer focus-buffer
(when (and focus-read-only-mode (when (and (bound-and-true-p focus-read-only-mode)
(not (member last-command '(focus-next-thing focus-prev-thing)))) (not (member last-command '(focus-next-thing focus-prev-thing))))
(when focus-read-only-blink-timer (cancel-timer focus-read-only-blink-timer)) (when focus-read-only-blink-timer (cancel-timer focus-read-only-blink-timer))
(setq cursor-type focus-cursor-type) (setq cursor-type focus-cursor-type)