# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827780444 0
# Node ID e0a3004e029de7e7304378cc539d7305a74fa728
# Parent  b405f39b54937817c29e955340a555122f72cd43
(mouse-buffer-menu): Keep the order of buffers straight.

diff -r b405f39b5493 -r e0a3004e029d lisp/mouse.el
--- a/lisp/mouse.el	Mon Mar 25 15:09:27 1996 +0000
+++ b/lisp/mouse.el	Mon Mar 25 19:00:44 1996 +0000
@@ -1202,12 +1202,13 @@
 			    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