summaryrefslogtreecommitdiff
path: root/contrib/htmlize-hack.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2024-02-09 18:40:01 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2024-02-09 18:40:01 -0500
commit8710adde8fef5fb570e23383900f5cfa1d39060c (patch)
tree70c2b3a522067a199ce05055a093db1e33dc6bbb /contrib/htmlize-hack.el
parent20fc8575d5bab5a8e67c35046ee26b8b3fe42731 (diff)
Fix compilation and address some warningsexternals/muse
Replace remaining uses of `cl` with `cl-lib`. Activate `lexical-binding` in the files we touch. Adjust code accordingly (especially uses of `add-to-list` applied to local variables). Sync README with the one from github. Adjust to the move to `lisp` subdirectory.
Diffstat (limited to 'contrib/htmlize-hack.el')
-rw-r--r--contrib/htmlize-hack.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/htmlize-hack.el b/contrib/htmlize-hack.el
index b75464e..f9f4a3d 100644
--- a/contrib/htmlize-hack.el
+++ b/contrib/htmlize-hack.el
@@ -1,6 +1,6 @@
-;;; htmlize-hack.el ---
+;;; htmlize-hack.el --- -*- lexical-binding: t; -*-
-;; Copyright (C) 2004-2020 Free Software Foundation, Inc.
+;; Copyright (C) 2004-2024 Free Software Foundation, Inc.
;; This file is part of Emacs Muse. It is not part of GNU Emacs.
@@ -25,7 +25,7 @@
;;; Code:
-(require 'cl)
+(require 'cl-lib)
(if t (require 'htmlize)) ; Don't load during compilation.
(when (equal htmlize-version "1.34")
@@ -33,11 +33,11 @@
;; The size (height) of FACE, taking inheritance into account.
;; Only works in Emacs 21 and later.
(let ((size-list
- (loop
+ (cl-loop
for f = face then (face-attribute f :inherit)
until (or (null f) (eq f 'unspecified))
for h = (face-attribute f :height)
collect (if (eq h 'unspecified) nil h))))
- (reduce 'htmlize-merge-size (cons nil size-list)))))
+ (cl-reduce #'htmlize-merge-size (cons nil size-list)))))
(provide 'htmlize-hack)