mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1996-03-25 19:00:44 +00:00
parent 528fbf5126
commit a49ea24c88
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mouse.el
View file

@ -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