bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Glenn Morris
Subject: bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page
Date: Fri, 21 Jun 2013 21:22:42 -0400
User-agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/)

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"))






reply via email to

[Prev in Thread] Current Thread [Next in Thread]