From cd255476bf219e8162f56525e66c93fc5da3a3a9 Mon Sep 17 00:00:00 2001 From: Thuna Date: Sun, 23 Jan 2022 17:07:33 +0300 Subject: [PATCH] Fix tabulated-list-widen-current-column widening wrong column * tabulated-list.el (tabulated-list-widen-current-column): Use correct comparison operation when checking if point is within the column bounds. Copyright-paperwork-exempt: yes --- lisp/emacs-lisp/tabulated-list.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 32a046e0fb..a242ac1899 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -739,17 +739,17 @@ tabulated-list-widen-current-column col-width) (while (and (not found) (< col-nb nb-cols)) - (if (> start - (setq total-width - (+ total-width - (max (setq col-width - (cadr (aref tabulated-list-format - col-nb))) - (string-width (aref entry col-nb))) - (or (plist-get (nthcdr 3 (aref tabulated-list-format - col-nb)) - :pad-right) - 1)))) + (if (>= start + (setq total-width + (+ total-width + (max (setq col-width + (cadr (aref tabulated-list-format + col-nb))) + (string-width (aref entry col-nb))) + (or (plist-get (nthcdr 3 (aref tabulated-list-format + col-nb)) + :pad-right) + 1)))) (setq col-nb (1+ col-nb)) (setq found t) (setf (cadr (aref tabulated-list-format col-nb)) -- 2.25.1