From a49ea24c888c1eaa4a6a8234bcbc8c3707722f76 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 25 Mar 1996 19:00:44 +0000 Subject: [PATCH] (mouse-buffer-menu): Keep the order of buffers straight. --- lisp/mouse.el | 5 +++-- 1 file 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 -- 2.39.2