procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/htmlfontify.el (hfy-triplet): Handle unspecified-fg, bg.

Browse source 
(hfy-size): Handle ttys.

Fixes: debbugs:14668
This commit is contained in:
Glenn Morris 2013-06-25 23:59:48 -07:00
parent f2136e1e28
commit eab35f3922
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2013-06-26 Glenn Morris <rgm@gnu.org>
* htmlfontify.el (hfy-triplet): Handle unspecified-fg, bg.
(hfy-size): Handle ttys. (Bug#14668)
* info-xref.el: Update for Texinfo 5 change in *note format.
(info-xref-node-re, info-xref-note-re): New constants.
(info-xref-check-buffer): Use info-xref-note-re.

6
lisp/htmlfontify.el
View file

@ -748,6 +748,10 @@ if you've redefined white, (esp. if you've redefined it to have a triplet
member lower than that of the color you are processing) strange things
may happen."
;;(message "hfy-colour-vals");;DBUG
;; TODO? Can we do somehow do better than this?
(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,6 +777,8 @@ may happen."
"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 100))
(list
(cond
;;(t (cons "font-size" ": 1em"))