[nongnu] elpa/hl-block-mode 82f42045c1 31/64: Enable lexical binding

[ELPA Syncer]

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

    Enable lexical binding
---
 hl-block-mode.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/hl-block-mode.el b/hl-block-mode.el
index 508496997b..09b9636b4d 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -1,4 +1,4 @@
-;;; hl-block-mode.el --- highlighting nested blocks
+;;; hl-block-mode.el --- highlighting nested blocks -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2019  Campbell Barton
 
@@ -129,8 +129,8 @@ Inverse of `color-values'."
                 (bg-color-blend
                   (apply 'hl-block--color-values-as-string
                     (if do-highlight
-                      (cl-mapcar '(lambda (a b) (+ a (* i-tint b))) bg-color 
bg-color-tint)
-                      (cl-mapcar '(lambda (a b) (- a (* i-tint b))) bg-color 
bg-color-tint)))))
+                      (cl-mapcar `(lambda (a b) (+ a (* ,i-tint b))) bg-color 
bg-color-tint)
+                      (cl-mapcar `(lambda (a b) (- a (* ,i-tint b))) bg-color 
bg-color-tint)))))
               (overlay-put elem-overlay-start 'face `(:background 
,bg-color-blend :extend t))
               (overlay-put elem-overlay-end 'face `(:background 
,bg-color-blend :extend t))
               (add-to-list 'hl-block-overlay elem-overlay-start)
@@ -181,7 +181,11 @@ This can happen when switching buffers."
     (hl-block--overlay-refresh)))
 
 ;;;###autoload
-(define-globalized-minor-mode global-hl-block-mode hl-block-mode 
hl-block-mode-turn-on)
+(define-globalized-minor-mode
+  global-hl-block-mode
+  hl-block-mode
+  hl-block-mode-turn-on
+  :group 'hl-block-mode)
 
 ;;;###autoload
 (defun hl-block-mode-turn-on ()