diff options
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 5 |
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 |