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

Fix #5

Browse Source
This commit is contained in:
Lars Tveito 2016-01-11 14:22:48 +01:00
parent b90cfb3c27
commit 307df45c69
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
focus.el
View File

@ -166,10 +166,11 @@ adds `focus-move-focus' to `post-command-hook'."
The overlays pointed to by `focus-pre-overlay' and `focus-post-overlay' are The overlays pointed to by `focus-pre-overlay' and `focus-post-overlay' are
deleted, and `focus-move-focus' is removed from `post-command-hook'." deleted, and `focus-move-focus' is removed from `post-command-hook'."
(mapc 'delete-overlay (list focus-pre-overlay focus-post-overlay)) (when (and focus-pre-overlay focus-post-overlay)
(remove-hook 'post-command-hook 'focus-move-focus t) (mapc 'delete-overlay (list focus-pre-overlay focus-post-overlay))
(setq focus-pre-overlay nil (remove-hook 'post-command-hook 'focus-move-focus t)
focus-post-overlay nil)) (setq focus-pre-overlay nil
focus-post-overlay nil)))
(defun focus-goto-thing (bounds) (defun focus-goto-thing (bounds)
"Move point to the middle of BOUNDS." "Move point to the middle of BOUNDS."
@ -261,6 +262,10 @@ up the `focus-read-only-blink-timer' and hooks."
:keymap (let ((map (make-sparse-keymap))) :keymap (let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-q") 'focus-read-only-mode) (define-key map (kbd "C-c C-q") 'focus-read-only-mode)
map) map)
(unless (and (color-defined-p (face-attribute 'default :background))
(color-defined-p (face-attribute 'default :foreground)))
(message "Can't enable focus mode when no theme is loaded.")
(setq focus-mode nil))
(if focus-mode (focus-init) (focus-terminate))) (if focus-mode (focus-init) (focus-terminate)))
;;;###autoload ;;;###autoload