From 6c92cc2cdc4f0adac61858d20fabcda58bf7d01b Mon Sep 17 00:00:00 2001
From: Jackson Ray Hamilton <jackson@jacksonrayhamilton.com>
Date: Mon, 2 May 2016 21:31:45 -0700
Subject: [PATCH] Rename variable.

---
 context-coloring-emacs-lisp.el | 2 +-
 context-coloring.el            | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/context-coloring-emacs-lisp.el b/context-coloring-emacs-lisp.el
index e2556e597..71602664c 100644
--- a/context-coloring-emacs-lisp.el
+++ b/context-coloring-emacs-lisp.el
@@ -120,7 +120,7 @@ second.")
         (1+ context-coloring-elisp-sexp-count))
   (when (and (zerop (% context-coloring-elisp-sexp-count
                        context-coloring-elisp-sexps-per-pause))
-             context-coloring-parse-interruptable-p
+             context-coloring-interruptable-p
              (input-pending-p))
     (throw 'interrupted t)))
 
diff --git a/context-coloring.el b/context-coloring.el
index 405a7b89c..a20bfa6a1 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -388,8 +388,8 @@ permissible.")
       (setq ignore-p (funcall (pop predicates))))
     ignore-p))
 
-(defvar context-coloring-parse-interruptable-p t
-  "Set this to nil to force parse to continue until finished.")
+(defvar context-coloring-interruptable-p t
+  "When non-nil, coloring may be interrupted by user input.")
 
 ;;;###autoload
 (define-minor-mode context-coloring-mode
@@ -433,7 +433,7 @@ Feature inspired by Douglas Crockford."
           (when setup
             (funcall setup))
           ;; Colorize once initially.
-          (let ((context-coloring-parse-interruptable-p nil))
+          (let ((context-coloring-interruptable-p nil))
             (context-coloring-colorize))))
        ((not (context-coloring-ignore-unavailable-message-p))
         (message "Context coloring is unavailable here")))))
-- 
2.39.2