From 66f12dcd3c2dca02092e32298cda860b8274c7b5 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 8 Jul 2002 08:45:12 +0000 Subject: (comint-dynamic-list-completions): Sort COMPLETIONS before first use. --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index deb52acebf..cb82b34730 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-08 Miles Bader + + * comint.el (comint-dynamic-list-completions): Sort COMPLETIONS + before first use. + 2002-07-08 Kim F. Storm * files.el (after-find-file): Don't check for read-only status diff --git a/lisp/comint.el b/lisp/comint.el index 3c0be25c19..e7d038e668 100644 --- 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 -- cgit v1.2.3