unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page
@ 2013-06-19 19:36 regcl
  2013-06-22  1:22 ` Glenn Morris
  0 siblings, 1 reply; 4+ messages in thread
From: regcl @ 2013-06-19 19:36 UTC (permalink / raw)
  To: 14668


To reproduce the bug ...

emacs -Q -nw
C-x C-f foo.html

... paste text between the '***'s below into buffer foo.html ...

***
<!DOCTYPE html>
<html>
<head><title>Foo</title></head>
<body>
<h2>this is Foo</h2>
</body>
</html>
***

C-x C-s
M-x htmlfontify-buffer
C-x C-s foo.html.nw.html

Now open foo.html.nw.html to see a blank page. 

Note: The page contains text styled in such a way as to be invisible.

Compare foo.html.nw.html with this

emacs -Q
C-x C-f foo.html
M-x htmlfontify-buffer 
C-x C-s

... to see ...

*** /udd/regcl/public_html/edhos/foo.html.html	Wed Jun 19 11:29:40 2013
--- /udd/regcl/public_html/edhos/foo.html.nw.html	Wed Jun 19 11:40:32 2013
***************
*** 6,22 ****
      <title>foo.html</title>
  <meta name="generator" content="emacs 24.3.1; htmlfontify 0.21" />
  <style type="text/css"><!-- 
! body { font-family: courier;  font-stretch: normal;  font-weight: 500;  font-style: normal;  color: #000000;  background: #ffffff;  font-size: 13pt;  text-decoration: none; }
! span.default   { font-family: courier;  font-stretch: normal;  font-weight: 500;  font-style: normal;  color: #000000;  background: #ffffff;  font-size: 13pt;  text-decoration: none; }
! span.default a { font-family: courier;  font-stretch: normal;  font-weight: 500;  font-style: normal;  color: #000000;  background: #ffffff;  font-size: 13pt;  text-decoration: underline; }
! span.bold-italic   { font-style: italic;  font-weight: 700;  font-family: courier;  font-stretch: normal;  color: #000000;  background: #ffffff;  font-size: 13pt;  text-decoration: none; }
! span.bold-italic a { font-style: italic;  font-weight: 700;  font-family: courier;  font-stretch: normal;  color: #000000;  background: #ffffff;  font-size: 13pt;  text-decoration: underline; }
! span.bold   { font-weight: 700;  font-family: courier;  font-stretch: normal;  font-style: normal;  color: #000000;  background: #ffffff;  font-size: 13pt;  text-decoration: none; }
! span.bold a { font-weight: 700;  font-family: courier;  font-stretch: normal;  font-style: normal;  color: #000000;  background: #ffffff;  font-size: 13pt;  text-decoration: underline; }
! span.function-name   { color: #0000ff;  font-family: courier;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: #ffffff;  font-size: 13pt;  text-decoration: none; }
! span.function-name a { color: #0000ff;  font-family: courier;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: #ffffff;  font-size: 13pt;  text-decoration: underline; }
! span.keyword   { color: #a020f0;  font-family: courier;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: #ffffff;  font-size: 13pt;  text-decoration: none; }
! span.keyword a { color: #a020f0;  font-family: courier;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: #ffffff;  font-size: 13pt;  text-decoration: underline; }
   --></style>
  
      <script type="text/javascript"><!--
--- 6,22 ----
      <title>foo.html</title>
  <meta name="generator" content="emacs 24.3.1; htmlfontify 0.21" />
  <style type="text/css"><!-- 
! body { font-family: default;  font-stretch: normal;  font-weight: 500;  font-style: normal;  color: nil;  background: nil;  font-size: 0pt;  text-decoration: none; }
! span.default   { font-family: default;  font-stretch: normal;  font-weight: 500;  font-style: normal;  color: nil;  background: nil;  font-size: 0pt;  text-decoration: none; }
! span.default a { font-family: default;  font-stretch: normal;  font-weight: 500;  font-style: normal;  color: nil;  background: nil;  font-size: 0pt;  text-decoration: underline; }
! span.bold-italic   { font-style: italic;  font-weight: 700;  font-family: default;  font-stretch: normal;  color: nil;  background: nil;  font-size: 0pt;  text-decoration: none; }
! span.bold-italic a { font-style: italic;  font-weight: 700;  font-family: default;  font-stretch: normal;  color: nil;  background: nil;  font-size: 0pt;  text-decoration: underline; }
! span.bold   { font-weight: 700;  font-family: default;  font-stretch: normal;  font-style: normal;  color: nil;  background: nil;  font-size: 0pt;  text-decoration: none; }
! span.bold a { font-weight: 700;  font-family: default;  font-stretch: normal;  font-style: normal;  color: nil;  background: nil;  font-size: 0pt;  text-decoration: underline; }
! span.function-name   { color: nil;  font-family: default;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: nil;  font-size: 0pt;  text-decoration: none; }
! span.function-name a { color: nil;  font-family: default;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: nil;  font-size: 0pt;  text-decoration: underline; }
! span.keyword   { color: nil;  font-family: default;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: nil;  font-size: 0pt;  text-decoration: none; }
! span.keyword a { color: nil;  font-family: default;  font-stretch: normal;  font-weight: 500;  font-style: normal;  background: nil;  font-size: 0pt;  text-decoration: underline; }
   --></style>
  
      <script type="text/javascript"><!--

Best,
regcl


In GNU Emacs 24.3.1 (i386-pc-solaris2.10, X toolkit, Xaw scroll bars)
 of 2013-05-22 on capecod
Configured using:
 `configure '--prefix=/udd/regcl/SunOS' '--with-gif=no''

Important settings:
  value of $LC_COLLATE: en_US.ISO8859-1
  value of $LC_CTYPE: en_US.ISO8859-1
  value of $LC_MESSAGES: C
  value of $LC_MONETARY: en_US.ISO8859-1
  value of $LC_NUMERIC: en_US.ISO8859-1
  value of $LC_TIME: en_US.ISO8859-1
  locale-coding-system: iso-latin-1-unix
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
DEL DEL DEL DEL DEL DEL d o e s SPC DEL DEL DEL DEL 
DEL p r o d u c e s SPC s n o w SPC i n SPC DEL DEL 
DEL i n SPC e m a c s SPC - n w RET C-x 1 ESC < C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-n C-n 
C-n C-n C-n C-n C-n C-p C-p T h e SPC . h t m l SPC 
f i l DEL DEL DEL p r o d u c e d SPC b y SPC h t m 
l f o n g i f y DEL DEL DEL DEL C-x 3 ESC a a C-g ESC 
O P a h t m l RET C-x o C-n C-n C-n C-n C-n C-n C-@ 
C-e ESC w C-x o DEL C-e DEL DEL DEL DEL DEL DEL DEL 
C-y DEL DEL DEL DEL DEL DEL DEL DEL DEL DEL DEL DEL 
DEL DEL DEL DEL DEL DEL DEL r SPC p r o d u c e s SPC 
s n o w SPC p a g e s SPC DEL DEL DEL DEL DEL DEL DEL 
DEL DEL DEL DEL i n v i s i b l e SPC DEL DEL DEL DEL 
DEL DEL DEL DEL DEL DEL s n o w DEL DEL DEL DEL w h 
i n DEL t e SPC o n SPC w h i t e f a i DEL DEL DEL 
DEL DEL DEL DEL DEL DEL C-x k RET y e s RET ESC x r 
e p o r t SPC e m a SPC b SPC RET

Recent messages:
Checking 77 files in /udd/regcl/SunOS/share/emacs/24.3/lisp/obsolete...
Checking 1 files in /udd/regcl/SunOS/share/emacs/24.3/leim...
Checking for load-path shadows...done
Mark set
byte-code: Beginning of buffer
Quit
Type C-x 4 C-o RET to restore the other window.  
Mark set [2 times]
Auto-saving...done
Auto-saving...done

Load-path shadows:
None found.

Features:
(apropos help-mode shadow sort gnus-util mail-extr emacsbug message
format-spec rfc822 mml easymenu mml-sec mm-decode mm-bodies mm-encode
mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047
rfc2045 ietf-drums mm-util mail-prsvr mail-utils time-date tooltip
ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd
fontset image regexp-opt fringe tabulated-list newcomment lisp-mode
register page menu-bar rfn-eshadow timer select scroll-bar mouse
jit-lock font-lock syntax facemenu font-core frame cham georgian
utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev
minibuffer loaddefs button faces cus-face macroexp files text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote make-network-process dynamic-setting
x-toolkit x multi-tty emacs)





^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page
  2013-06-19 19:36 bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page regcl
@ 2013-06-22  1:22 ` Glenn Morris
  2013-06-26  7:00   ` Glenn Morris
  2013-07-16 22:14   ` regcl
  0 siblings, 2 replies; 4+ messages in thread
From: Glenn Morris @ 2013-06-22  1:22 UTC (permalink / raw)
  To: regcl; +Cc: 14668


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






^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page
  2013-06-22  1:22 ` Glenn Morris
@ 2013-06-26  7:00   ` Glenn Morris
  2013-07-16 22:14   ` regcl
  1 sibling, 0 replies; 4+ messages in thread
From: Glenn Morris @ 2013-06-26  7:00 UTC (permalink / raw)
  To: 14668-done

Version: 24.4

Installed in the absence of any comments.

Glenn Morris wrote:

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





^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page
  2013-06-22  1:22 ` Glenn Morris
  2013-06-26  7:00   ` Glenn Morris
@ 2013-07-16 22:14   ` regcl
  1 sibling, 0 replies; 4+ messages in thread
From: regcl @ 2013-07-16 22:14 UTC (permalink / raw)
  To: Glenn Morris; +Cc: 14668

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

Glenn Morris <rgm@gnu.org> 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"))





^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2013-07-16 22:14 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-06-19 19:36 bug#14668: 24.3; htmlfontify-buffer under emacs -nw produces blank page regcl
2013-06-22  1:22 ` Glenn Morris
2013-06-26  7:00   ` Glenn Morris
2013-07-16 22:14   ` regcl

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).