* lisp/emacs-lisp/tabulated-list.el: Don't sort without sorter

(tabulated-list-print): Don't sort if sorter is nil

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 58b8fd62d2f8c0d86e9cad8e69f77aa344dadaed..fb3045d2b4c6a15d39741747dd2d06dc0613e6f8 100644 (file)
--- 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.