From c8d8f3225ec355dc134bf0af287f00c19c4d6d52 Mon Sep 17 00:00:00 2001 From: Daniel Pfeiffer Date: Mon, 18 Oct 2004 20:45:52 +0000 Subject: [PATCH] (Buffer-menu-make-sort-button) Make sorting by mouse-2 work from a different window. --- lisp/buff-menu.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) -- 2.39.5