diff options
| author | Alan Mackenzie | 2017-02-12 10:59:03 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2017-02-12 10:59:03 +0000 |
| commit | f4d5b687150810129b7a1d5b006e31ccf82b691b (patch) | |
| tree | 4229b13800349032697daae3904dc3773e6b7a80 /lisp/emacs-lisp/tabulated-list.el | |
| parent | d5514332d4a6092673ce1f78fadcae0c57f7be64 (diff) | |
| parent | 148100d98319499f0ac6f57b8be08cbd14884a5c (diff) | |
| download | emacs-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.el | 9 |
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 |