mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print-entry):
Make sure 'tabulated-list--near-rows' is bound before use it (Bug#25506).
This commit is contained in:
Tino Calancha 2017-01-22 14:23:45 +09:00
parent ad29e145b1
commit ade0652cc2
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/tabulated-list.el
View file

@ -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))
cols)
cols))))
(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