(Buffer-menu-make-sort-button) Make sorting by mouse-2 work from a different window.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index b00721e93ec..da21f5336d8 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -625,7 +625,9 @@ For more information, see the function `buffer-menu'."
               'mouse-face 'highlight
               'keymap (let ((map (make-sparse-keymap)))
                         (define-key map [header-line mouse-2]
-                          `(lambda () (interactive)
+                          `(lambda (e)
+                             (interactive "e")
+                             (if e (set-buffer (window-buffer (posn-window (event-end e)))))
                              (Buffer-menu-sort ,column)))
                         map)))