branch: elpa/htmlize
commit 09d8a4fd76e11405605d7c9f016fadcc9ece706d
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    Remove htmlize-lexlet
    
    We already enable `lexical-binding' and only support Emacs releases
    that support that.
---
 htmlize.el | 28 ++++++++--------------------
 1 file changed, 8 insertions(+), 20 deletions(-)

diff --git a/htmlize.el b/htmlize.el
index 49a28359bc..bed01e9c66 100644
--- a/htmlize.el
+++ b/htmlize.el
@@ -369,14 +369,6 @@ 
https://www.iana.org/assignments/media-types/media-types.xhtml#image";)
       (setq pos (next-single-char-property-change pos 'display nil limit)))
     pos))
 
-(defmacro htmlize-lexlet (&rest letforms)
-  (declare (indent 1) (debug let))
-  (if (and (boundp 'lexical-binding)
-           lexical-binding)
-      `(let ,@letforms)
-    ;; cl extensions have a macro implementing lexical let
-    `(lexical-let ,@letforms)))
-
 
 ;;; Transformation of buffer text: HTML escapes, untabification, etc.
 
@@ -1441,11 +1433,9 @@ it's called with the same value of KEY.  All other 
times, the cached
     (princ "<span class=\"" buffer)
     (princ (htmlize-fstruct-css-name fstruct) buffer)
     (princ "\">" buffer))
-  (htmlize-lexlet ((fstruct-list fstruct-list) (buffer buffer))
-    (lambda ()
-      (dolist (fstruct fstruct-list)
-        (ignore fstruct)                ; shut up the byte-compiler
-        (princ "</span>" buffer)))))
+  (lambda ()
+    (dolist (_fstruct fstruct-list)
+      (princ "</span>" buffer))))
 
 
 ;;; `inline-css' output support.
@@ -1476,10 +1466,9 @@ it's called with the same value of KEY.  All other 
times, the cached
       (princ "<span style=\"" buffer)
       (princ style buffer)
       (princ "\">" buffer))
-    (htmlize-lexlet ((style style) (buffer buffer))
-      (lambda ()
-        (when style
-          (princ "</span>" buffer))))))
+    (lambda ()
+      (when style
+        (princ "</span>" buffer)))))
 
 
 ;;; `font' tag based output support.
@@ -1520,9 +1509,8 @@ it's called with the same value of KEY.  All other times, 
the cached
                          (and (htmlize-fstruct-boldp merged)      "</b>")
                          (and (htmlize-fstruct-foreground merged) 
"</font>"))))))
     (princ (car markup) buffer)
-    (htmlize-lexlet ((markup markup) (buffer buffer))
-      (lambda ()
-        (princ (cdr markup) buffer)))))
+    (lambda ()
+      (princ (cdr markup) buffer))))
 
 
 ;;; Utility functions.

Reply via email to