bug#4040: 23.1; before-string overlay causes error when scrolling

[Andreas Schwab]

Evaluating this form signals an error:

ELISP> (with-temp-buffer
         (switch-to-buffer (current-buffer))
         (insert-char ?x (1+ (window-width)))
         (let ((ovl (make-overlay (1- (point)) (point))))
           (overlay-put ovl 'before-string " "))
         (goto-char 1)
         (scroll-up 1))
*** Eval error ***  Args out of range: 0

It comes from get_char_property_and_overlay, which is called with
position == 0 by pos_visible_p.

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."