From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 25 Mar 1996 19:00:44 +0000 (+0000)
Subject: (mouse-buffer-menu): Keep the order of buffers straight.
X-Git-Tag: emacs-19.34~979
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a49ea24c888c1eaa4a6a8234bcbc8c3707722f76;p=emacs.git

(mouse-buffer-menu): Keep the order of buffers straight.
---

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