Lines Matching +defs:find +defs:alternate +defs:file
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
42 ;; The buffer or file at the start of the list will be the one visited
44 ;; narrowed down so that gradually the buffer or file you want will be
46 ;; the right and left arrow keys) to rotate buffer or file names in the
98 ;; example, the quickest way to get to the "123456" file would be
102 ;; Likewise, if you use C-x C-f (ido-find-file), the list of files and
113 ;; To go down into a subdirectory, and continue the file selection on
117 ;; To go up to the parent directory, delete any partial file name
127 ;; If for some reason you cannot specify the proper file using
128 ;; ido-find-file, you can press C-f to enter the normal find-file.
131 ;; See the doc string of ido-switch-buffer and ido-find-file for full
133 ;; (describe-function 'ido-find-file)
155 ;; the file at the head of the list with C-k. You will always be
156 ;; asked for confirmation before the file is deleted.
158 ;; If you enter C-x b to switch to a buffer visiting a given file, and
159 ;; you find that the file you are after is not in any buffer, you can
160 ;; press C-f to immediately drop into ido-find-file. And you can
184 ;; matching (unless regexp matching is active) to find possible matches
185 ;; among the available buffer or file names if no matches are found using
203 ;; This allows you to type `[ch]$' for example and see all file names
252 ;; list. (I find this handy for keeping the INBOX Summary and so on
267 ;; Replacement for read-buffer and read-file-name
270 ;; ido-read-buffer and ido-read-file-name have been written to be drop
271 ;; in replacements for the normal buffer and file name reading
272 ;; functions `read-buffer' and `read-file-name'.
274 ;; To use ido for all buffer and file selections in Emacs, customize the
281 ;; ido-read-buffer, ido-read-file-name, and ido-read-directory-name
282 ;; can be used by other packages to read a buffer name, a file name,
289 ;; for ido-switch-buffer and found the inspiration for ido-find-file.
319 ;; and optionally hooking the read-buffer and read-file-name functions.
352 - `file': Turn only on ido file behavior \(finding, writing, inserting...)
353 - `both': Turn on ido buffer and file behavior.
363 :set-after '(ido-save-directory-list-file
365 ;; before loading history file.
368 (const :tag "Turn on only file" file)
369 (const :tag "Turn on both buffer and file" both)
374 "Use ido everywhere for reading file names and directories.
384 "*Non-nil if searching of buffer and file names should ignore case."
392 with a space, for which the regexp is `\\` '. See the source file for
399 "*List of regexps or functions matching file names to ignore.
401 with a #, for which the regexp is `\\`#'. See the source file for
412 "*Non-nil means to always put . as the first item in file name lists.
417 (defcustom ido-file-extensions-order nil
418 "*List of file extensions specifying preferred order of file selections.
421 for files with an unlisted file extension."
435 in merged file and directory lists."
451 (defcustom ido-default-file-method 'raise-frame
452 "*How to visit a new file when using `ido-find-file'.
454 `selected-window' Show new file in selected window
455 `other-window' Show new file in another window (same frame)
456 `display' Display file in another window without selecting to it
457 `other-frame' Show new file in another frame
458 `maybe-frame' If a file is visible in another frame, prompt to ask if you
459 you want to see the file in the same window of the current
461 `raise-frame' If a file is visible in another frame, raise that
462 frame; otherwise, visit the file in the same window"
473 See `ido-default-file-method' for details."
504 "*Non-nil means only match if the entered text is a prefix of file name.
547 (defcustom ido-max-file-prompt-width 0.35
570 See `ido-last-directory-list' and `ido-save-directory-list-file'."
577 See `ido-work-directory-list' and `ido-save-directory-list-file'."
602 If found, call `find-file-at-point' to visit it."
609 A tramp file name uses the following syntax: /method:user@host:filename."
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."
633 equivalent function, e.g. `find-file' rather than `ido-find-file'."
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'."
685 When some text is already entered at the `ido-find-file' prompt, using
692 "*Automatically switch to merged work directories during file name input.
706 When a (partial) file name matches this regexp, merging is inhibited."
715 (defcustom ido-max-dir-file-cache 100
717 This is the size of the cache of `file-name-all-completions' results.
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.
833 (defcustom ido-make-file-list-hook nil
854 (defcustom ido-rewrite-file-prompt-functions nil
855 "*List of functions to run when the find-file prompt is created.
862 literal - the string shown if doing \"literal\" find; set to nil to omit
868 item - equals `file' or `dir' depending on the current mode."
872 (defvar ido-rewrite-file-prompt-rules nil
880 `ido-rewrite-file-prompt-functions'.")
916 (defcustom ido-save-directory-list-file "~/.ido.last"
919 `ido-work-file-list', and `ido-dir-file-cache'.
924 (defcustom ido-read-file-name-as-directory-commands '()
925 "List of commands which uses `read-file-name' to read a directory name.
931 (defcustom ido-read-file-name-non-ido '()
932 "List of commands which shall not read file names the ido way.
934 the file name using normal `read-file-name' style."
954 (defvar ido-file-completion-map nil
955 "Keymap for ido file commands.")
957 (defvar ido-file-dir-completion-map nil
958 "Keymap for ido file and directory commands.")
963 (defvar ido-file-history nil
964 "History of files selected using `ido-find-file'.")
976 file is opened with `ido-find-file' and family.")
978 (defvar ido-work-file-list nil
979 "List of actual work file names.
980 Opening a file with `ido-find-file' and similar functions
981 inserts the current file name (relative to its containing directory)
984 (defvar ido-dir-file-cache nil
985 "List of `file-name-all-completions' results.
1025 "Flag to monitor how `ido-find-file' exits.
1026 If equal to `takeprompt', we use the prompt as the file name to be
1030 "Current directory for `ido-find-file'.")
1050 ;; Stores the current ido item type ('file, 'dir, 'buffer, or 'list).
1087 ;; Non-nil if matching file must be selected.
1090 ;; Stores a temporary version of the file list being created.
1099 ;; Stores current index in ido-work-file-list.
1100 (defvar ido-work-file-index)
1115 ;; Stores temporary state of literal find file.
1116 (defvar ido-find-literal)
1118 ;; Set to 'ignore to inhibit switching between find-file/switch-buffer.
1154 (defun ido-local-file-exists-p (file)
1156 (let (file-name-handler-alist)
1157 (file-exists-p file)))
1234 "\\`/[^/:][^/:]+:" ;; like tramp-file-name-regexp-unified, but doesn't match single drive letters
1306 (when (and ido-last-directory-list ido-save-directory-list-file)
1314 (ido-pp 'ido-work-file-list)
1315 (ido-pp 'ido-dir-file-cache "\n\n ")
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))
1330 (when (file-readable-p file)
1335 (insert-file-contents file)
1339 ido-work-file-list (read (current-buffer))
1340 ido-dir-file-cache (read (current-buffer))
1371 (setq ido-work-file-list
1372 (and (listp ido-work-file-list)
1373 (let ((l ido-work-file-list) r)
1379 (setq ido-dir-file-cache
1380 (and (listp ido-dir-file-cache)
1381 (let ((l ido-dir-file-cache) r)
1434 (let ((l ido-work-file-list) e)
1438 (let ((l ido-dir-file-cache) e d)
1459 keybindings for the `find-file' and `switch-to-buffer' families of
1469 ((eq arg 'files) 'file)
1471 ((memq arg '(file buffer both)) arg)
1487 (when (memq ido-mode '(file both))
1488 (define-key map [remap find-file] 'ido-find-file)
1489 (define-key map [remap find-file-read-only] 'ido-find-file-read-only)
1490 (define-key map [remap find-alternate-file] 'ido-find-alternate-file)
1491 (define-key map [remap write-file] 'ido-write-file)
1492 (define-key map [remap insert-file] 'ido-insert-file)
1495 (define-key map [remap find-file-other-window] 'ido-find-file-other-window)
1496 (define-key map [remap find-file-read-only-other-window] 'ido-find-file-read-only-other-window)
1497 (define-key map [remap find-file-other-frame] 'ido-find-file-other-frame)
1498 (define-key map [remap find-file-read-only-other-frame] 'ido-find-file-read-only-other-frame))
1515 "Toggle using ido speed-ups everywhere file and directory names are read.
1521 (when (get 'ido-everywhere 'file)
1522 (setq read-file-name-function (car (get 'ido-everywhere 'file)))
1523 (put 'ido-everywhere 'file nil))
1528 (when (memq ido-mode '(both file))
1529 (put 'ido-everywhere 'file (cons read-file-name-function nil))
1530 (setq read-file-name-function 'ido-read-file-name))
1583 (define-key map [(meta ?d)] 'ido-wide-find-dir-or-delete-dir)
1586 (define-key map [(meta ?f)] 'ido-wide-find-file-or-pop-dir)
1590 (define-key map [(meta ?o)] 'ido-prev-work-file)
1591 (define-key map [(meta control ?o)] 'ido-next-work-file)
1595 (setq ido-file-dir-completion-map map))
1599 (define-key map "\C-k" 'ido-delete-file-at-head)
1601 (define-key map "\C-w" 'ido-copy-current-file-name)
1604 (set-keymap-parent map ido-file-dir-completion-map)
1605 (setq ido-file-completion-map map))
1609 (define-key map "\C-x\C-f" 'ido-enter-find-file)
1627 ((memq ido-cur-item '(file dir))
1636 (if (eq ido-cur-item 'file)
1637 ido-file-completion-map
1638 ido-file-dir-completion-map)))
1675 (file-directory-p dir)
1676 (not (file-readable-p dir)))))
1686 (file-directory-p dir)
1687 (> (nth 7 (file-attributes dir)) ido-max-directory-size))))
1724 (ido-set-current-directory (expand-file-name (or dir "~/"))))
1737 ((and (memq item '(file dir)) ido-current-directory)
1738 (let ((dirname (abbreviate-file-name ido-current-directory))
1739 (max-width (if (and ido-max-file-prompt-width (floatp ido-max-file-prompt-width))
1740 (floor (* (frame-width) ido-max-file-prompt-width))
1741 ido-max-file-prompt-width))
1742 (literal (and (boundp 'ido-find-literal) ido-find-literal "(literal) "))
1745 (rule ido-rewrite-file-prompt-rules))
1755 (run-hooks 'ido-rewrite-file-prompt-functions)
1769 ;; Here is very briefly how ido-find-file works:
1771 ;; (ido-find-file)
1772 ;; (ido-file-internal method)
1774 ;; (ido-read-internal 'file ...)
1795 ;; exit with the return value of ido-selected (file name)
1796 ;; selected file name is returned from ido-read-internal,
1798 ;; e.g. the file name may be ignored or joined with ido-current-directory, and
1799 ;; the relevant function is called (find-file, write-file, etc).
1802 "Perform the `ido-read-buffer' and `ido-read-file-name' functions.
1803 Return the name of a buffer or file selected.
1806 If REQUIRE-MATCH is non-nil, an existing file must be selected.
1850 (if (memq item '(file dir))
1851 (file-name-nondirectory default)
1853 ((eq item 'file)
1871 (l (ido-make-merged-file-list ido-text-init
1916 ((eq ido-cur-item 'file)
1920 (ido-make-file-list ido-default-item))))
1944 (if (memq ido-cur-item '(file dir))
1948 (if (memq ido-cur-item '(file dir))
1957 ;; prompt the user for the file name
1987 ((memq ido-cur-item '(file dir))
1988 (let* ((read-file-name-function nil)
1997 (read-file-name (concat prompt "[EDIT] ")
1998 (expand-file-name d)
2002 d (or (file-name-directory new) "/")
2003 f (file-name-nondirectory new)
2006 (file-directory-p d)
2029 ((memq ido-exit '(dired fallback find-file switch-to-buffer insert-buffer insert-file))
2044 (setq ido-text-init (file-name-nondirectory (substring ido-current-directory 0 -1)))
2046 (ido-set-current-directory (file-name-directory (substring ido-current-directory 0 -1)))
2069 (file-exists-p (concat ido-current-directory ido-final-text))
2092 (ido-set-current-directory (file-name-directory (substring ido-current-directory 0 -1))))
2097 (not (ido-local-file-exists-p ido-selected)))
2108 (ido-set-current-directory (file-name-directory ido-selected))
2126 (file-exists-p (concat ido-current-directory (cdr elt))))
2138 "Edit absolute file name entered so far with ido; terminate by RET.
2165 ((eq ido-exit 'find-file)
2166 (ido-file-internal ido-default-file-method nil nil nil nil ido-text))
2168 ((eq ido-exit 'insert-file)
2169 (ido-file-internal 'insert 'insert-file nil "Insert file: " nil ido-text 'ido-enter-insert-buffer))
2236 (defun ido-record-work-file (name)
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))))
2248 (ido-final-slash (expand-file-name (or dir default-directory)) t))
2250 (defun ido-file-internal (method &optional fallback default prompt item initial switch-cmd)
2251 ;; Internal function for ido-find-file and friends
2253 (setq item 'file))
2268 (when (and (eq item 'file)
2287 (setq d (file-name-directory fn))
2288 (file-directory-p d))
2290 (setq initial (file-name-nondirectory fn))))))
2295 (ido-work-file-index -1)
2296 (ido-find-literal nil))
2300 (let ((minibuffer-completing-file-name t))
2302 (or prompt "Find file: ")
2303 'ido-file-history
2304 (and (eq method 'alt-file) buffer-file-name)
2307 ;; Choose the file name: either the text typed in, or the head
2315 (read-file-name-function nil))
2316 (setq this-command (or fallback 'find-file))
2324 (ido-buffer-internal 'insert 'insert-buffer "Insert buffer: " nil ido-text 'ido-enter-insert-file))
2330 (find-file-at-point))
2332 ((eq method 'alt-file)
2333 (ido-record-work-file filename)
2336 (find-alternate-file filename))
2342 (file (substring dirname 0 -1)))
2344 ((file-directory-p dirname)
2348 ((file-directory-p ido-current-directory)
2350 ((file-exists-p file)
2356 (dired-goto-file (expand-file-name file)))))
2373 (ido-record-work-file filename)
2376 (ido-record-command 'write-file filename)
2377 (add-to-history 'file-name-history filename)
2379 (write-file filename))
2382 (ido-record-work-file filename)
2390 (ido-record-work-file filename)
2393 (if ido-find-literal 'insert-file-literally 'insert-file)
2395 (add-to-history 'file-name-history filename)
2397 (insert-file-1 filename
2398 (if ido-find-literal
2399 #'insert-file-contents-literally
2400 #'insert-file-contents)))
2403 (ido-record-work-file filename)
2405 (ido-record-command 'find-file filename)
2406 (add-to-history 'file-name-history filename)
2408 (ido-visit-buffer (find-file-noselect filename nil ido-find-literal) method))))))
2425 (if (setq val (ido-find-common-substring ido-matches ido-text))
2430 "Try and complete the current pattern amongst the file names."
2437 ((and (memq ido-cur-item '(file dir))
2439 (let ((evar (substitute-in-file-name (concat ido-current-directory ido-text))))
2440 (if (not (file-exists-p (file-name-directory evar)))
2442 (if (file-directory-p evar)
2444 (let ((d (or (file-name-directory evar) "/"))
2445 (f (file-name-nondirectory evar)))
2446 (when (file-directory-p d)
2466 (not (ido-local-file-exists-p (ido-name (car ido-matches)))))
2541 C-x C-b ... C-f switch to ido-find-file.
2542 C-x C-f ... C-f fallback to non-ido find-file.
2549 ((memq ido-cur-item '(file dir))
2554 (ido-enter-find-file))))
2570 (when (and (memq ido-cur-item '(file dir))
2592 ((memq ido-cur-item '(file dir))
2634 "Disable version control for this file."
2636 (if (and ido-mode (eq ido-cur-item 'file))
2645 "Toggle literal reading of this file."
2647 (if (and ido-mode (eq ido-cur-item 'file))
2649 (setq ido-find-literal (not ido-find-literal))
2659 (if (and ido-mode (memq ido-cur-item '(file dir)))
2678 "Select the buffer or file named by the prompt.
2679 If no buffer or file exactly matching the prompt exists, maybe create a new one."
2693 (defun ido-enter-find-file ()
2694 "Drop into `find-file' from buffer switching."
2696 (setq ido-exit 'find-file)
2700 "Drop into `ido-switch-buffer' from file switching."
2706 "Drop into `dired' from file switching."
2712 "Drop into `insert-buffer' from insert file."
2717 (defun ido-enter-insert-file ()
2718 "Drop into `insert-file' from insert buffer."
2720 (setq ido-exit 'insert-file)
2774 (file-directory-p dir)
2778 (if (eq ido-cur-item 'file)
2779 (ido-make-file-list-1 dir)
2818 (defun ido-wide-find-file (&optional file)
2819 "Prompt for FILE to search for using find, starting from current directory."
2821 (unless file
2823 (setq file
2825 (read-string (concat "Wide find file: " ido-current-directory) ido-text)
2827 (when (> (length file) 0)
2830 (setq ido-text-init file)
2834 (defun ido-wide-find-dir (&optional dir)
2835 "Prompt for DIR to search for using find, starting from current directory."
2841 (read-string (concat "Wide find directory: " ido-current-directory) ido-text)
2850 (defun ido-wide-find-dir-or-delete-dir (&optional dir)
2851 "Prompt for DIR to search for using find, starting from current directory.
2856 (ido-wide-find-dir)))
2867 "Move to previous directory in file name, push current input on stack."
2873 "Move to previous directory in file name, push first match on stack."
2888 (defun ido-wide-find-file-or-pop-dir (arg)
2892 (ido-wide-find-file)))
2903 (unless (file-exists-p dir)
2911 (defun ido-get-work-file (incr)
2912 (let ((n (length ido-work-file-list))
2913 (i (+ ido-work-file-index incr))
2918 (setq name (nth i ido-work-file-list))
2919 (setq ido-work-file-index i)
2922 (defun ido-prev-work-file ()
2923 "Change to next working file name in list."
2925 (let ((name (ido-get-work-file 1)))
2931 (defun ido-next-work-file ()
2932 "Change to previous working file name in list."
2934 (let ((name (ido-get-work-file -1)))
2940 (defun ido-copy-current-file-name (all)
2941 "Insert file name of current buffer.
2944 (let* ((bfname (or (buffer-file-name ido-entry-buffer)
2946 (name (and bfname (file-name-nondirectory bfname))))
2951 (not (equal (file-name-directory bfname) ido-current-directory))
2960 "Insert current word (file or directory name) from current buffer."
3017 first matching file."
3036 for first matching file."
3078 ;; Return file name for current item, whether in a normal list
3090 ((eq ido-cur-item 'file)
3091 (ido-make-file-list-1 ido-current-directory))
3103 (defun ido-file-lessp (a b)
3104 ;; Simple compare two file names.
3108 (defun ido-file-extension-lessp (a b)
3109 ;; Compare file names according to ido-file-extensions-order list.
3123 (ido-file-extension-aux a b n lessp))
3128 (ido-file-extension-aux a b n lessp)
3131 (defun ido-file-extension-aux (a b n lessp)
3132 (let ((oa (ido-file-extension-order a n))
3133 (ob (ido-file-extension-order b n)))
3150 (defun ido-file-extension-order (s n)
3151 (let ((l ido-file-extensions-order)
3168 ;; Input is list of ("file" . "dir") cons cells.
3169 ;; Output is sorted list of ("file "dir" ...) lists
3184 (defun ido-wide-find-dirs-or-files (dir file &optional prefix finddir)
3185 ;; As ido-run-find-command, but returns a list of cons pairs ("file" . "dir")
3189 (concat "find "
3193 (concat (if prefix "" "*") file "*"))
3201 (file-exists-p filename))
3202 (setq d (file-name-directory filename)
3203 f (file-name-nondirectory filename)
3212 (file (car item))
3215 (setq res (cons (concat (car dirs) file) res)
3221 (defun ido-make-merged-file-list-1 (text auto wide)
3223 (if (and (ido-final-slash text) ido-dir-file-cache)
3225 (setq res (ido-wide-find-dirs-or-files
3229 (dirs ido-dir-file-cache)
3237 (file-directory-p dir))
3239 f (concat (file-name-nondirectory b) "/")
3240 d (file-name-directory b)
3258 (setq res (ido-wide-find-dirs-or-files
3272 (file-directory-p dir)
3274 (setq fl (if (eq ido-cur-item 'file)
3275 (ido-make-file-list-1 dir t)
3286 (defun ido-make-merged-file-list (text auto wide)
3292 (ido-make-merged-file-list-1 text auto wide))))
3300 (when (and (or ido-rotate-temp ido-rotate-file-list-default)
3365 (defun ido-file-name-all-completions-1 (dir)
3379 (or (file-name-all-completions "" dir)
3385 (tramp-tramp-file-p dir)
3386 (fboundp 'tramp-ftp-file-name-p)
3387 (funcall 'tramp-ftp-file-name-p dir)
3389 (file-name-all-completions "" (concat dir "./"))))))
3396 (file-name-all-completions "" dir))))
3398 (defun ido-file-name-all-completions (dir)
3400 ;; Uses and updates ido-dir-file-cache
3407 ((and (numberp ido-max-dir-file-cache) (> ido-max-dir-file-cache 0)
3410 (let* ((cached (assoc dir ido-dir-file-cache))
3414 (attr (if (or ftp unc) nil (file-attributes dir)))
3430 (setq ido-dir-file-cache (delq cached ido-dir-file-cache)
3436 ((and ftp (file-readable-p dir))
3439 (setq cached (cons dir (cons mtime (ido-file-name-all-completions-1 dir)))
3440 ido-dir-file-cache (cons cached ido-dir-file-cache)))
3441 (if (> (length ido-dir-file-cache) ido-max-dir-file-cache)
3442 (setcdr (nthcdr (1- ido-max-dir-file-cache) ido-dir-file-cache) nil)))
3446 (ido-file-name-all-completions-1 dir))))
3449 ;; Remove dir from ido-dir-file-cache
3450 (if (and ido-dir-file-cache
3452 (let ((cached (assoc dir ido-dir-file-cache)))
3454 (setq ido-dir-file-cache (delq cached ido-dir-file-cache))))))
3457 (defun ido-make-file-list-1 (dir &optional merged)
3459 ;; If MERGED is non-nil, each file is cons'ed with DIR
3461 (file-directory-p dir))
3467 (ido-file-name-all-completions dir)))))
3469 (defun ido-make-file-list (default)
3472 ;; The hook `ido-make-file-list-hook' is run after the list has been
3473 ;; created to allow the user to further modify the order of the file names
3475 (let ((ido-temp-list (ido-make-file-list-1 ido-current-directory)))
3477 (if ido-file-extensions-order
3478 #'ido-file-extension-lessp
3479 #'ido-file-lessp)))
3485 (not (ido-local-file-exists-p x)))
3487 (let (file-name-handler-alist)
3488 (get-file-buffer x)))) x))
3495 (if (or ido-rotate-temp ido-rotate-file-list-default)
3511 (run-hooks 'ido-make-file-list-hook)
3517 (and (or (ido-is-tramp-root dir) (file-directory-p dir))
3523 (ido-file-name-all-completions dir)))))
3531 (setq ido-temp-list (sort ido-temp-list #'ido-file-lessp))
3537 (if (or ido-rotate-temp ido-rotate-file-list-default)
3667 ;; Return t if the buffer or file NAME should be ignored.
3706 (defun ido-find-common-substring (items subs)
3800 #'ido-file-lessp)))
3833 (defun ido-delete-file-at-head ()
3834 "Delete the file at the head of `ido-matches'.
3840 (file (ido-name (car ido-matches))))
3841 (if file
3842 (setq file (concat ido-current-directory file)))
3843 (when (and file
3844 (file-exists-p file)
3845 (not (file-directory-p file))
3846 (file-writable-p ido-current-directory)
3847 (yes-or-no-p (concat "Delete " file "? ")))
3848 (delete-file file)
3849 ;; Check if file still exists.
3850 (if (file-exists-p file)
3851 ;; file could not be deleted
3853 ;; else file was killed so remove name from list.
3945 \\[ido-enter-find-file] Drop into `ido-find-file'.
3981 (ido-buffer-internal 'insert 'insert-buffer "Insert buffer: " nil nil 'ido-enter-insert-file))
3994 (defun ido-find-file-in-dir (dir)
3995 "Switch to another file starting from DIR."
3999 (ido-file-internal ido-default-file-method nil dir nil nil nil 'ignore))
4002 (defun ido-find-file ()
4003 "Edit file with name obtained via minibuffer.
4004 The file is displayed according to `ido-default-file-method' -- the
4008 The file name is selected interactively by typing a substring. As you
4013 except for the following: \\<ido-file-completion-map>
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.
4018 \\[ido-select-text] Select the current prompt as the buffer or file.
4019 If no buffer or file is found, prompt for a new one.
4024 matches all files. If there is only one match, select that file.
4029 \\[ido-merge-work-directories] search for file in the work directory history.
4031 \\[ido-prev-work-file] or \\[ido-next-work-file] cycle through the work file history.
4032 \\[ido-wide-find-file-or-pop-dir] and \\[ido-wide-find-dir-or-delete-dir] prompts and uses find to locate files or directories.
4037 \\[ido-toggle-case] Toggle case-sensitive searching of file names.
4038 \\[ido-toggle-vc] Toggle version control for this file.
4039 \\[ido-toggle-literal] Toggle literal reading of this file.
4044 (ido-file-internal ido-default-file-method))
4047 (defun ido-find-file-other-window ()
4048 "Switch to another file and show it in another window.
4049 The file name is selected interactively by typing a substring.
4050 For details of keybindings, see `ido-find-file'."
4052 (ido-file-internal 'other-window 'find-file-other-window))
4055 (defun ido-find-alternate-file ()
4056 "Switch to another file and show it in another window.
4057 The file name is selected interactively by typing a substring.
4058 For details of keybindings, see `ido-find-file'."
4060 (ido-file-internal 'alt-file 'find-alternate-file nil "Find alternate file: "))
4063 (defun ido-find-file-read-only ()
4064 "Edit file read-only with name obtained via minibuffer.
4065 The file name is selected interactively by typing a substring.
4066 For details of keybindings, see `ido-find-file'."
4068 (ido-file-internal 'read-only 'find-file-read-only nil "Find file read-only: "))
4071 (defun ido-find-file-read-only-other-window ()
4072 "Edit file read-only in other window with name obtained via minibuffer.
4073 The file name is selected interactively by typing a substring.
4074 For details of keybindings, see `ido-find-file'."
4076 (ido-file-internal 'read-only 'find-file-read-only-other-window nil "Find file read-only other window: "))
4079 (defun ido-find-file-read-only-other-frame ()
4080 "Edit file read-only in other frame with name obtained via minibuffer.
4081 The file name is selected interactively by typing a substring.
4082 For details of keybindings, see `ido-find-file'."
4084 (ido-file-internal 'read-only 'find-file-read-only-other-frame nil "Find file read-only other frame: "))
4087 (defun ido-display-file ()
4088 "Display a file in another window but don't select it.
4089 The file name is selected interactively by typing a substring.
4090 For details of keybindings, see `ido-find-file'."
4092 (ido-file-internal 'display nil nil nil nil nil 'ignore))
4095 (defun ido-find-file-other-frame ()
4096 "Switch to another file and show it in another frame.
4097 The file name is selected interactively by typing a substring.
4098 For details of keybindings, see `ido-find-file'."
4100 (ido-file-internal 'other-frame 'find-file-other-frame))
4103 (defun ido-write-file ()
4104 "Write current buffer to a file.
4105 The file name is selected interactively by typing a substring.
4106 For details of keybindings, see `ido-find-file'."
4114 (ido-file-internal 'write 'write-file nil "Write file: " nil nil 'ignore)))
4117 (defun ido-insert-file ()
4118 "Insert contents of file in current buffer.
4119 The file name is selected interactively by typing a substring.
4120 For details of keybindings, see `ido-find-file'."
4122 (ido-file-internal 'insert 'insert-file nil "Insert file: " nil nil 'ido-enter-insert-buffer))
4128 For details of keybindings, see `ido-find-file'."
4132 (ido-file-internal 'dired 'dired nil "Dired: " 'dir)))
4137 For details of keybindings, see `ido-find-file'."
4141 (ido-file-internal 'list-directory 'list-directory nil "List directory: " 'dir)))
4177 ;; 1. It prints a default file name when there is no text yet entered.
4224 (not (ido-local-file-exists-p contents)))
4248 (expand-file-name
4249 (substitute-in-file-name (substring contents 0 -1))
4253 (when (and exp (file-directory-p exp))
4254 (ido-set-current-directory (file-name-directory exp))
4255 (setq ido-text-init (file-name-nondirectory exp))
4259 (ido-set-current-directory (file-name-directory contents))
4264 (expand-file-name "/" ido-current-directory)
4268 (file-directory-p (concat ido-current-directory (file-name-directory contents))))
4270 (concat ido-current-directory (file-name-directory contents)))
4350 (memq ido-cur-item '(file dir))
4439 ;; when there is one match, show the matching file name in full
4536 (put 'ibuffer-find-file 'ido 'find-file)
4558 (defun ido-read-file-name (prompt &optional dir default-filename mustmatch initial predicate)
4559 "Ido replacement for the built-in `read-file-name'.
4560 Read file name, prompting with PROMPT and completing in directory DIR.
4561 See `read-file-name' for additional parameters."
4564 ((or (eq predicate 'file-directory-p)
4566 (memq this-command ido-read-file-name-as-directory-commands))
4572 (not (memq this-command ido-read-file-name-non-ido))
4573 (or (null predicate) (eq predicate 'file-exists-p)))
4576 (if (eq (get this-command 'ido) 'find-file) nil 'ignore))
4578 (minibuffer-completing-file-name t)
4580 (ido-directory-nonreadable (not (file-readable-p ido-current-directory)))
4586 (ido-work-file-index -1)
4587 (ido-find-literal nil))
4590 (ido-read-internal 'file prompt 'ido-file-history default-filename mustmatch initial))
4602 (let ((read-file-name-function nil))
4603 (run-hook-with-args 'ido-before-fallback-functions 'read-file-name)
4604 (read-file-name prompt dir default-filename mustmatch initial predicate))
4613 (minibuffer-completing-file-name t)
4617 (ido-directory-nonreadable (not (file-readable-p ido-current-directory)))
4621 (ido-work-file-index -1))
4623 (ido-read-internal 'dir prompt 'ido-file-history default-dirname mustmatch initial))