procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
The logic was copied from 'tabulated-list-col-sort'.
This commit is contained in:
Juri Linkov 2021-11-22 19:39:28 +02:00
parent 0dd3883def
commit 712898210f
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/proced.el
View file

@ -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))