diff options
| -rw-r--r-- | lisp/play/zone.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/play/zone.el b/lisp/play/zone.el index 4584d26f385..75f13646190 100644 --- a/lisp/play/zone.el +++ b/lisp/play/zone.el | |||
| @@ -109,7 +109,7 @@ If the element is a function or a list of a function and a number, | |||
| 109 | (save-window-excursion | 109 | (save-window-excursion |
| 110 | (let ((f (selected-frame)) | 110 | (let ((f (selected-frame)) |
| 111 | (outbuf (get-buffer-create "*zone*")) | 111 | (outbuf (get-buffer-create "*zone*")) |
| 112 | (text (buffer-substring (window-start) (window-end))) | 112 | (text (buffer-substring (window-start) (window-end nil t))) |
| 113 | (wp (1+ (- (window-point) | 113 | (wp (1+ (- (window-point) |
| 114 | (window-start))))) | 114 | (window-start))))) |
| 115 | (put 'zone 'orig-buffer (current-buffer)) | 115 | (put 'zone 'orig-buffer (current-buffer)) |