Commit a49ea24c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 528fbf51
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment