* 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 fec2a29c847b6a95662e32d884f833f15c996226..3b754c24c5f5a60280ec0bd07bfc9a6bdcf4cb4f 100644 (file)
--- 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))