1 ;; This file provides a fix for htmlize.el and Emacs 23.
2 ;; To use it, add the path to this directory to your load path and
3 ;; add (require 'htmlize-hack) to your Emacs init file.
7 (when (equal htmlize-version
"1.34")
8 (defun htmlize-face-size (face)
9 ;; The size (height) of FACE, taking inheritance into account.
10 ;; Only works in Emacs 21 and later.
13 for f
= face then
(face-attribute f
:inherit
)
14 until
(or (null f
) (eq f
'unspecified
))
15 for h
= (face-attribute f
:height
)
16 collect
(if (eq h
'unspecified
) nil h
))))
17 (reduce 'htmlize-merge-size
(cons nil size-list
)))))
19 (provide 'htmlize-hack
)
