Mercurial > emacs

changeset 46250:2c383709a149

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-dynamic-list-completions): Sort COMPLETIONS before first use.
author Miles Bader <miles@gnu.org>
date Mon, 08 Jul 2002 08:45:00 +0000
parents 54c4053e954f
children e6d0de1d97dc
files lisp/comint.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Mon Jul 08 01:30:44 2002 +0000
+++ b/lisp/comint.el	Mon Jul 08 08:45:00 2002 +0000
@@ -2807,6 +2807,7 @@
   "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 @@
 
       (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