Commit ade0652c authored by Tino Calancha's avatar Tino Calancha
Browse files

Prevent to use tabulated-list--near-rows unbound

* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print-entry):
Make sure 'tabulated-list--near-rows' is bound before use it (Bug#25506).
parent ad29e145
...@@ -412,8 +412,13 @@ of column descriptors." ...@@ -412,8 +412,13 @@ of column descriptors."
(inhibit-read-only t)) (inhibit-read-only t))
(if (> tabulated-list-padding 0) (if (> tabulated-list-padding 0)
(insert (make-string x ?\s))) (insert (make-string x ?\s)))
(dotimes (n ncols) (let ((tabulated-list--near-rows ; Bind it if not bound yet (Bug#25506).
(setq x (tabulated-list-print-col n (aref cols n) x))) (or (bound-and-true-p tabulated-list--near-rows)
(list (or (tabulated-list-get-entry (point-at-bol 0))
(dotimes (n ncols)
(setq x (tabulated-list-print-col n (aref cols n) x))))
(insert ?\n) (insert ?\n)
;; Ever so slightly faster than calling `put-text-property' twice. ;; Ever so slightly faster than calling `put-text-property' twice.
(add-text-properties (add-text-properties
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment