emacs-28 7128982: * lisp/proced.el (proced-sort-header): Fix event positions (bug#1779).

[Juri Linkov]

branch: emacs-28
commit 712898210fdc4d7d5efc1636c68f9eac1632c9f8
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/proced.el (proced-sort-header): Fix event positions (bug#1779).
    
    The logic was copied from 'tabulated-list-col-sort'.
---
 lisp/proced.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/proced.el b/lisp/proced.el
index fec2a29..3b754c2 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1330,11 +1330,12 @@ It is converted to the corresponding attribute key.
 This command updates the variable `proced-sort'.
 Prefix ARG controls sort order, see `proced-sort-interactive'."
   (interactive (list last-input-event (or last-prefix-arg 'no-arg)))
-  (let ((start (event-start event))
-        col key)
+  (let* ((start (event-start event))
+         (obj (posn-object start))
+         col key)
     (save-selected-window
       (select-window (posn-window start))
-      (setq col (+ (1- (car (posn-actual-col-row start)))
+      (setq col (+ (if obj (cdr obj) (posn-point start))
                    (window-hscroll)))
       (when (and (<= 0 col) (< col (length proced-header-line)))
         (setq key (get-text-property col 'proced-key proced-header-line))