Mercurial > emacs

changeset 14881:e0a3004e029d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-buffer-menu): Keep the order of buffers straight.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Mar 1996 19:00:44 +0000
parents b405f39b5493
children 582cb6240b09
files lisp/mouse.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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