[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 7128982: * lisp/proced.el (proced-sort-header): Fix event posit
From: |
Juri Linkov |
Subject: |
emacs-28 7128982: * lisp/proced.el (proced-sort-header): Fix event positions (bug#1779). |
Date: |
Mon, 22 Nov 2021 12:40:03 -0500 (EST) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 7128982: * lisp/proced.el (proced-sort-header): Fix event positions (bug#1779).,
Juri Linkov <=