Re: HTML-Info design

[Lars Ingebrigtsen]

Eli Zaretskii <address@hidden> writes:

> Try this instead:
>
> (defun pixel-region-width (start end)
>   (let ((width 0))
>     (while (< start end)
>       (let ((glyphs (font-get-glyphs (font-at start) start (1+ start))))
>       (setq width (+ width (aref (car glyphs) 4)))) ;;   ^^^^^^^^^^

D'oh.

Thanks for the help.  :-) I'll start experimenting with making shr using
proportional fonts for the text and see how far I get.  A new branch
will probably appear in the Emacs repo tomorrowish...

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/