Re: Pixel-based display functions

[Lars Ingebrigtsen]

Lars Ingebrigtsen <address@hidden> writes:

> martin rudalics <address@hidden> writes:
>
>> `window-text-pixel-size' now _has_ an optional BUFFER argument on
>> trunk/master.
>
> Great; I'll try it out when I'm back in Sydney in a couple of days.

Evaling the following:

(progn
  (switch-to-buffer "empty")
  (with-temp-buffer
    (dotimes (i 100) (insert "hello"))
    (window-text-pixel-size nil 1 100 nil nil nil (current-buffer))))

Gives me this backtrace:

Debugger entered--Lisp error: (args-out-of-range 81)
  window-text-pixel-size(nil 1 100 nil nil nil #<buffer  *temp*>)
  (progn (let ((--dotimes-limit-- 100) (i 0)) (while (< i --dotimes-limit--) 
(insert "hello") (setq i (1+ i)))) (window-text-pixel-size nil 1 100 nil nil 
nil (current-buffer)))
  (unwind-protect (progn (let ((--dotimes-limit-- 100) (i 0)) (while (< i 
--dotimes-limit--) (insert "hello") (setq i (1+ i)))) (window-text-pixel-size 
nil 1 100 nil nil nil (current-buffer))) (and (buffer-name temp-buffer) 
(kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let 
((--dotimes-limit-- 100) (i 0)) (while (< i --dotimes-limit--) (insert "hello") 
(setq i (1+ i)))) (window-text-pixel-size nil 1 100 nil nil nil 
(current-buffer))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (let ((--dotimes-limit-- 100) 
(i 0)) (while (< i --dotimes-limit--) (insert "hello") (setq i (1+ i)))) 
(window-text-pixel-size nil 1 100 nil nil nil (current-buffer))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (switch-to-buffer "empty") (let ((temp-buffer (generate-new-buffer " 
*temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
(let ((--dotimes-limit-- 100) (i 0)) (while (< i --dotimes-limit--) (insert 
"hello") (setq i ...))) (window-text-pixel-size nil 1 100 nil nil nil 
(current-buffer))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  eval((progn (switch-to-buffer "empty") (let ((temp-buffer 
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect (progn (let ((--dotimes-limit-- 100) (i 0)) (while (< i 
--dotimes-limit--) (insert "hello") (setq i ...))) (window-text-pixel-size nil 
1 100 nil nil nil (current-buffer))) (and (buffer-name temp-buffer) 
(kill-buffer temp-buffer)))))) nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)


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