]> git.eshelyaron.com Git - emacs.git/commitdiff
Merge from origin/emacs-28
authorStefan Kangas <stefan@marxist.se>
Tue, 23 Nov 2021 07:49:49 +0000 (08:49 +0100)
committerStefan Kangas <stefan@marxist.se>
Tue, 23 Nov 2021 07:49:49 +0000 (08:49 +0100)
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

1  2 
lisp/proced.el
src/xdisp.c

diff --cc lisp/proced.el
index e959e91c6e22f2d965a9af7551e1e9c6eba3161b,3b754c24c5f5a60280ec0bd07bfc9a6bdcf4cb4f..9e9793abece5622a32b7522e461e2b9840669b8b
@@@ -1332,12 -1329,13 +1332,13 @@@ EVENT is a mouse event with starting po
  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)))
 +  (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))
diff --cc src/xdisp.c
Simple merge