Re: HTML-Info design

[Eli Zaretskii]

> From: Lars Ingebrigtsen <address@hidden>
> Cc: address@hidden
> Date: Mon, 26 Jan 2015 13:16:43 +1100
> 
> (defun pixel-region-width (start end)
>   (let ((width 0))
>     (while (< start end)
>       (let ((glyphs (font-get-glyphs (font-at start) start start)))
>       (setq width (+ width (aref (car glyphs) 4))))
>       (setq start (1+ start)))
>     width))
> 
> But it fails because `font-get-glyphs' always returns nil when I try it.

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)))) ;;   ^^^^^^^^^^
      (setq start (1+ start)))
    width))