Subject: bug#53375: [PATCH] Correct wrong comparison operation in previous patch

From: Thuna <[email-masked]>
Date: Sun, 23 Jan 2022 17:52:45 +0300

My bad, hopefully this goes through.
From cd255476bf219e8162f56525e66c93fc5da3a3a9 Mon Sep 17 00:00:00 2001
From: Thuna <[email-masked]>
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