[nongnu] elpa/hl-block-mode a7c9613145 6/7: Use private naming convention for mode management functions

[ELPA Syncer]

branch: elpa/hl-block-mode
commit a7c96131458cceee82441e8a3bdaa5382164b12f
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Use private naming convention for mode management functions
---
 hl-block-mode.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/hl-block-mode.el b/hl-block-mode.el
index 638da8b1b1..e751fda1e8 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -373,7 +373,7 @@ Argument BLOCK-LIST represents start-end ranges of braces."
 ;; ---------------------------------------------------------------------------
 ;; Internal Mode Management
 
-(defun hl-block-mode-enable ()
+(defun hl-block--mode-enable ()
   "Turn on `hl-block-mode' for the current buffer."
   (hl-block--time-buffer-local-enable)
 
@@ -390,14 +390,14 @@ Argument BLOCK-LIST represents start-end ranges of 
braces."
           (when (eq ?\( (char-syntax ch))
             (push ch hl-block-bracket)))))))
 
-(defun hl-block-mode-disable ()
+(defun hl-block--mode-disable ()
   "Turn off `hl-block-mode' for the current buffer."
   (hl-block--overlay-clear)
   (kill-local-variable 'hl-block--overlay)
   (kill-local-variable 'hl-block-bracket)
   (hl-block--time-buffer-local-disable))
 
-(defun hl-block-mode-turn-on ()
+(defun hl-block--mode-turn-on ()
   "Enable command `hl-block-mode'."
   (when (and (not (minibufferp)) (not (bound-and-true-p hl-block-mode)))
     (hl-block-mode 1)))
@@ -413,17 +413,15 @@ Argument BLOCK-LIST represents start-end ranges of 
braces."
 
   (cond
     (hl-block-mode
-      (jit-lock-unregister 'hl-block-mode-enable)
-      (hl-block-mode-enable))
+      (hl-block--mode-enable))
     (t
-      (jit-lock-unregister 'hl-block-mode-enable)
-      (hl-block-mode-disable))))
+      (hl-block--mode-disable))))
 
 ;;;###autoload
 (define-globalized-minor-mode
   global-hl-block-mode
 
-  hl-block-mode hl-block-mode-turn-on)
+  hl-block-mode hl-block--mode-turn-on)
 
 (provide 'hl-block-mode)
 ;; Local Variables: