Lines Matching +defs:up +defs:list
37 ;; As you type in a substring, the list of buffers or files currently
38 ;; matching the substring are displayed as you type. The list is
40 ;; the start of the list.
42 ;; The buffer or file at the start of the list will be the one visited
43 ;; when you press RETURN. By typing more of the substring, the list is
45 ;; at the top of the list. Alternatively, you can use C-s and C-r (or
47 ;; list until the one you want is at the top of the list.
56 ;; presented with the list of all the buffers
63 ;; The list in {...} are the matching buffers, most recent first
65 ;; list by default). At any time I can select the item at the head of
66 ;; the list by pressing RET. I can also put the first element at the
67 ;; end of the list by pressing C-s or [right], or bring the last
68 ;; element to the head of the list by pressing C-r or [left].
77 ;; If I want the first buffer in the list, I simply press RET. If I
78 ;; wanted the second in the list, I could press C-s to move it to the
79 ;; top of the list and then RET to select it.
102 ;; Likewise, if you use C-x C-f (ido-find-file), the list of files and
106 ;; visited directory is placed first to speed up navigating to
109 ;; In addition to scrolling through the list using [right] and [left],
110 ;; you can use [up] and [down] to quickly scroll the list to the next
115 ;; of the list and hit RET.
117 ;; To go up to the parent directory, delete any partial file name
140 ;; with `.') in the list of possible completions. However, if the
150 ;; After C-x b, the buffer at the head of the list can be killed by
155 ;; the file at the head of the list with C-k. You will always be
236 ;; To see a full list of all matching buffers in a separate buffer,
241 ;; Changing the list of files
244 ;; By default, the list of current files is most recent first,
246 ;; current frame are put at the end of the list. A hook exists to
247 ;; allow other functions to order the list. For example, if you add:
249 ;; (add-hook 'ido-make-buffer-list-hook 'ido-summary-buffers-to-end)
252 ;; list. (I find this handy for keeping the INBOX Summary and so on
254 ;; end of the list (these are created by AUCTeX when compiling.)
255 ;; Other functions could be made available which alter the list of
363 :set-after '(ido-save-directory-list-file
391 For example, traditional behavior is not to list buffers whose names begin
400 For example, traditional behavior is not to list files whose names begin
407 "*Non-nil means ignore files in `completion-ignored-extensions' list."
434 Directory names matched by one of the regexps in this list are not inserted
527 The most useful values are `ido-completion-help', which pops up a
529 `ido-prev-match', which cycle the buffer list."
541 "*Non-zero means that the prospect list will be limited to than number of items.
542 For a long list of prospects, building the full list for the minibuffer can take a
570 See `ido-last-directory-list' and `ido-save-directory-list-file'."
574 (defcustom ido-max-work-directory-list 50
576 This is the list of directories where files have most recently been opened.
577 See `ido-work-directory-list' and `ido-save-directory-list-file'."
581 (defcustom ido-work-directory-list-ignore-regexps nil
583 Directory names matched by one of the regexps in this list are not inserted in
584 the `ido-work-directory-list' list."
614 "*Non-nil means record ftp file names in the work directory list."
619 "*If nil means merging ignores ftp file names in the work directory list."
625 Use C-l in prompt to refresh list.
632 If an ftp host is on this list, ido automatically switches to the non-ido
671 Use C-l in prompt to refresh list.
676 (defcustom ido-max-work-file-list 10
678 This is the list the file names (sans directory) which have most recently
679 been opened. See `ido-work-file-list' and `ido-save-directory-list-file'."
723 See also `ido-dir-file-cache' and `ido-save-directory-list-file'."
735 (defcustom ido-rotate-file-list-default nil
736 "*Non-nil means that `ido' will always rotate file list to get default in front."
765 is read by ido, possible values are file, dir, buffer, and list.
778 There are 10 elements in this list:
779 1st and 2nd elements are used as brackets around the prospect list,
781 4th element is the string inserted at the end of a truncated list of prospects,
833 (defcustom ido-make-file-list-hook nil
834 "*List of functions to run when the list of matching files is created.
835 Each function on the list may modify the dynamically bound variable
836 `ido-temp-list' which contains the current list of matching files."
840 (defcustom ido-make-dir-list-hook nil
841 "*List of functions to run when the list of matching directories is created.
842 Each function on the list may modify the dynamically bound variable
843 `ido-temp-list' which contains the current list of matching directories."
847 (defcustom ido-make-buffer-list-hook nil
848 "*List of functions to run when the list of matching buffers is created.
849 Each function on the list may modify the dynamically bound variable
850 `ido-temp-list' which contains the current list of matching buffer names."
856 Each function on the list may modify the following dynamically bound
874 A list of elements of the form (FROM . TO) or (FROM . FUNC), each
884 Set to nil to disable completion buffers popping up."
890 Otherwise, only the current list of matches is shown."
916 (defcustom ido-save-directory-list-file "~/.ido.last"
918 Variables stored are: `ido-last-directory-list', `ido-work-directory-list',
919 `ido-work-file-list', and `ido-dir-file-cache'.
926 When `ido-everywhere' is non-nil, the commands in this list will read
933 When `ido-everywhere' is non-nil, the commands in this list will read
969 (defvar ido-last-directory-list nil
973 (defvar ido-work-directory-list nil
975 The current directory is inserted at the front of this list whenever a
978 (defvar ido-work-file-list nil
982 at the front of this list.")
986 Each element in the list is of the form (DIR (MTIME) FILE...).")
988 (defvar ido-ignore-item-temp-list nil
1004 "Non-nil means we need to regenerate the list of matching items.")
1007 "Non-nil means we are rotating list of matches.")
1050 ;; Stores the current ido item type ('file, 'dir, 'buffer, or 'list).
1056 ;; Stores the current list of items that will be searched through.
1057 ;; The list is ordered, so that the most interesting item comes first,
1059 ;; at the end of the list. Created by `ido-make-item-list'.
1060 (defvar ido-cur-list)
1062 ;; Stores the choice list for ido-completing-read
1063 (defvar ido-choice-list)
1065 ;; Stores the list of items which are ignored when building
1066 ;; `ido-cur-list'. It is in no specific order.
1067 (defvar ido-ignored-list)
1075 ;; Keep current item list if non-nil.
1076 (defvar ido-keep-item-list)
1090 ;; Stores a temporary version of the file list being created.
1091 (defvar ido-temp-list)
1093 ;; Non-nil if default list element should be rotated into place.
1096 ;; Stores current index in ido-work-directory-list.
1099 ;; Stores current index in ido-work-file-list.
1102 ;; Set when merged work directory list is in use.
1103 (defvar ido-use-merged-list)
1105 ;; Set when merged work directory list not yet built.
1106 (defvar ido-try-merged-list)
1109 ;; Value is a list (ido-text dir cur-list ignored-list matches).
1125 ido-use-merged-list
1160 "Return list of UNC host names."
1164 ido-unc-hosts) ;; static list or nil
1177 res host re-list re)
1181 re-list (and ido-process-ignore-lists
1183 (while re-list
1184 (setq re (car re-list)
1185 re-list (cdr re-list))
1187 (setq re-list nil
1197 "Query network for list of UNC host names using `NET VIEW'."
1287 (defun ido-pp (list &optional sep)
1290 (insert "\n;; ----- " (symbol-name list) " -----\n(\n ")
1291 (setq list (symbol-value list))
1292 (while list
1293 (let* ((elt (car list))
1299 (if (and (setq list (cdr list)) s)
1306 (when (and ido-last-directory-list ido-save-directory-list-file)
1312 (ido-pp 'ido-last-directory-list)
1313 (ido-pp 'ido-work-directory-list)
1314 (ido-pp 'ido-work-file-list)
1320 (write-file ido-save-directory-list-file nil))
1327 (if (or arg (and ido-save-directory-list-file (not ido-last-directory-list)))
1328 (let ((file (expand-file-name ido-save-directory-list-file))
1337 (setq ido-last-directory-list (read (current-buffer))
1338 ido-work-directory-list (read (current-buffer))
1339 ido-work-file-list (read (current-buffer))
1347 "Clean-up ido history and cache information.
1351 (setq ido-last-directory-list
1352 (and (listp ido-last-directory-list)
1353 (let ((l ido-last-directory-list) r)
1361 (setq ido-work-directory-list
1362 (and (listp ido-work-directory-list)
1363 (let ((l ido-work-directory-list) r)
1371 (setq ido-work-file-list
1372 (and (listp ido-work-file-list)
1373 (let ((l ido-work-file-list) r)
1416 ;; Remove ignored directories from work directory list
1417 ;; according to ido-work-directory-list-ignore-regexps
1418 (if ido-work-directory-list
1419 (let ((dirs (reverse ido-work-directory-list)))
1420 (setq ido-work-directory-list nil)
1425 (let ((l ido-last-directory-list) e)
1430 (let ((l ido-work-directory-list) e)
1434 (let ((l ido-work-file-list) e)
1457 With ARG, turn ido speed-up on if arg is positive, off otherwise.
1493 (define-key map [remap list-directory] 'ido-list-directory)
1511 (add-to-list 'minor-mode-map-alist ido-minor-mode-map-entry)))))
1516 With ARG, turn ido speed-up on if arg is positive, off otherwise."
1538 "Set up the completion keymaps used by `ido'."
1573 (define-key map [up] 'ido-prev-match-dir)
1574 (define-key map [(meta up)] 'ido-prev-work-directory)
1581 (define-key map [(control backspace)] 'ido-up-directory)
1617 "Set up the keymap for `ido'."
1694 (setq ido-use-merged-list nil
1695 ido-try-merged-list (not no-merge))
1729 (let ((cmd (list command arg)))
1776 ;; (ido-make-item-list ...)
1789 ;; 'refresh - repeat loop (make-item-list, set-matches)
1791 ;; 'keep - repeat loop but don't (re)make-item-list
1792 ;; 'updir - go up one directory, repeat loop
1818 (icomplete-mode nil) ;; prevent icomplete starting up
1820 ido-cur-list
1821 ido-ignored-list
1823 (ido-keep-item-list nil)
1824 (ido-use-merged-list nil)
1825 (ido-try-merged-list t)
1855 (let ((d (assoc ido-current-directory ido-last-directory-list)))
1857 (if (member ido-default-item ido-ignore-item-temp-list)
1867 (if (and ido-use-merged-list (memq ido-try-merged-list '(t wide)) (not ido-keep-item-list))
1868 (let ((olist ido-cur-list)
1869 (oign ido-ignored-list)
1871 (l (ido-make-merged-file-list ido-text-init
1872 (eq ido-use-merged-list 'auto)
1873 (eq ido-try-merged-list 'wide))))
1877 (if (eq ido-try-merged-list 'wide)
1879 (list "" ido-current-directory olist oign omat)
1880 ido-cur-list nil
1881 ido-ignored-list nil
1883 ido-keep-item-list t
1884 ido-try-merged-list (if (eq ido-use-merged-list 'auto) 'auto nil)
1885 ido-use-merged-list nil)
1886 (setq ido-cur-list olist
1887 ido-ignored-list oign
1889 ido-keep-item-list t
1890 ido-try-merged-list (if (eq ido-use-merged-list 'auto) 'auto nil)
1891 ido-use-merged-list nil)))
1893 (setq ido-use-merged-list nil))
1895 (setq ido-try-merged-list t
1896 ido-use-merged-list nil))
1899 (list ido-text-init ido-current-directory olist oign omat))
1903 (setq ido-cur-list l
1904 ido-ignored-list nil
1907 ido-keep-item-list t
1908 ido-use-merged-list t)
1913 (ido-keep-item-list
1914 (setq ido-keep-item-list nil
1917 (setq ido-ignored-list nil
1918 ido-cur-list (and (not ido-directory-nonreadable)
1920 (ido-make-file-list ido-default-item))))
1922 (setq ido-ignored-list nil
1923 ido-cur-list (and (not ido-directory-nonreadable)
1925 (ido-make-dir-list ido-default-item))))
1927 (setq ido-ignored-list nil
1928 ido-cur-list (ido-make-buffer-list ido-default-item)))
1929 ((eq ido-cur-item 'list)
1930 (setq ido-ignored-list nil
1931 ido-cur-list (ido-make-choice-list ido-default-item)))
1940 (if (and ido-matches (eq ido-try-merged-list 'auto))
1941 (setq ido-try-merged-list t))
1974 (if (and (eq ido-use-merged-list 'auto)
1976 (setq ido-use-merged-list nil
1977 ido-keep-item-list t))
2027 (setq ido-keep-item-list t))
2033 ;; cannot go up if already at the root-dir (Unix) or at the
2078 ;; else take head of list
2082 ((memq item '(buffer list))
2089 ;; cannot go up if already at the root-dir (Unix) or at the
2116 (let ((x (assoc ido-current-directory ido-last-directory-list)))
2119 (setq ido-last-directory-list
2120 (cons (cons ido-current-directory ido-selected) ido-last-directory-list)))))
2162 ;; of the list of matches
2210 (when (and (numberp ido-max-work-directory-list) (> ido-max-work-directory-list 0))
2212 (let ((items ido-work-directory-list-ignore-regexps)
2219 (setq ido-work-directory-list (cons dir (delete dir ido-work-directory-list))))))
2220 (if (> (length ido-work-directory-list) ido-max-work-directory-list)
2221 (setcdr (nthcdr (1- ido-max-work-directory-list) ido-work-directory-list) nil))))
2225 (when (and ido-current-directory ido-work-directory-list)
2226 (setq ido-work-directory-list (delete ido-current-directory ido-work-directory-list))
2227 (when ido-use-merged-list
2230 ido-try-merged-list t
2231 ido-use-merged-list t
2237 ;; Save NAME in ido-work-file-list
2238 (when (and (numberp ido-max-work-file-list) (> ido-max-work-file-list 0))
2240 (and ido-work-file-list (equal (car ido-work-file-list) name))
2241 (setq ido-work-file-list (cons name (delete name ido-work-file-list))))
2242 (if (> (length ido-work-file-list) ido-max-work-file-list)
2243 (setcdr (nthcdr (1- ido-max-work-file-list) ido-work-file-list) nil))))
2308 ;; of the list of matches
2338 ((memq method '(dired list-directory))
2517 ido-cur-list (nth 2 ido-pre-merge-state)
2518 ido-ignored-list (nth 3 ido-pre-merge-state)
2520 ido-use-merged-list nil
2521 ido-try-merged-list try
2522 ido-keep-item-list (not refresh)
2529 (ido-try-merged-list
2530 (setq ido-try-merged-list nil))
2532 (setq ido-try-merged-list t))
2533 ((not ido-use-merged-list)
2602 ;; ask for list to be regenerated.
2609 ;; ask for list to be regenerated.
2616 ;; ask for list to be regenerated.
2724 (defun ido-up-directory (&optional clear)
2725 "Go up one directory level."
2733 "Delete char backwards, or at beginning of buffer, go up one level."
2738 (ido-up-directory t)))
2749 "Delete all chars backwards, or at beginning of buffer, go up one level."
2753 (ido-up-directory t))
2759 (let ((n (length ido-work-directory-list))
2771 (setq dir (nth i ido-work-directory-list))
2779 (ido-make-file-list-1 dir)
2780 (ido-make-dir-list-1 dir)))))
2788 "Change to next working directory in list."
2799 "Change to previous working directory in list."
2812 (setq ido-use-merged-list t ido-try-merged-list t)
2828 (setq ido-use-merged-list t ido-try-merged-list 'wide)
2844 (setq ido-use-merged-list t ido-try-merged-list 'wide)
2912 (let ((n (length ido-work-file-list))
2918 (setq name (nth i ido-work-file-list))
2923 "Change to next working file name in list."
2932 "Change to previous working file name in list."
2956 ido-try-merged-list nil)
2984 ido-try-merged-list nil
2988 ido-try-merged-list nil
2992 ido-try-merged-list nil
2997 "Put first element of `ido-matches' at the end of the list."
3001 (setq ido-cur-list (ido-chop ido-cur-list next))
3006 "Put last element of `ido-matches' at the front of the list."
3010 (setq ido-cur-list (ido-chop ido-cur-list prev))
3015 "Find next directory in match list.
3019 (if ido-use-merged-list
3031 (setq ido-cur-list (ido-chop ido-cur-list (nth i ido-matches)))))))
3034 "Find previous directory in match list.
3038 (if ido-use-merged-list
3050 (setq ido-cur-list (ido-chop ido-cur-list (nth i ido-matches)))))))
3053 "Set current item list to the currently matched items."
3056 (setq ido-cur-list ido-matches
3078 ;; Return file name for current item, whether in a normal list
3079 ;; or a merged work directory list.
3086 ;; Return unsorted list of all competions.
3091 (ido-make-file-list-1 ido-current-directory))
3093 (ido-make-dir-list-1 ido-current-directory))
3095 (ido-make-buffer-list-1))
3096 ((eq ido-cur-item 'list)
3097 ido-choice-list)
3101 ;; File list sorting
3109 ;; Compare file names according to ido-file-extensions-order list.
3167 (defun ido-sort-merged-list (items promote)
3168 ;; Input is list of ("file" . "dir") cons cells.
3169 ;; Output is sorted list of ("file "dir" ...) lists
3180 (setq res (cons (list (car a) (cdr a)) res)
3185 ;; As ido-run-find-command, but returns a list of cons pairs ("file" . "dir")
3207 (defun ido-flatten-merged-list (items)
3208 ;; Create a list of directory names based on a merged directory list.
3221 (defun ido-make-merged-file-list-1 (text auto wide)
3227 ;; Use list of cached directories
3261 (dirs ido-work-directory-list)
3275 (ido-make-file-list-1 dir t)
3276 (ido-make-dir-list-1 dir t))))
3286 (defun ido-make-merged-file-list (text auto wide)
3292 (ido-make-merged-file-list-1 text auto wide))))
3296 ido-try-merged-list nil
3297 ido-use-merged-list nil)))
3299 (setq res (ido-sort-merged-list res auto)))
3300 (when (and (or ido-rotate-temp ido-rotate-file-list-default)
3310 (defun ido-make-buffer-list-1 (&optional frame visible)
3311 ;; Return list of non-ignored buffer names
3318 (buffer-list frame))))
3320 (defun ido-make-buffer-list (default)
3321 ;; Return the current list of buffers.
3322 ;; Currently visible buffers are put at the end of the list.
3323 ;; The hook `ido-make-buffer-list-hook' is run after the list has been
3325 ;; in this list. If DEFAULT is non-nil, and corresponds to an existing buffer,
3326 ;; it is put to the start of the list.
3328 (ido-temp-list (ido-make-buffer-list-1 (selected-frame) ido-current-buffers)))
3329 (if ido-temp-list
3330 (nconc ido-temp-list ido-current-buffers)
3331 (setq ido-temp-list ido-current-buffers))
3334 (setq ido-temp-list
3335 (delete default ido-temp-list))
3336 (setq ido-temp-list
3337 (cons default ido-temp-list))))
3338 (run-hooks 'ido-make-buffer-list-hook)
3339 ido-temp-list))
3341 (defun ido-make-choice-list (default)
3342 ;; Return the current list of choices.
3344 ;; it is put to the start of the list.
3345 (let ((ido-temp-list ido-choice-list))
3348 (setq ido-temp-list
3349 (delete default ido-temp-list))
3350 (setq ido-temp-list
3351 (cons default ido-temp-list))))
3352 ; (run-hooks 'ido-make-choice-list-hook)
3353 ido-temp-list))
3356 ;; Move the elements from ITEMS to the end of `ido-temp-list'
3359 (setq ido-temp-list (delq elem ido-temp-list)))
3361 (if ido-temp-list
3362 (nconc ido-temp-list items)
3363 (setq ido-temp-list items)))
3457 (defun ido-make-file-list-1 (dir &optional merged)
3458 ;; Return list of non-ignored files in DIR
3469 (defun ido-make-file-list (default)
3470 ;; Return the current list of files.
3471 ;; Currently visible files are put at the end of the list.
3472 ;; The hook `ido-make-file-list-hook' is run after the list has been
3474 ;; in this list.
3475 (let ((ido-temp-list (ido-make-file-list-1 ido-current-directory)))
3476 (setq ido-temp-list (sort ido-temp-list
3489 ido-temp-list)))))
3493 ido-temp-list)))
3494 (if (and default (member default ido-temp-list))
3495 (if (or ido-rotate-temp ido-rotate-file-list-default)
3496 (unless (equal default (car ido-temp-list))
3497 (let ((l ido-temp-list) k)
3502 (nconc k ido-temp-list)
3503 (setq ido-temp-list k)))
3504 (setq ido-temp-list
3505 (delete default ido-temp-list))
3506 (setq ido-temp-list
3507 (cons default ido-temp-list))))
3509 (setq ido-temp-list (delete "." ido-temp-list))
3510 (setq ido-temp-list (cons "." ido-temp-list)))
3511 (run-hooks 'ido-make-file-list-hook)
3512 ido-temp-list))
3514 (defun ido-make-dir-list-1 (dir &optional merged)
3515 ;; Return list of non-ignored subdirs in DIR
3525 (defun ido-make-dir-list (default)
3526 ;; Return the current list of directories.
3527 ;; The hook `ido-make-dir-list-hook' is run after the list has been
3529 ;; directory names in this list.
3530 (let ((ido-temp-list (ido-make-dir-list-1 ido-current-directory)))
3531 (setq ido-temp-list (sort ido-temp-list #'ido-file-lessp))
3535 ido-temp-list)))
3536 (if (and default (member default ido-temp-list))
3537 (if (or ido-rotate-temp ido-rotate-file-list-default)
3538 (unless (equal default (car ido-temp-list))
3539 (let ((l ido-temp-list) k)
3544 (nconc k ido-temp-list)
3545 (setq ido-temp-list k)))
3546 (setq ido-temp-list
3547 (delete default ido-temp-list))
3548 (setq ido-temp-list
3549 (cons default ido-temp-list))))
3550 (setq ido-temp-list (delete "." ido-temp-list))
3552 (setq ido-temp-list (cons "." ido-temp-list)))
3553 (run-hooks 'ido-make-dir-list-hook)
3554 ido-temp-list))
3560 ;; Return the list of buffers that are visible in the current frame.
3575 (member buf ido-ignore-item-temp-list))
3576 ;; Only add buf if it is not already in list.
3578 ;; put into the list twice.
3585 ;; Return list of matches in items
3639 (ido-trace "suffix match" (list text suffix-re suffix-matches))
3642 (ido-trace "full match" (list text full-re full-matches))
3661 ;; Set `ido-matches' to the list of items matching prompt
3663 (setq ido-matches (ido-set-matches-1 (reverse ido-cur-list) (not ido-rotate))
3666 (defun ido-ignore-item-p (name re-list &optional ignore-ext)
3668 (or (member name ido-ignore-item-temp-list)
3670 ido-process-ignore-lists re-list
3672 (let ((ext-list (and ignore-ext ido-ignore-extensions
3677 (while ext-list
3678 (setq nextstr (car ext-list))
3686 ext-list nil
3687 re-list nil)
3688 (setq ext-list (cdr ext-list))))
3689 (while re-list
3690 (setq nextstr (car re-list))
3696 re-list nil)
3697 (setq re-list (cdr re-list))))
3700 (setq ido-ignored-list (cons name ido-ignored-list)))
3746 ((ido-active t) ;; ido-use-merged-list
3764 display-it full-list)
3777 (setq full-list t
3784 (let ((completion-list (sort
3789 ido-ignored-list nil
3790 ido-cur-list (ido-all-completions)
3793 (or ido-matches ido-cur-list))
3794 (ido-use-merged-list
3795 (ido-flatten-merged-list (or ido-matches ido-cur-list)))
3796 ((or full-list ido-completion-buffer-all-completions)
3799 (copy-sequence (or ido-matches ido-cur-list))))
3805 (let ((f 'display-completion-list))
3806 (funcall f completion-list
3812 (display-completion-list completion-list)))))))
3829 ;; else buffer was killed so remove name from list.
3830 (setq ido-cur-list (delq buf ido-cur-list)))))))
3853 ;; else file was killed so remove name from list.
3854 (setq ido-cur-list (delq (car ido-matches) ido-cur-list)))))))
3927 RET Select the buffer at the front of the list of matches. If the
3928 list is empty, possibly prompt to create new buffer.
3933 \\[ido-next-match] Put the first element at the end of the list.
3934 \\[ido-prev-match] Put the last element at the start of the list.
3937 If there is no common suffix, show a list of all matching buffers
3944 \\[ido-completion-help] Show list of matching buffers in separate window.
3946 \\[ido-kill-buffer-at-head] Kill buffer at head of buffer list.
4015 RET Select the file at the front of the list of matches. If the
4016 list is empty, possibly prompt to create new file.
4021 \\[ido-next-match] Put the first element at the end of the list.
4022 \\[ido-prev-match] Put the last element at the start of the list.
4025 If there is no common suffix, show a list of all matching files
4040 \\[ido-completion-help] Show list of matching files in separate window.
4134 (defun ido-list-directory ()
4135 "Call `list-directory' the ido way.
4141 (ido-file-internal 'list-directory 'list-directory nil "List directory: " 'dir)))
4145 ;; The first time we enter the minibuffer, Emacs puts up the default
4164 (setq ido-use-merged-list 'auto
4175 ;; Find matching files and display a list in the minibuffer.
4182 (buffer-undo-list t)
4190 (ido-trace "list" ido-cur-list)
4204 ((memq ido-cur-item '(buffer list))
4238 (ido-up-directory t)
4289 ((and (not ido-use-merged-list)
4291 (eq ido-try-merged-list t)
4298 (setq ido-use-merged-list 'auto
4310 ;; Update the list of matches
4333 ido-ignored-list)
4336 (ido-cur-list ido-ignored-list))
4337 (ido-trace "try all" ido-ignored-list)
4357 (if ido-use-merged-list
4359 (when (and (eq ido-try-merged-list t)
4371 (if (and ido-use-merged-list
4376 (setq ido-use-merged-list t
4457 ((= items 0) (list (nth 3 ido-decorations))) ; " | ..."
4459 (list (or ido-separator (nth 2 ido-decorations)) ; " | "
4475 ;; list all alternatives
4512 (let ((buffer-undo-list t))
4520 ;; Move the summaries to the end of the buffer list.
4522 ;; `ido-make-buffer-list-hook'. Any buffer matching the regexps
4523 ;; `Summary' or `output\*$'are put to the end of the list.
4530 ido-temp-list))))
4544 buffer to be selected, which will go to the front of the list.
4634 CHOICES is a list of strings which are the possible completions.
4643 HIST, if non-nil, specifies a history list.
4649 (ido-choice-list choices))
4650 (ido-read-internal 'list prompt hist def require-match initial-input)))