diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-31 12:51:04 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-31 12:51:22 +0100 |
| commit | 8d332aeccab2208e6c6bd434738565e6abf12043 (patch) | |
| tree | f1d4f0b2c72ba91a203e33f365488f3f6f63840d /lisp/emacs-lisp/tabulated-list.el | |
| parent | a246df7256ff119cc14cc9a8f8da34bf2ccc2b65 (diff) | |
| download | emacs-8d332aeccab2208e6c6bd434738565e6abf12043.tar.gz emacs-8d332aeccab2208e6c6bd434738565e6abf12043.tar.bz2 emacs-8d332aeccab2208e6c6bd434738565e6abf12043.zip | |
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print): Fix bug
When updating the very last entry, tabulated-list-print would
erase it and then try to look at the next one (which obviously
isn't there).
Diffstat (limited to 'lisp/emacs-lisp/tabulated-list.el')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 9119c3a5ade..cd61eb9ae56 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -356,10 +356,11 @@ changing `tabulated-list-sort-key'." nil) ;; If this entry sorts after id (or it's the ;; end), then just insert id and move on. - ((funcall sorter elt - ;; FIXME: Might be faster if - ;; don't construct this list. - (list local-id (tabulated-list-get-entry))) + ((or (not local-id) + (funcall sorter elt + ;; FIXME: Might be faster if + ;; don't construct this list. + (list local-id (tabulated-list-get-entry)))) (apply tabulated-list-printer elt) nil) ;; We find an entry that sorts before id, |