From: Juri Linkov <juri@linkov.net>
Date: Mon, 22 Nov 2021 17:39:28 +0000 (+0200)
Subject: * lisp/proced.el (proced-sort-header): Fix event positions (bug#1779).
X-Git-Tag: emacs-28.0.90~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=712898210f;p=emacs.git

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

The logic was copied from 'tabulated-list-col-sort'.
---

diff --git a/lisp/proced.el b/lisp/proced.el
index fec2a29c847..3b754c24c5f 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))