summaryrefslogtreecommitdiff
path: root/lisp/mouse.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-03-25 19:00:44 +0000
committerRichard M. Stallman <rms@gnu.org>1996-03-25 19:00:44 +0000
commit176f2bf111747b3a383f0b9b8dc1fcdb7796a39b (patch)
tree49fc8c19a7e00fed4699333638100e104267a466 /lisp/mouse.el
parentdbb3548b62aba807dd58fea8bca7e4bbcfe80022 (diff)
downloademacs-176f2bf111747b3a383f0b9b8dc1fcdb7796a39b.tar.gz
(mouse-buffer-menu): Keep the order of buffers straight.
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r--lisp/mouse.el5
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