diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-25 19:00:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-25 19:00:44 +0000 |
| commit | a49ea24c888c1eaa4a6a8234bcbc8c3707722f76 (patch) | |
| tree | 6817e0708f4a7acaa4c913bfccc41a839ca652be | |
| parent | 528fbf51268d26a0b11e28bb7599f6f6499575a5 (diff) | |
| download | emacs-a49ea24c888c1eaa4a6a8234bcbc8c3707722f76.tar.gz | |
(mouse-buffer-menu): Keep the order of buffers straight.
| -rw-r--r-- | lisp/mouse.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index f546c32d700..a5870734764 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1202,12 +1202,13 @@ and selects that window." elt) head)))) (setq tail (cdr tail))) - head)) + ;; Compensate for the reversal that the above loop does. + (nreverse head))) (menu ;; If we have lots of buffers, divide them into groups of 20 ;; and make a pane (or submenu) for each one. (if (> (length buffers) (/ (* mouse-menu-buffer-maxlen 3) 2)) - (let ((buffers (reverse buffers)) sublists next + (let ((buffers buffers) sublists next (i 1)) (while buffers ;; Pull off the next mouse-menu-buffer-maxlen buffers |