Rename variable.

diff --git a/context-coloring-emacs-lisp.el b/context-coloring-emacs-lisp.el
index e2556e5976b9a3ae8a659f0c139e1bb99967e888..71602664cff9b5ff000130958b9ca1f29f0c60a5 100644 (file)
--- 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 405a7b89cd58a5088ea58b9b33ca0a7cf71d9b4e..a20bfa6a110a5043fa74f9eb62ff15ab8e0b155c 100644 (file)
--- 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")))))