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 | 176f2bf111747b3a383f0b9b8dc1fcdb7796a39b (patch) | |
| tree | 49fc8c19a7e00fed4699333638100e104267a466 /lisp/mouse.el | |
| parent | dbb3548b62aba807dd58fea8bca7e4bbcfe80022 (diff) | |
| download | emacs-176f2bf111747b3a383f0b9b8dc1fcdb7796a39b.tar.gz | |
(mouse-buffer-menu): Keep the order of buffers straight.
Diffstat (limited to 'lisp/mouse.el')
| -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 |