Binding for enabling focus-read-only-mode in focus-mode

This commit is contained in:
Lars Tveito 2015-05-24 02:04:50 +02:00
parent d1bd81ee4d
commit 27eda82b95

View File

@ -205,6 +205,9 @@ This is added to the `pre-command-hook' when
(define-minor-mode focus-mode (define-minor-mode focus-mode
"Dim the font color of text in surrounding sections." "Dim the font color of text in surrounding sections."
:init-value nil :init-value nil
:keymap (let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-q") 'focus-read-only-mode)
map)
(if focus-mode (focus-init) (focus-terminate))) (if focus-mode (focus-init) (focus-terminate)))
;;;###autoload ;;;###autoload