(Buffer-menu-make-sort-button): Preserve point even when clicking from another window.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index da21f5336d8f2558d98e52dac3615ddb9069783d..e980055d422737c54a543ffc4395101b6b3dbf1d 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -627,8 +627,9 @@ For more information, see the function `buffer-menu'."
                        (define-key map [header-line mouse-2]
                          `(lambda (e)
                             (interactive "e")
-                            (if e (set-buffer (window-buffer (posn-window (event-end e)))))
-                            (Buffer-menu-sort ,column)))
+                            (save-window-excursion
+                              (if e (mouse-select-window e))
+                              (Buffer-menu-sort ,column))))
                        map)))
 
 (defun list-buffers-noselect (&optional files-only)