comparison lisp/comint.el @ 46250:2c383709a149

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

46249:54c4053e954f

(defun comint-dynamic-list-completions (completions)
  "List in help buffer sorted COMPLETIONS.
Typing SPC flushes the help buffer."
  (let ((window (get-buffer-window "*Completions*")))
    (if (and (eq last-command this-command)
	     window (window-live-p window) (window-buffer window)
	     (buffer-name (window-buffer window))
	     ;; The above tests are not sufficient to detect the case where we
	     ;; should scroll, because the top-level interactive command may

	      (select-window window)
	      (scroll-up))))

      (let ((conf (current-window-configuration)))
	(with-output-to-temp-buffer "*Completions*"
	  (display-completion-list (sort completions 'string-lessp)))
	(message "Type space to flush; repeat completion command to scroll")
	(let (key first)
	  (if (save-excursion
		(set-buffer (get-buffer "*Completions*"))
		(set (make-local-variable

46250:2c383709a149

(defun comint-dynamic-list-completions (completions)
  "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))
	     ;; The above tests are not sufficient to detect the case where we
	     ;; should scroll, because the top-level interactive command may

	      (select-window window)
	      (scroll-up))))

      (let ((conf (current-window-configuration)))
	(with-output-to-temp-buffer "*Completions*"
	  (display-completion-list completions))
	(message "Type space to flush; repeat completion command to scroll")
	(let (key first)
	  (if (save-excursion
		(set-buffer (get-buffer "*Completions*"))
		(set (make-local-variable