procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Daniel Pfeiffer 2004-10-18 20:45:52 +00:00
parent d4c2c0eff8
commit c8d8f3225e
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/buff-menu.el
View file

@ -625,7 +625,9 @@ For more information, see the function `buffer-menu'."
'mouse-face 'highlight 'mouse-face 'highlight
'keymap (let ((map (make-sparse-keymap))) 'keymap (let ((map (make-sparse-keymap)))
(define-key map [header-line mouse-2] (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))) (Buffer-menu-sort ,column)))
map))) map)))