Subject: Re: bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page

From: regcl <[email-masked]>
Date: Tue, 16 Jul 2013 18:14:54 -0400

Hi Glenn, Sorry for the delay in responding. That fixes the problem for me. Many thanks! regcl

Glenn Morris <[email-masked]> writes:

> Thanks. I'm surprised this doesn't work. There seem to be two issues:
> "unspecified-fg" and "unspecified-bg" colours, and the fact that font
> :height == 1 in ttys. This hack seems to fix it:
>
>
> *** lisp/htmlfontify.el	2013-02-22 01:32:45 +0000
> --- lisp/htmlfontify.el	2013-06-22 01:18:50 +0000
> ***************
> *** 748,753 ****
> --- 748,756 ----
>   member lower than that of the color you are processing) strange things
>   may happen."
>     ;;(message "hfy-colour-vals");;DBUG
> +   (cond
> +    ((equal colour "unspecified-fg") (setq colour "black"))
> +    ((equal colour "unspecified-bg") (setq colour "white")))
>     (let ((white (mapcar (lambda (I) (float (1+ I))) (hfy-colour-vals "white")))
>           (rgb16 (mapcar (lambda (I) (float (1+ I))) (hfy-colour-vals  colour))))
>       (if rgb16
> ***************
> *** 773,778 ****
> --- 776,783 ----
>     "Derive a CSS font-size specifier from an Emacs font :height attribute HEIGHT.
>   Does not cope with the case where height is a function to be applied to
>   the height of the underlying font."
> +   ;; In ttys, the default face has :height == 1.
> +   (and (not (display-graphic-p)) (equal 1 height) (setq height 120))
>     (list
>      (cond
>       ;;(t                 (cons "font-size" ": 1em"))