diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-11-23 08:49:49 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-11-23 08:49:49 +0100 |
| commit | 4c5efda8d33e582c53a0d7a1d3dfabecaca038bd (patch) | |
| tree | 8ed63baa5c6d6d17399c8b2292b179d2b2548ea8 /lisp/proced.el | |
| parent | 2955d46c00430b38310d0fae968adea91e2bbc3d (diff) | |
| parent | d791cd556d622accb935e4dd230023c485d1e07a (diff) | |
| download | emacs-4c5efda8d33e582c53a0d7a1d3dfabecaca038bd.tar.gz emacs-4c5efda8d33e582c53a0d7a1d3dfabecaca038bd.tar.bz2 emacs-4c5efda8d33e582c53a0d7a1d3dfabecaca038bd.zip | |
Merge from origin/emacs-28
d791cd556d Fix '(space :relative-width N)' display spec w/non-ASCII c...
712898210f * lisp/proced.el (proced-sort-header): Fix event positions...
# Conflicts:
# lisp/proced.el
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index e959e91c6e2..9e9793abece 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -1333,11 +1333,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)) proced-mode) - (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)) |