# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806022588 0
# Node ID 94ee086557db8c912c547dfe37202f2e25e0f2ed
# Parent  7318536fb25654f6f85261f8203b9d9d84a51520
(electric-buffer-list): Save point before
finding the first buffer line, and use that saved point to
determine the buffer to use, if it is a reasonable value.

diff -r 7318536fb256 -r 94ee086557db lisp/ebuff-menu.el
--- a/lisp/ebuff-menu.el	Mon Jul 17 23:07:35 1995 +0000
+++ b/lisp/ebuff-menu.el	Mon Jul 17 23:09:48 1995 +0000
@@ -68,14 +68,19 @@
 			    ?\ )
 			(progn (setq unread-command-events nil)
 			       (throw 'electric-buffer-menu-select nil)))
-		    (let ((first (progn (goto-char (point-min))
+		    (let ((start-point (point))
+			  (first (progn (goto-char (point-min))
 					(forward-line 2)
 					(point)))
 			  (last (progn (goto-char (point-max))
 				       (forward-line -1)
 				       (point)))
 			  (goal-column 0))
-		      (goto-char first)
+		      ;; Use start-point if it is meaningful.
+		      (goto-char (if (or (< start-point first)
+					 (> start-point last))
+				     first
+				   start-point))
 		      (Electric-command-loop 'electric-buffer-menu-select
 					     nil
 					     t