[nongnu] elpa/focus 27eda82b95 40/82: Binding for enabling focus-read-only-mode in focus-mode

[ELPA Syncer]

branch: elpa/focus
commit 27eda82b953f153199d3622e86e2a84d35e9ccbe
Author: Lars Tveito <larstvei@ifi.uio.no>
Commit: Lars Tveito <larstvei@ifi.uio.no>

    Binding for enabling focus-read-only-mode in focus-mode
---
 focus.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/focus.el b/focus.el
index e79aa47787..238673374b 100644
--- a/focus.el
+++ b/focus.el
@@ -205,6 +205,9 @@ This is added to the `pre-command-hook' when
 (define-minor-mode focus-mode
   "Dim the font color of text in surrounding sections."
   :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)))
 
 ;;;###autoload