[nongnu] elpa/tablist d65235d 14/60: Fixed a bug regarding tablist columns.

[Philip Kaludercic]

branch: elpa/tablist
commit d65235db22c53d73d3bd95cba79d4cb5898ca451
Author: Andreas Politz <politza@hochschule-trier.de>
Commit: Andreas Politz <politza@hochschule-trier.de>

    Fixed a bug regarding tablist columns.
    
    * lisp/tablist.el (tablist-current-column): Compute the current column
      in a more sane and hopefully correct way.  Extended documentation.
---
 tablist.el | 26 +++++++++++---------------
 1 file changed, 11 insertions(+), 15 deletions(-)

diff --git a/tablist.el b/tablist.el
index a76a4dc..447ff48 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1145,21 +1145,17 @@ Optional REVERT-P means, revert the display afterwards."
    prop))
 
 (defun tablist-current-column ()
-  "Return the column number at point."
-  (let ((columns
-         (tablist-column-offsets))
-        (index 0))
-    (when (eq 0 (car columns))
-      (cl-incf index))
-    (while (and columns
-                (<= (car columns)
-                    (current-column)))
-      (cl-incf index)
-      (setq columns (cdr columns)))
-    (if (> index 0)
-        (1- index)
-      (if columns
-          0))))
+  "Return the column number at point.
+
+Returns nil, if point is before the first column."
+  (let ((column
+         (1- (cl-position
+              (current-column)
+              (append (tablist-column-offsets)
+                      (list most-positive-fixnum))
+              :test (lambda (column offset) (> offset column))))))
+    (when (>= column 0)
+      column)))
 
 (defun tablist-column-offsets ()
   "Return a list of column positions.