diff options
| author | Daniel Pfeiffer <occitan@esperanto.org> | 2004-10-18 20:45:52 +0000 |
|---|---|---|
| committer | Daniel Pfeiffer <occitan@esperanto.org> | 2004-10-18 20:45:52 +0000 |
| commit | c8d8f3225ec355dc134bf0af287f00c19c4d6d52 (patch) | |
| tree | 74e5f4f9405c1f2e19fcb10417b2cd93191a1245 /lisp/buff-menu.el | |
| parent | d4c2c0eff81e7540cbb0a32ef10017285f68e1aa (diff) | |
| download | emacs-c8d8f3225ec355dc134bf0af287f00c19c4d6d52.tar.gz | |
(Buffer-menu-make-sort-button) Make sorting by mouse-2 work from a different window.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 4 |
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))) |