# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1099518928 0
# Node ID 56342493afe375ab9c4ab66c8ab3da251293b7d4
# Parent  27131f3ed0ab3a2bc8abbd67a03787b3bbcbb785
(Buffer-menu-make-sort-button): Preserve point even when clicking from another window.

diff -r 27131f3ed0ab -r 56342493afe3 lisp/buff-menu.el
--- a/lisp/buff-menu.el	Wed Nov 03 21:53:26 2004 +0000
+++ b/lisp/buff-menu.el	Wed Nov 03 21:55:28 2004 +0000
@@ -627,8 +627,9 @@
 			(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)