[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 80098a2830: Fix tabulated-list-widen-current-column widening wron
From: |
Lars Ingebrigtsen |
Subject: |
master 80098a2830: Fix tabulated-list-widen-current-column widening wrong column |
Date: |
Sun, 23 Jan 2022 09:56:22 -0500 (EST) |
branch: master
commit 80098a2830cafe0a09f18c5186bf670a91828fef
Author: Thuna <thuna.cing@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 (bug#53375).
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 @@ Interactively, N is the prefix numeric argument, and
defaults to
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 80098a2830: Fix tabulated-list-widen-current-column widening wrong column,
Lars Ingebrigtsen <=