tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Protect htmlize from some buggy fants

This commit is contained in:
Carsten Dominik 2009-05-14 09:32:38 +02:00
parent 80fb1b566a
commit b6de229d4e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/lisp/htmlize.el
View File

@ -866,9 +866,9 @@ If no rgb.txt file is found, return nil."
;; Only works in Emacs 21 and later.
(let ((size-list
(loop
for f = face then (face-attribute f :inherit)
for f = face then (ignore-errors (face-attribute f :inherit)) ;?????
until (or (not f) (eq f 'unspecified))
for h = (face-attribute f :height)
for h = (ignore-errors (face-attribute f :height)) ;???????
collect (if (eq h 'unspecified) nil h))))
(reduce 'htmlize-merge-size (cons nil size-list))))