Mercurial > emacs
changeset 12568:94ee086557db
(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.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 17 Jul 1995 23:09:48 +0000 |
| parents | 7318536fb256 |
| children | 1297698116a8 |
| files | lisp/ebuff-menu.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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