(comint-dynamic-list-completions): Sort COMPLETIONS before first use.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index deb52acebfc009ac892931a49e45e851327acc72..cb82b3473036391e3c0b701bb5421d8af6826d87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-08  Miles Bader  <miles@gnu.org>
+
+       * comint.el (comint-dynamic-list-completions): Sort COMPLETIONS
+       before first use.
+
 2002-07-08  Kim F. Storm  <storm@cua.dk>
 
        * files.el (after-find-file): Don't check for read-only status

diff --git a/lisp/comint.el b/lisp/comint.el
index 3c0be25c1996dccb5201fb1716866538e4b1c126..e7d038e668d8e030320437d88df78ee8a9bc8d66 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2807,6 +2807,7 @@ See also `comint-dynamic-complete-filename'."
   "List in help buffer sorted COMPLETIONS.
 Typing SPC flushes the help buffer."
   (let ((window (get-buffer-window "*Completions*")))
+    (setq completions (sort completions 'string-lessp))
     (if (and (eq last-command this-command)
             window (window-live-p window) (window-buffer window)
             (buffer-name (window-buffer window))
@@ -2833,7 +2834,7 @@ Typing SPC flushes the help buffer."
 
       (let ((conf (current-window-configuration)))
        (with-output-to-temp-buffer "*Completions*"
-         (display-completion-list (sort completions 'string-lessp)))
+         (display-completion-list completions))
        (message "Type space to flush; repeat completion command to scroll")
        (let (key first)
          (if (save-excursion