diff options
author | Miles Bader <[email protected]> | 2002-07-08 08:45:12 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2002-07-08 08:45:12 +0000 |
commit | 66f12dcd3c2dca02092e32298cda860b8274c7b5 (patch) | |
tree | 455772357e0763cf42ab7f69a529dd0441ca054c | |
parent | 4c02ca4625a9f1588817d94e93298336865d6462 (diff) |
(comint-dynamic-list-completions): Sort COMPLETIONS before first use.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/comint.el | 3 |
2 files changed, 7 insertions, 1 deletions
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 <[email protected]> + + * comint.el (comint-dynamic-list-completions): Sort COMPLETIONS + before first use. + 2002-07-08 Kim F. Storm <[email protected]> * 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 |