20 lines
713 B
EmacsLisp
20 lines
713 B
EmacsLisp
|
;; This file provides a fix for htmlize.el and Emacs 23.
|
||
|
|
;; To use it, add the path to this directory to your load path and
|
||
|
|
;; add (require 'htmlize-hack) to your Emacs init file.
|
||
|
|
|
||
|
|
(require 'htmlize)
|
||
|
|
|
||
|
|
(when (equal htmlize-version "1.34")
|
||
|
|
(defun htmlize-face-size (face)
|
||
|
|
;; The size (height) of FACE, taking inheritance into account.
|
||
|
|
;; Only works in Emacs 21 and later.
|
||
|
|
(let ((size-list
|
||
|
|
(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)))))
|
||
|
|
|
||
|
|
(provide 'htmlize-hack)
|