aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emacs-lisp/tabulated-list.el
diff options
context:
space:
mode:
authorAlan Mackenzie2017-02-12 10:59:03 +0000
committerAlan Mackenzie2017-02-12 10:59:03 +0000
commitf4d5b687150810129b7a1d5b006e31ccf82b691b (patch)
tree4229b13800349032697daae3904dc3773e6b7a80 /lisp/emacs-lisp/tabulated-list.el
parentd5514332d4a6092673ce1f78fadcae0c57f7be64 (diff)
parent148100d98319499f0ac6f57b8be08cbd14884a5c (diff)
downloademacs-comment-cache.tar.gz
emacs-comment-cache.zip
Merge branch 'master' into comment-cachecomment-cache
Diffstat (limited to 'lisp/emacs-lisp/tabulated-list.el')
-rw-r--r--lisp/emacs-lisp/tabulated-list.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index eadf79ffd4f..b6b49b1bfa2 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -412,8 +412,13 @@ of column descriptors."
412 (inhibit-read-only t)) 412 (inhibit-read-only t))
413 (if (> tabulated-list-padding 0) 413 (if (> tabulated-list-padding 0)
414 (insert (make-string x ?\s))) 414 (insert (make-string x ?\s)))
415 (dotimes (n ncols) 415 (let ((tabulated-list--near-rows ; Bind it if not bound yet (Bug#25506).
416 (setq x (tabulated-list-print-col n (aref cols n) x))) 416 (or (bound-and-true-p tabulated-list--near-rows)
417 (list (or (tabulated-list-get-entry (point-at-bol 0))
418 cols)
419 cols))))
420 (dotimes (n ncols)
421 (setq x (tabulated-list-print-col n (aref cols n) x))))
417 (insert ?\n) 422 (insert ?\n)
418 ;; Ever so slightly faster than calling `put-text-property' twice. 423 ;; Ever so slightly faster than calling `put-text-property' twice.
419 (add-text-properties 424 (add-text-properties