changeset 28187:507041681c73

(append-to-buffer): Update point of windows after insertion.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 17 Mar 2000 22:33:28 +0000
parents a552a942b327
children 0e0b0df72444
files lisp/simple.el
diffstat 1 files changed, 10 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Fri Mar 17 22:32:39 2000 +0000
+++ b/lisp/simple.el	Fri Mar 17 22:33:28 2000 +0000
@@ -2011,9 +2011,16 @@
 	 (region-beginning) (region-end)))
   (let ((oldbuf (current-buffer)))
     (save-excursion
-      (set-buffer (get-buffer-create buffer))
-      (barf-if-buffer-read-only)
-      (insert-buffer-substring oldbuf start end))))
+      (let* ((append-to (get-buffer-create buffer))
+	     (windows (get-buffer-window-list append-to t t))
+	     point)
+	(set-buffer append-to)
+	(setq point (point))
+	(barf-if-buffer-read-only)
+	(insert-buffer-substring oldbuf start end)
+	(dolist (window windows)
+	  (when (= (window-point window) point)
+	    (set-window-point window (point))))))))
 
 (defun prepend-to-buffer (buffer start end)
   "Prepend to specified buffer the text of the region.