diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-05-26 09:32:45 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-05-26 09:32:45 +0100 |
| commit | 45c92ddd99f5d3ceb520f9a27678bbedde83589b (patch) | |
| tree | 1a01c4ff713f65f49298562df02064dcffcd0809 /lisp/emacs-lisp | |
| parent | f43306aed9fbfbaa7534f47a92e0176f309e0f30 (diff) | |
| download | emacs-45c92ddd99f5d3ceb520f9a27678bbedde83589b.tar.gz emacs-45c92ddd99f5d3ceb520f9a27678bbedde83589b.tar.bz2 emacs-45c92ddd99f5d3ceb520f9a27678bbedde83589b.zip | |
* lisp/emacs-lisp/tabulated-list.el: Don't sort without sorter
(tabulated-list-print): Don't sort if sorter is nil
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 58b8fd62d2f..fb3045d2b4c 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -327,7 +327,8 @@ changing `tabulated-list-sort-key'." (setq entry-id (tabulated-list-get-id)) (setq saved-col (current-column))) ;; Sort the entries, if necessary. - (setq entries (sort entries sorter)) + (when sorter + (setq entries (sort entries sorter))) (unless (functionp tabulated-list-entries) (setq tabulated-list-entries entries)) ;; Without a sorter, we have no way to just update. |