Avoid errors in zone.el when there's overlay at EOB

* lisp/play/zone.el (zone): Make sure the window-end position
is calculated accurately, to avoid errors from
buffer-substring.  (Bug#33384)
This commit is contained in:
Eli Zaretskii 2018-11-16 21:52:34 +02:00
parent 936a8f3093
commit d6542ea0f0

View file

@ -109,7 +109,7 @@ If the element is a function or a list of a function and a number,
(save-window-excursion
(let ((f (selected-frame))
(outbuf (get-buffer-create "*zone*"))
(text (buffer-substring (window-start) (window-end)))
(text (buffer-substring (window-start) (window-end nil t)))
(wp (1+ (- (window-point)
(window-start)))))
(put 'zone 'orig-buffer (current-buffer))