ido.elc

;ELC
;;; Compiled by shant@ultraio on Sat Sep 27 19:36:32 2014
;;; from file /home/shant/.emacs.d/ido.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'ido-fractionp #[(n) "\247\205\301V\205\302X\207" [n 0.0 1.0] 2])
(byte-code "\300\301\302\303\304\305\304\306\307\310\311\312\311\313&
\210\314\315\302\316\317\320\321\322\323\301\311\324\325\326\327\330\304\301&\210\314\331\332\333\327\334\304\301&\210\314\335\336\337\327\340\304\301&\210\314\341\342\343\327\344\304\301&\210\314\345\346\347\327\334\304\301&\210\314\350\302\351\327\334\304\301&\210\314\352\302\353\327\354\304\301&\210\314\355\356\357\327\360\304\301&\210\314\361\302\362\327\363\304\301&\210\314\364\365\366\327\367\304\301&\210\314\370\371\372\327\373\304\301&\210\314\374\302\375\327\334\304\301&\210\314\376\302\377\327\334\304\301&\210\314\201@\302\201A\327\334\304\301&\210\314\201B\302\201C\327\334\304\301&\210\314\201D\346\201E\307\201F\327\334\304\301&	\210\314\201G\302\201H\327\334\304\301&\210\314\201I\201J\201K\327\201L\304\301&\210\314\201M\346\201N\327\334\304\301&\210\314\201O\201P\201Q\327\201R\304\301&\210\314\201S\201T\201U\327\201V\304\301&\210\314\201W\302\201X\327\201Y\304\301&\210\314\201Z\346\201[\327\334\304\301&\210\314\201\\\201]\201^\327\201R\304\301&\210\314\201_\302\201`\327\201a\304\301&\210\314\201b\302\201c\327\201d\304\301&\210\314\201e\302\201f\327\334\304\301&\210\314\201g\346\201h\327\334\304\301&\210\314\201i\346\201j\327\334\304\301&\210\314\201k\302\201l\327\334\304\301&\210\314\201m\201n\201o\327\201p\304\301&\210\314\201q\302\201r\327\201s\304\301&\210\314\201t\302\201u\327\201v\304\301&\207" [custom-declare-group ido nil "Switch between files using substrings." :group extensions convenience :version "22.1" :link (emacs-commentary-link :tag "Commentary" "ido.el") (emacs-library-link :tag "Lisp File" "ido.el") custom-declare-variable ido-mode "Determines for which functional group (buffer and files) ido behavior\nshould be enabled.  The following values are possible:\n- `buffer': Turn only on ido buffer behavior (switching, killing,\n  displaying...)\n- `file': Turn only on ido file behavior (finding, writing, inserting...)\n- `both': Turn on ido buffer and file behavior.\n- `nil': Turn off any ido switching.\n\nSetting this variable directly does not take effect;\nuse either \\[customize] or the function `ido-mode'." :set #[(_symbol value) "\301!\207" [value ido-mode] 2] :initialize custom-initialize-default :require (emacs-commentary-link "ido.el") :set-after (ido-save-directory-list-file ido-unc-hosts) :type (choice (const :tag "Turn on only buffer" buffer) (const :tag "Turn on only file" file) (const :tag "Turn on both buffer and file" both) (const :tag "Switch off all" nil)) ido-case-fold case-fold-search "Non-nil if searching of buffer and file names should ignore case." boolean ido-ignore-buffers '("\\` ") "List of regexps or functions matching buffer names to ignore.\nFor example, traditional behavior is not to list buffers whose names begin\nwith a space, for which the regexp is `\\` '.  See the source file for\nexample functions that filter buffer names." (repeat (choice regexp function)) ido-ignore-files '("\\`CVS/" "\\`#" "\\`.#" "\\`\\.\\./" "\\`\\./") "List of regexps or functions matching file names to ignore.\nFor example, traditional behavior is not to list files whose names begin\nwith a #, for which the regexp is `\\`#'.  See the source file for\nexample functions that filter filenames." (repeat (choice regexp function)) ido-ignore-extensions t "Non-nil means ignore files in `completion-ignored-extensions' list." ido-show-dot-for-dired "Non-nil means to always put . as the first item in file name lists.\nThis allows the current directory to be opened immediately with `dired'." ido-file-extensions-order "List of file extensions specifying preferred order of file selections.\nEach element is either a string with `.' as the first char, an empty\nstring matching files without extension, or t which is the default order\nfor files with an unlisted file extension." (repeat (choice string (const :tag "Default order" t))) ido-ignore-directories '("\\`CVS/" "\\`\\.\\./" "\\`\\./") "List of regexps or functions matching sub-directory names to ignore." (repeat (choice regexp function)) ido-ignore-directories-merge "List of regexps or functions matching directory names to ignore during merge.\nDirectory names matched by one of the regexps in this list are not inserted\nin merged file and directory lists." (repeat (choice regexp function)) ido-default-file-method 'raise-frame "How to visit a new file when using `ido-find-file'.\nPossible values:\n`selected-window' Show new file in selected window\n`other-window'	  Show new file in another window (same frame)\n`display'	  Display file in another window without selecting to it\n`other-frame'	  Show new file in another frame\n`maybe-frame'	  If a file is visible in another frame, prompt to ask if you\n		  you want to see the file in the same window of the current\n  		  frame or in the other frame\n`raise-frame'     If a file is visible in another frame, raise that\n		  frame; otherwise, visit the file in the same window" (choice (const :tag "Visit in selected window" selected-window) (const :tag "Visit in other window" other-window) (const :tag "Display (no select) in other window" display) (const :tag "Visit in other frame" other-frame) (const :tag "Ask to visit in other frame" maybe-frame) (const :tag "Raise frame if already visited" raise-frame)) ido-default-buffer-method 'raise-frame "How to switch to new buffer when using `ido-switch-buffer'.\nSee `ido-default-file-method' for details." (choice (const :tag "Show in selected window" selected-window) (const :tag "Show in other window" other-window) (const :tag "Display (no select) in other window" display) (const :tag "Show in other frame" other-frame) (const :tag "Ask to show in other frame" maybe-frame) (const :tag "Raise frame if already shown" raise-frame)) ido-enable-flex-matching "Non-nil means that `ido' will do flexible string matching.\nFlexible matching means that if the entered string does not\nmatch any item, any item containing the entered characters\nin the given sequence will match." ido-enable-regexp "Non-nil means that `ido' will do regexp matching.\nValue can be toggled within `ido' using `ido-toggle-regexp'." ido-enable-prefix "Non-nil means only match if the entered text is a prefix of file name.\nThis behavior is like the standard Emacs completion.\nIf nil, match if the entered text is an arbitrary substring.\nValue can be toggled within `ido' using `ido-toggle-prefix'." ido-enable-dot-prefix "Non-nil means to match leading dot as prefix.\nI.e. hidden files and buffers will match only if you type a dot\nas first char even if `ido-enable-prefix' is nil." ido-buffer-disable-smart-matches "Non-nil means not to re-order matches for buffer switching.\nBy default, ido arranges matches in the following order:\n\n  full-matches > suffix matches > prefix matches > remaining matches\n\nwhich can get in the way for buffer switching." "24.3" ido-confirm-unique-completion "Non-nil means that even a unique completion must be confirmed.\nThis means that \\[ido-complete] must always be followed by \\[ido-exit-minibuffer]\neven when there is only one unique completion." ido-cannot-complete-command 'ido-completion-help "Command run when `ido-complete' can't complete any more.\nThe most useful values are `ido-completion-help', which pops up a\nwindow with completion alternatives, or `ido-next-match' or\n`ido-prev-match', which cycle the buffer list." function ido-record-commands "Non-nil means that `ido' will record commands in command history.\nNote that the non-ido equivalent command is recorded." ido-max-prospects 12 "Non-zero means that the prospect list will be limited to that number of items.\nFor a long list of prospects, building the full list for the minibuffer can take a\nnon-negligible amount of time; setting this variable reduces that time." integer ido-max-file-prompt-width 0.35 "Non-zero means that the prompt string be limited to that number of characters.\nIf value is a floating point number, it specifies a fraction of the frame width." (choice (integer :tag "Characters" :value 20) (restricted-sexp :tag "Fraction of frame width" :value 0.35 :match-alternatives (ido-fractionp))) ido-max-window-height "Non-nil specifies a value to override `max-mini-window-height'." (choice (const :tag "Don't override" nil) (integer :tag "Number of lines" :value 1) (restricted-sexp :tag "Fraction of window height" :value 0.25 :match-alternatives (ido-fractionp))) ido-enable-last-directory-history "Non-nil means that `ido' will remember latest selected directory names.\nSee `ido-last-directory-list' and `ido-save-directory-list-file'." ido-max-work-directory-list 50 "Maximum number of working directories to record.\nThis is the list of directories where files have most recently been opened.\nSee `ido-work-directory-list' and `ido-save-directory-list-file'." ido-work-directory-list-ignore-regexps "List of regexps matching directories which should not be recorded.\nDirectory names matched by one of the regexps in this list are not inserted in\nthe `ido-work-directory-list' list." (repeat regexp) ido-use-filename-at-point "Non-nil means that ido shall look for a filename at point.\nMay use `ffap-guesser' to guess whether text at point is a filename.\nIf found, use that as the starting point for filename selection." (choice (const :tag "Disabled" nil) (const :tag "Guess filename" guess) (other :tag "Use literal filename" t)) ido-use-url-at-point "Non-nil means that ido shall look for a URL at point.\nIf found, call `find-file-at-point' to visit it." ido-enable-tramp-completion "Non-nil means that ido shall perform tramp method and server name completion.\nA tramp file name uses the following syntax: /method:user@host:filename." ido-record-ftp-work-directories "Non-nil means record ftp file names in the work directory list." ido-merge-ftp-work-directories "If nil, merging ignores ftp file names in the work directory list." ido-cache-ftp-work-directory-time 1.0 "Maximum time to cache contents of an ftp directory (in hours).\nUse C-l in prompt to refresh list.\nIf zero, ftp directories are not cached." number ido-slow-ftp-hosts "List of slow ftp hosts where ido prompting should not be used.\nIf an ftp host is on this list, ido automatically switches to the non-ido\nequivalent function, e.g. `find-file' rather than `ido-find-file'." (repeat string) ido-slow-ftp-host-regexps "List of regexps matching slow ftp hosts (see `ido-slow-ftp-hosts')." (repeat regexp)] 18)
#@45 Cached value from `ido-unc-hosts' function.
(defvar ido-unc-hosts-cache t (#$ . 11114))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\310\311&\210\300\316\302\317\304\320\310\311&\210\300\321\322\323\304\324\310\311&\210\300\325\326\327\304\330\310\311&\210\300\331\313\332\304\315\310\311&\210\300\333\334\335\304\330\310\311&\210\300\336\337\340\304\324\310\311&\210\300\341\342\343\304\344\310\311&\210\300\345\346\347\304\350\310\311&\210\300\351\352\353\304\330\310\311&\210\300\354\302\355\304\356\310\311&\210\300\357\302\360\304\315\310\311&\210\300\361\362\363\304\364\310\311&\210\300\365\366\367\304\370\310\311&\210\300\371\302\372\304\373\310\311&\210\300\374\302\375\304\376\310\311&\210\300\377\201@\201A\304\201B\310\311&\210\300\201C\302\201D\201E\201F\304\315\310\311&	\210\300\201G\313\201H\304\315\310\311&\210\201I\201J\201K\201L\310\311%\210\201I\201M\201N\201O\310\311%\210\201I\201P\201Q\201R\310\311%\210\201I\201S\201T\201U\201E\201F\310\311&\210\201I\201V\201W\201X\310\311%\210\201I\201Y\201Z\201[\310\311%\210\300\201\\\302\201]\304\373\310\311&\210\300\201^\302\201_\304\373\310\311&\210\300\201`\302\201a\304\373\310\311&\210\300\201b\302\201c\304\373\310\311&\207" [custom-declare-variable ido-unc-hosts nil "List of known UNC host names to complete after initial //.\nIf value is a function, that function is called to search network for\nhosts on first use of UNC path." :type (choice (repeat :tag "List of UNC host names" string) (function-item :tag "Use `NET VIEW'" :value ido-unc-hosts-net-view) (function :tag "Your own function")) :set #[(symbol value) "	L\210\303\211\207" [symbol value ido-unc-hosts-cache t] 2] :group ido ido-downcase-unc-hosts t "Non-nil if UNC host names should be downcased." boolean ido-ignore-unc-host-regexps "List of regexps matching UNC hosts to ignore.\nCase is ignored if `ido-downcase-unc-hosts' is set." (repeat regexp) ido-cache-unc-host-shares-time 8.0 "Maximum time to cache shares of an UNC host (in hours).\nUse C-l in prompt to refresh list.\nIf zero, UNC host shares are not cached." number ido-max-work-file-list 10 "Maximum number of names of recently opened files to record.\nThis is the list of the file names (sans directory) which have most recently\nbeen opened.  See `ido-work-file-list' and `ido-save-directory-list-file'." integer ido-work-directory-match-only "Non-nil means to skip non-matching directories in the directory history.\nWhen some text is already entered at the `ido-find-file' prompt, using\n\\[ido-prev-work-directory] or \\[ido-next-work-directory] will skip directories\nwithout any matching entries." ido-auto-merge-work-directories-length 0 "Automatically switch to merged work directories during file name input.\nThe value is number of characters to type before switching to merged mode.\nIf zero, the switch happens when no matches are found in the current directory.\nAutomatic merging is disabled if the value is negative." ido-auto-merge-delay-time 0.7 "Delay in seconds to wait for more input before doing auto merge." ido-auto-merge-inhibit-characters-regexp "[][*?~]" "Regexp matching characters which should inhibit automatic merging.\nWhen a (partial) file name matches this regexp, merging is inhibited." regexp ido-merged-indicator "^" "The string appended to first choice if it has multiple directory choices." string ido-max-dir-file-cache 100 "Maximum number of working directories to be cached.\nThis is the size of the cache of `file-name-all-completions' results.\nEach cache entry is time stamped with the modification time of the\ndirectory.  Some systems, like Windows, have unreliable directory\nmodification times, so you may choose to disable caching on such\nsystems, or explicitly refresh the cache contents using the command\n`ido-reread-directory' command (C-l) in the minibuffer.\nSee also `ido-dir-file-cache' and `ido-save-directory-list-file'." ido-max-directory-size "Maximum size (in bytes) for directories to use ido completion.\nIf you enter a directory with a size larger than this size, ido will\nnot provide the normal completion.  To show the completions, use C-a." (choice (const :tag "No limit" nil) (integer :tag "Size in bytes" 30000)) ido-rotate-file-list-default "Non-nil means that `ido' will always rotate file list to get default in front." ido-enter-matching-directory 'only "Additional methods to enter sub-directory of first/only matching item.\nIf value is 'first, enter first matching sub-directory when typing a slash.\nIf value is 'only, typing a slash only enters the sub-directory if it is\nthe only matching item.\nIf value is t, automatically enter a sub-directory when it is the only\nmatching item, even without typing a slash." (choice (const :tag "Never" nil) (const :tag "Slash enters first directory" first) (const :tag "Slash enters first and only directory" only) (other :tag "Always enter unique directory" t)) ido-create-new-buffer 'prompt "Specify whether a new buffer is created if no buffer matches substring.\nChoices are 'always to create new buffers unconditionally, 'prompt to\nask user whether to create buffer, or 'never to never create new buffer." (choice (const always) (const prompt) (const never)) ido-setup-hook "Hook run after the ido variables and keymap have been setup.\nThe dynamic variable `ido-cur-item' contains the current type of item that\nis read by ido; possible values are file, dir, buffer, and list.\nAdditional keys can be defined in `ido-completion-map'." hook ido-separator "String used by ido to separate the alternatives in the minibuffer.\nObsolete.  Set 3rd element of `ido-decorations' instead." (choice string (const nil)) ido-decorations '("{" "}" " | " " | ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]") "List of strings used by ido to display the alternatives in the minibuffer.\nThere are between 11 and 13 elements in this list:\n1st and 2nd elements are used as brackets around the prospect list,\n3rd element is the separator between prospects (ignored if `ido-separator' is set),\n4th element is the string inserted at the end of a truncated list of prospects,\n5th and 6th elements are used as brackets around the common match string which\ncan be completed using TAB,\n7th element is the string displayed when there are no matches, and\n8th element is displayed if there is a single match (and faces are not used),\n9th element is displayed when the current directory is non-readable,\n10th element is displayed when directory exceeds `ido-max-directory-size',\n11th element is displayed to confirm creating new file or buffer.\n12th and 13th elements (if present) are used as brackets around the sole\nremaining completion.  If absent, elements 5 and 6 are used instead." (repeat string) ido-use-virtual-buffers "If non-nil, refer to past buffers as well as existing ones.\nEssentially it works as follows: Say you are visiting a file and\nthe buffer gets cleaned up by midnight.el.  Later, you want to\nswitch to that buffer, but find it's no longer open.  With\nvirtual buffers enabled, the buffer name stays in the buffer\nlist (using the `ido-virtual' face, and always at the end), and if\nyou select it, it opens the file back up again.  This allows you\nto think less about whether recently opened files are still open\nor not.  Most of the time you can quit Emacs, restart, and then\nswitch to a file buffer that was previously open as if it still\nwere.\n    This feature relies upon the `recentf' package, which will be\nenabled if this variable is configured to a non-nil value." :version "24.1" ido-use-faces "Non-nil means use ido faces to highlighting first match, only match and\nsubdirs in the alternatives." custom-declare-face ido-first-match ((t :weight bold)) "Face used by ido for highlighting first match." ido-only-match ((((class color)) :foreground "ForestGreen") (t :slant italic)) "Face used by ido for highlighting only match." ido-subdir ((((min-colors 88) (class color)) :foreground "red1") (((class color)) :foreground "red") (t :underline t)) "Face used by ido for highlighting subdirs in the alternatives." ido-virtual ((t :inherit font-lock-builtin-face)) "Face used by ido for matching virtual buffer names." ido-indicator ((((min-colors 88) (class color)) :foreground "yellow1" :background "red1" :width condensed) (((class color)) :foreground "yellow" :background "red" :width condensed) (t :inverse-video t)) "Face used by ido for highlighting its indicators." ido-incomplete-regexp ((t :inherit font-lock-warning-face)) "Ido face for indicating incomplete regexps." ido-make-file-list-hook "List of functions to run when the list of matching files is created.\nEach function on the list may modify the dynamically bound variable\n`ido-temp-list' which contains the current list of matching files." ido-make-dir-list-hook "List of functions to run when the list of matching directories is created.\nEach function on the list may modify the dynamically bound variable\n`ido-temp-list' which contains the current list of matching directories." ido-make-buffer-list-hook "List of functions to run when the list of matching buffers is created.\nEach function on the list may modify the dynamically bound variable\n`ido-temp-list' which contains the current list of matching buffer names." ido-rewrite-file-prompt-functions "List of functions to run when the find-file prompt is created.\nEach function on the list may modify the following dynamically bound\nvariables:\n  dirname   - the (abbreviated) directory name\n		 to be modified by the hook functions\n  max-width - the max width of the resulting dirname; nil means no limit\n  prompt    - the basic prompt (e.g. \"Find File: \")\n  literal   - the string shown if doing \"literal\" find; set to nil to omit\n  vc-off    - the string shown if version control is inhibited; set to nil to omit\n  prefix    - either nil or a fixed prefix for the dirname\n\nThe following variables are available, but should not be changed:\n  `ido-current-directory' - the unabbreviated directory name\n  item - equals `file' or `dir' depending on the current mode."] 10)
#@495 Alist of rewriting rules for directory names in ido prompts.
A list of elements of the form (FROM . TO) or (FROM . FUNC), each
meaning to rewrite the directory name if matched by FROM by either
substituting the matched string by TO or calling the function FUNC
with the current directory name as its only argument and using the
return value as the new directory name.  In addition, each FUNC may
also modify the dynamic variables described for the variable
`ido-rewrite-file-prompt-functions'.
(defvar ido-rewrite-file-prompt-rules nil (#$ . 21338))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\311\321\304\322\306\307&\210\300\323\324\325\304\305\306\307&\210\300\326\327\330\304\331\306\307&\210\300\332\333\334\304\335\306\307&\210\300\336\337\340\304\322\306\307&\207" [custom-declare-variable ido-completion-buffer "*Ido Completions*" "Name of completion buffer used by ido.\nSet to nil to disable completion buffers popping up." :type string :group ido ido-completion-buffer-all-completions nil "Non-nil means to show all completions in completion buffer.\nOtherwise, only the current list of matches is shown." boolean ido-all-frames 'visible "Argument to pass to `walk-windows' when Ido is finding buffers.\nSee documentation of `walk-windows' for useful values." (choice (const :tag "Selected frame only" nil) (const :tag "All existing frames" t) (const :tag "All visible frames" visible) (const :tag "All frames on this terminal" 0)) ido-minibuffer-setup-hook "Ido-specific customization of minibuffer setup.\n\nThis hook is run during minibuffer setup if `ido' is active.\nIt is intended for use in customizing ido for interoperation\nwith other packages.  For instance:\n\n  (add-hook 'ido-minibuffer-setup-hook\n	    (function\n	     (lambda ()\n	       (make-local-variable 'max-mini-window-height)\n	       (setq max-mini-window-height 3))))\n\nwill constrain Emacs to a maximum minibuffer height of 3 lines when\nido is running.  Copied from `icomplete-minibuffer-setup-hook'." hook ido-save-directory-list-file (locate-user-emacs-file "ido.last" ".ido.last") "File in which the ido state is saved between invocations.\nVariables stored are: `ido-last-directory-list', `ido-work-directory-list',\n`ido-work-file-list', and `ido-dir-file-cache'.\nMust be set before enabling ido mode." ido-read-file-name-as-directory-commands 'nil "List of commands which uses `read-file-name' to read a directory name.\nWhen `ido-everywhere' is non-nil, the commands in this list will read\nthe directory using `ido-read-directory-name'." (repeat symbol) ido-read-file-name-non-ido 'nil "List of commands which shall not read file names the ido way.\nWhen `ido-everywhere' is non-nil, the commands in this list will read\nthe file name using normal `read-file-name' style." (repeat symbol) ido-before-fallback-functions 'nil "List of functions to call before calling a fallback command.\nThe fallback command is passed as an argument to the functions."] 8)
#@43 Currently active keymap for ido commands.
(defvar ido-completion-map nil (#$ . 24396))
#@30 Keymap for all ido commands.
(defvar ido-common-completion-map nil (#$ . 24489))
#@31 Keymap for ido file commands.
(defvar ido-file-completion-map nil (#$ . 24576))
#@45 Keymap for ido file and directory commands.
(defvar ido-file-dir-completion-map nil (#$ . 24662))
#@33 Keymap for ido buffer commands.
(defvar ido-buffer-completion-map nil (#$ . 24766))
#@50 History of files selected using `ido-find-file'.
(defvar ido-file-history nil (#$ . 24856))
#@56 History of buffers selected using `ido-switch-buffer'.
(defvar ido-buffer-history nil (#$ . 24954))
#@93 List of last selected directory names.
See `ido-enable-last-directory-history' for details.
(defvar ido-last-directory-list nil (#$ . 25060))
#@160 List of actual working directory names.
The current directory is inserted at the front of this list whenever a
file is opened with `ido-find-file' and family.
(defvar ido-work-directory-list nil (#$ . 25209))
#@187 List of actual work file names.
Opening a file with `ido-find-file' and similar functions
inserts the current file name (relative to its containing directory)
at the front of this list.
(defvar ido-work-file-list nil (#$ . 25425))
#@109 List of `file-name-all-completions' results.
Each element in the list is of the form (DIR (MTIME) FILE...).
(defvar ido-dir-file-cache nil (#$ . 25663))
#@150 List of items to ignore in current ido invocation.
Intended to be let-bound by functions which call ido repeatedly.
Should never be set permanently.
(defvar ido-ignore-item-temp-list nil (#$ . 25823))
#@96 Point where minibuffer input ends and completion info begins.
Copied from `icomplete-eoinput'.
(defvar ido-eoinput 1 (#$ . 26030))
(make-variable-buffer-local 'ido-eoinput)
#@57 Stores the string that is common to all matching files.
(defvar ido-common-match-string nil (#$ . 26209))
#@65 Non-nil means we need to regenerate the list of matching items.
(defvar ido-rescan nil (#$ . 26321))
#@48 Non-nil means we are rotating list of matches.
(defvar ido-rotate nil (#$ . 26428))
#@44 Stores the users string as it is typed in.
(defvar ido-text nil (#$ . 26518))
#@57 The initial string for the users string it is typed in.
(defvar ido-text-init nil (#$ . 26602))
#@50 Stores the users strings when user hits M-b/M-f.
(defvar ido-input-stack nil (#$ . 26704))
#@46 List of files currently matching `ido-text'.
(defvar ido-matches nil (#$ . 26801))
#@59 Report [No Match] when no completions matches `ido-text'.
(defvar ido-report-no-match t (#$ . 26890))
#@121 Flag to monitor how `ido-find-file' exits.
If equal to `takeprompt', we use the prompt as the file name to be
selected.
(defvar ido-exit nil (#$ . 26999))
#@40 Current directory for `ido-find-file'.
(defvar ido-current-directory nil (#$ . 27160))
#@29 Delay timer for auto merge.
(defvar ido-auto-merge-timer nil (#$ . 27253))
#@163 Non-nil means use `ido' completion feedback.
Is set by ido functions to the current `minibuffer-depth',
so that it doesn't interfere with other minibuffer usage.
(defvar ido-use-mycompletion-depth 0 (#$ . 27335))
#@45 Non-nil if an incomplete regexp is entered.
(defvar ido-incomplete-regexp nil (#$ . 27554))
#@125 Non-nil means to explicitly cursor on entry to minibuffer.
Value is an integer which is number of chars to right of prompt.
(defvar ido-initial-position nil (#$ . 27653))
#@175 List of virtual buffers, that is, past visited files.
This is a copy of `recentf-list', pared down and with faces applied.
Only used if `ido-use-virtual-buffers' is non-nil.
(defvar ido-virtual-buffers nil (#$ . 27831))
(defalias 'ido-active #[(&optional merge) "\203	\207\303\304!\205\n\305 U\207" [merge ido-use-merged-list ido-use-mycompletion-depth boundp ido-completing-read minibuffer-depth] 2])
(defvar ido-trace-enable nil)
(defalias 'ido-trace #[(p &optional s retval) "\203#\306\307!	\212\214\nq\210\310\f;\203\f\202\311\312\f\"\313\261\210,
\207" [ido-trace-enable deactivate-mark b p s retval get-buffer-create " *IDO Trace*" ": " format "%S" "\n"] 5])
(defalias 'ido-toggle-trace #[(arg) "\206	?\211\203\304\305!\210\306\307!\211\205*	\203!\310\n!\202*\311\n\312\211#\210\312\211)\207" [arg ido-trace-enable b truncate-lines message "IDO trace on" get-buffer " *IDO Trace*" kill-buffer pop-to-buffer t] 5 nil "P"])
#@30 Tell if FILE exists locally.
(defalias 'ido-local-file-exists-p #[(file) "\302\303	!)\207" [file-name-handler-alist file nil file-exists-p] 2 (#$ . 28791)])
#@32 Return list of UNC host names.
(defalias 'ido-unc-hosts #[(&optional query) "<\203	\202<	<\203	\202<\n\203/\306!\203/\307\310\311\312\313#!\210 \307\314!\210	\202<\n\2039\314\211\202<\306!\n\203\241\f\314\211\211\211\203\232@A\205a\203\202@A\315
\"\203c\314\211\202c\203O\f\203\220\227B\202O\316\317\"-)\207" [ido-unc-hosts ido-unc-hosts-cache query hosts ido-downcase-unc-hosts re fboundp message propertize "Searching for UNC hosts..." face highlight nil string-match sort string< re-list host res case-fold-search ido-process-ignore-lists ido-ignore-unc-host-regexps] 6 (#$ . 28955)])
#@60 Query network for list of UNC host names using `NET VIEW'.
(defalias 'ido-unc-hosts-net-view #[nil "\302\303\304!r	q\210\305\216\306\307\310\"\210eb\210\311\312\302\310#\203%\313\314!B\202+)\207" [hosts #1=#:temp-buffer nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) shell-command "net view" t re-search-forward "^\\\\\\\\\\([[:graph:]]+\\)" match-string 1] 4 (#$ . 29628)])
(defalias 'ido-is-tramp-root #[(&optional dir) "\205\f\303\304	\206\n\"\207" [ido-enable-tramp-completion dir ido-current-directory string-match "\\`/[^/]+[@:]\\'"] 3])
(defalias 'ido-is-unc-root #[(&optional dir) "\302 \205\f\206\n	\303\230\207" [dir ido-current-directory ido-unc-hosts "//"] 2])
(defalias 'ido-is-unc-host #[(&optional dir) "\302 \205
\303\304\206\f	\"\207" [dir ido-current-directory ido-unc-hosts string-match "\\`//[^/]+/\\'"] 3])
(defalias 'ido-is-root-directory #[(&optional dir) "\206	\211\304\230\206%\n\305>\203\306\307\"\206%\203!\310!\207\306\311\"\207" [dir ido-current-directory system-type ido-enable-tramp-completion "/" (windows-nt ms-dos) string-match "\\`[a-zA-Z]:[/\\]\\'" ido-is-tramp-root "\\`/[^:/][^:/]+:\\'"] 4])
(defalias 'ido-is-ftp-directory #[(&optional dir) "\303\203	\304\202\n\305	\206\n\"\207" [ido-enable-tramp-completion dir ido-current-directory string-match "\\`/[^/:][^/:]+:" "\\`/[^/:][^/:]+:/"] 3])
(defalias 'ido-is-slow-ftp-host #[(&optional dir) "\204	\205K\n\206
\211\205K\306\f\203\307\202\310\n\"\205K\n\311\224\311\225O\211\235\206J	\211\n\203G\306\n@
\"\204G\nA\211\n\2045\n))\207" [ido-slow-ftp-hosts ido-slow-ftp-host-regexps dir ido-current-directory ido-enable-tramp-completion host string-match "\\`/\\([^/]+[@:]\\)*\\([^@/:][^@/:]+\\):" "\\`/\\([^/:]*@\\)?\\([^@/:][^@/:]+\\):/" 2 re] 4])
(defalias 'ido-time-stamp #[(&optional time) "\206\301 \211@\302_A@\\\303\245\207" [time current-time 65536.0 3600.0] 3])
(defalias 'ido-cache-ftp-valid #[(&optional time) "\247\205\302V\205	?\206\303 	ZW\207" [ido-cache-ftp-work-directory-time time 0 ido-time-stamp] 2])
(defalias 'ido-cache-unc-valid #[(&optional time) "\247\205\302V\205	?\206\303 	ZW\207" [ido-cache-unc-host-shares-time time 0 ido-time-stamp] 2])
(defalias 'ido-may-cache-directory #[(&optional dir) "\206	\304!\203\n\204\305>\203\306\207\307!\203!\310 \207\311!\203*\312 \207\313!\2032\306\207\314\207" [dir ido-current-directory ido-enable-tramp-completion system-type ido-is-root-directory (windows-nt ms-dos) nil ido-is-unc-host ido-cache-unc-valid ido-is-ftp-directory ido-cache-ftp-valid ido-directory-too-big-p t] 2])
(defalias 'ido-pp #[(list &optional sep) "\306\211\211\211\307\310\f!\311\261\210\fJ\f\203Y\f@\211:\203$
@\202%
\211;\2037G\312U\2037\306\203A\313
p\"\210\fA\211\203U\203U\206S\314c\210*\202\315c,\207" [eval-expression-print-length print-length eval-expression-print-level print-level list elt nil "\n;; ----- " symbol-name " -----\n(\n " 0 prin1 "\n " "\n)\n" s sep] 5])
#@58 Save ido history and cache information between sessions.
(defalias 'ido-save-history #[nil "\205A	\205A\306\307!\310\311\216rq\210\312 \210\313c\210\314\315\300!\210\315\316!\210\315\317!\210\315\320\321\"\210
<\2039\315\305!\210\202<\322c\210\323	\324\",\207" [ido-last-directory-list ido-save-directory-list-file version-control buf buffer-file-coding-system ido-unc-hosts-cache get-buffer-create " *ido session*" never ((kill-buffer buf)) erase-buffer ";;; -*- coding: utf-8 -*-\n" utf-8 ido-pp ido-work-directory-list ido-work-file-list ido-dir-file-cache "\n\n " "\n;; ----- ido-unc-hosts-cache -----\nt\n" write-file nil] 3 (#$ . 32737) nil])
#@117 Load ido history and cache information from previous session.
With prefix argument, reload history unconditionally.
(defalias 'ido-load-history #[(&optional arg) "\204\f	\2030\n\2040\305	!\306\307\f!\203/\310\311!\312\216rq\210\313 \210\314\f!\210\306\315\316\217\210**\317 \207" [arg ido-save-directory-list-file ido-last-directory-list buf file expand-file-name nil file-readable-p get-buffer-create " *ido session*" ((kill-buffer buf)) erase-buffer insert-file-contents (byte-code "\305p!\305p!\305p!\305p!\305p!\305\207" [ido-last-directory-list ido-work-directory-list ido-work-file-list ido-dir-file-cache ido-unc-hosts-cache read] 2) ((error)) ido-wash-history] 3 (#$ . 33402) "P"])
#@99 Clean-up ido history and cache information.
Removes badly formatted data and ignored directories.
(defalias 'ido-wash-history #[nil "<\2050\306\211\203-\n@:\203&\n@@;\203&\n@A;\203&\n@	B\nA\211\204
	\237*<\205^\306\211\203[\n@;\203T\f\204O\307\n@!\204T\n@	B\nA\211\204>	\237*
<\205\201
\306\211\203~\n@;\203w\n@	B\nA\211\204l	\237*<\205_
\306\211\203\\
\n@<\203U
\n@G\310V\203U
\n@@\n@A@\n@AA\211;\205L
:\205L
@\250\203\344@\311U?\205L
A@\250\205L
A@\311U?\205L
\312!\202!
@\313=\203
A\247\205L
\307!\205L
\314A!\202!
@\315=\203 
A\247\205L
\316!\205L
\317A!\202!
\306\205L
\320\203I
@;\203@
A\211\202-
\306\211\202+
*+\203U
\n@	B\nA\211\204\221	\237*\203\201
\321!\306\203\200
\322@!\210A\211\204q
)\306\n\203\254
\n@\nA\323\311@G\306@$\210\323\311AG\306A$\210\202\206
*\306\n\203\312
\n@\nA\323\311G\306$\210\202\262
*
\306\n\203\350
\n@\nA\323\311G\306$\210\202\320
*\306\211\n\205%\n@\nA<\203\362
\203\362
@A:\204\323\311G\306$\210\202+\207" [ido-last-directory-list r l ido-work-directory-list ido-record-ftp-work-directories ido-work-file-list nil ido-is-ftp-directory 2 0 ido-may-cache-directory ftp ido-cache-ftp-valid unc ido-is-unc-host ido-cache-unc-valid t reverse ido-record-work-directory set-text-properties ido-dir-file-cache files time dir ok s dirs e d] 6 (#$ . 34112) nil])
(defalias 'ido-kill-emacs-hook #[nil "\300 \207" [ido-save-history] 1])
(defalias 'ido-common-initialization #[nil "\300 \210\301\302\303\"\210\301\304\305\"\207" [ido-init-completion-maps add-hook minibuffer-setup-hook ido-minibuffer-setup choose-completion-string-functions ido-choose-completion-string] 3])
#@268 Non-nil if Ido-Everywhere mode is enabled.
See the command `ido-everywhere' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `ido-everywhere'.
(custom-declare-variable 'ido-everywhere nil '(#$ . 35906) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'ido :type 'boolean)
#@206 Toggle use of Ido for all buffer/file reading.
With a prefix argument ARG, enable this feature if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.
(defalias 'ido-everywhere #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\302\312N\203%\302\312N@\313\302\312\314#\210\302\315N\2036\302\315N@\313\302\315\314#\210\n\203Z
\316>\203J\313\302\312\314B#\210\317
\320>\203Z\313\302\315\f\314B#\210\321\322\323\n\203d\324\202e\325\"\210\326\327!\203\212\330\302!\210\306 \203}\306 \232\203\212\331\332\n\203\207\333\202\210\334\"\210)\335 \210\n\207" [#1=#:last-message arg ido-everywhere read-file-name-function read-buffer-function ido-mode current-message toggle prefix-numeric-value 0 file put nil buffer (both file) ido-read-file-name (both buffer) ido-read-buffer run-hooks ido-everywhere-hook ido-everywhere-on-hook ido-everywhere-off-hook called-interactively-p any customize-mark-as-set message "Ido-Everywhere mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 36334) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [ido-everywhere-map add-minor-mode ido-everywhere nil boundp] 6)
(defvar ido-minor-mode-map-entry nil)
#@459 Toggle ido mode on or off.
With ARG, turn ido-mode on if arg is positive, off otherwise.
Turning on ido-mode will remap (via a minor-mode keymap) the default
keybindings for the `find-file' and `switch-to-buffer' families of
commands to the ido versions of these functions.
However, if ARG arg equals 'files, remap only commands for files, or
if it equals 'buffers, remap only commands for buffer switching.
This function also adds a hook to the minibuffer.
(defalias 'ido-mode #[(&optional arg) "\204
	?\205B\305\202B\306=\203\305\202B\307=\203!\310\202B\311=\203+\312\202B\313>\2035\202B\314!\315V\203A\305\202B\316\302\n\203L\317\202M\320!\210	\203\350\321 \210\322 \210\323\324\325\"\210\326 	\327>\203\251\330\331\332#\210\330\333\334#\210\330\335\336#\210\330\337\340#\210\330\341\342#\210\330\343\344#\210\330\345\346#\210\330\347\350#\210\330\351\352#\210\330\353\354#\210\330\355\356#\210	\357>\203\323\330\360\361#\210\330\362\363#\210\330\364\365#\210\330\366\367#\210\330\370\371#\210\330\372\373#\210\f\203\336\f\241\210\202\347\301B\374\375\f\"\210)\376\377!\205
\201@\201A	\203\376\201B\202

\201C\"\207" [arg ido-mode ido-everywhere map ido-minor-mode-map-entry both t files file buffers buffer (file buffer both) prefix-numeric-value 0 nil 1 -1 ido-common-initialization ido-load-history add-hook kill-emacs-hook ido-kill-emacs-hook make-sparse-keymap (file both) define-key [remap find-file] ido-find-file [remap find-file-read-only] ido-find-file-read-only [remap find-alternate-file] ido-find-alternate-file [remap write-file] ido-write-file [remap insert-file] ido-insert-file [remap list-directory] ido-list-directory [remap dired] ido-dired [remap find-file-other-window] ido-find-file-other-window [remap find-file-read-only-other-window] ido-find-file-read-only-other-window [remap find-file-other-frame] ido-find-file-other-frame [remap find-file-read-only-other-frame] ido-find-file-read-only-other-frame (buffer both) [remap switch-to-buffer] ido-switch-buffer [remap switch-to-buffer-other-window] ido-switch-buffer-other-window [remap switch-to-buffer-other-frame] ido-switch-buffer-other-frame [remap insert-buffer] ido-insert-buffer [remap kill-buffer] ido-kill-buffer [remap display-buffer] ido-display-buffer add-to-list minor-mode-map-alist called-interactively-p any message "Ido mode %s" "enabled" "disabled"] 4 (#$ . 37603) "P"])
#@46 Set up the completion keymaps used by `ido'.
(defalias 'ido-init-completion-maps #[nil "\306 \307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210\307\320\321#\210\307\322\323#\210\307\324\325#\210\307\326\327#\210\307\330\331#\210\307\332\333#\210\307\334\333#\210\307\335\331#\210\307\336\337#\210\307\340\341#\210\307\342\343#\210\307\344\345#\210\307\346\343#\210\307\347\333#\210\307\350\331#\210\307\351\352#\210\307\353\354#\210\307\355\356#\210\307\357\360#\210\361	\"\210)\306 \307\362\363#\210\307\364\365#\210\307\366\367#\210\307\370\371#\210\307\372\373#\210\307\374\375#\210\307\376\377#\210\307\201@\201A#\210\307\201B\201A#\210\307\201C\201A#\210\307\201D\201E#\210\307\201F\201G#\210\307\201H\201I#\210\307\201J\201K#\210\307\201L\201M#\210\307\201N\201O#\210\307\201P\201Q#\210\307\201R\201S#\210\307\201T\201U#\210\307\201V\377#\210\307\201W\201X#\210\307\201Y\201Z#\210\307\201[\375#\210\307\201\\\201]#\210\361\n\"\210)\306 \307\201^\201_#\210\307\201`\201a#\210\307\201b\201c#\210\307\201d\201e#\210\361\"\210)\306 \307\364\201f#\210\307\362\365#\210\307\201^\201g#\210\307\201`\201h#\210\361\n\"\210\211)\207" [map minibuffer-local-map ido-common-completion-map ido-file-dir-completion-map ido-file-completion-map ido-buffer-completion-map make-sparse-keymap define-key "
" ido-toggle-ignore "" ido-toggle-case "" ido-edit-input "	" ido-complete " " ido-complete-space "\n" ido-select-text "
" ido-exit-minibuffer "" ido-toggle-prefix "" ido-prev-match "" ido-next-match [67108910] [67108908] "" ido-toggle-regexp "" ido-undo-merge-work-directory [(control 32)] ido-restrict-to-matches [(meta 32)] ido-take-first-match [(control 64)] [right] [left] "?" ido-completion-help "" ido-magic-backward-char "" ido-magic-forward-char "" ido-magic-delete-char set-keymap-parent "" ido-enter-switch-buffer "" ido-fallback-command "" ido-enter-dired [down] ido-next-match-dir [up] ido-prev-match-dir [(meta up)] ido-prev-work-directory [(meta down)] ido-next-work-directory [backspace] ido-delete-backward-updir "" [remap delete-backward-char] [remap backward-kill-word] ido-delete-backward-word-updir [(control backspace)] ido-up-directory "\f" ido-reread-directory [(meta 100)] ido-wide-find-dir-or-delete-dir [(meta 98)] ido-push-dir [(meta 118)] ido-push-dir-first [(meta 102)] ido-wide-find-file-or-pop-dir [(meta 107)] ido-forget-work-directory [(meta 109)] ido-make-directory [(meta 110)] [(meta 111)] ido-prev-work-file [(meta control 111)] ido-next-work-file [(meta 112)] [(meta 115)] ido-merge-work-directories "" ido-delete-file-at-head "" ido-copy-current-word "" ido-copy-current-file-name [(meta 108)] ido-toggle-literal ido-enter-find-file ido-kill-buffer-at-head ido-toggle-virtual-buffers] 4 (#$ . 40033)])
#@30 Set up the keymap for `ido'.
(defalias 'ido-setup-completion-map #[nil "\306 \307\300!\205		\203\310\n\311\312#\210\313>\203T\f\203+\310\n\314\f#\210\310\n\315\312#\210	\203A\310\n\316\317#\210\310\n\320\317#\210\310\n\321\322#\210\323\n\324=\203M
\202O\"\210\202s\325=\203m\f\203d\310\n\326\f#\210\323\n\"\210\202s\323\n\"\210\n\211*\207" [viper-mode viper-p map ido-cur-item ido-context-switch-command ido-file-completion-map make-sparse-keymap boundp define-key [remap viper-intercept-ESC-key] ignore (file dir) "" "" [remap viper-backward-char] ido-delete-backward-updir [remap viper-del-backward-char-in-insert] [remap viper-delete-backward-word] ido-delete-backward-word-updir set-keymap-parent file buffer "" ido-file-dir-completion-map ido-buffer-completion-map ido-common-completion-map ido-completion-map] 4 (#$ . 42927)])
(defalias 'ido-final-slash #[(dir &optional fix-it) "\302!\303\304\"\203
\207\305!\203\207	\203\306P\207\307\207" [dir fix-it ido-name string-match "/\\'" ido-is-tramp-root "/" nil] 3])
(defalias 'ido-no-final-slash #[(s) "GS\211\302V\203	H\303=\203\302	O\202)\207" [s l 0 47] 4])
(defalias 'ido-nonreadable-directory-p #[(dir) "\302\303	!\205\304	!?\205\305	!\205\306	!?)\207" [ido-enable-tramp-completion dir nil ido-final-slash ido-is-unc-host file-directory-p file-readable-p] 2])
(defalias 'ido-directory-too-big-p #[(dir) "\303	\247\205#\304\n!\205#\305\n!?\205#\306\n!\205#\307\310\311\n!!8	V)\207" [ido-enable-tramp-completion ido-max-directory-size dir nil ido-final-slash ido-is-unc-host file-directory-p 7 file-attributes file-truename] 4])
(defalias 'ido-set-current-directory #[(dir &optional subdir no-merge) "\203\306\307	\"\204\310	\311\"\312?
\203-	
P\203(\306\307	\"\204-\310	\311\"\203>\313!\203>\314!\210	\232\203G\312\207\315	!\203]\316\317	\"\210	\312\211\311\207\316\320	\"\210	\203v\313!\203v\314!\210\321	!\211?\205\203\322	!\311\207" [ido-enable-tramp-completion dir ido-use-merged-list no-merge ido-try-merged-list subdir string-match "\\`/[^/]*@\\'" ido-final-slash t nil get-buffer kill-buffer ido-is-unc-root ido-trace "unc" "cd" ido-nonreadable-directory-p ido-directory-too-big-p ido-completion-buffer ido-current-directory ido-directory-nonreadable ido-directory-too-big] 4])
(defalias 'ido-set-current-home #[(&optional dir) "\301\302\206\303!!\207" [dir ido-set-current-directory expand-file-name "~/"] 3])
(defalias 'ido-record-command #[(command arg) "\205	\nD\f\203\f@\232?\205\fB\211)\207" [ido-record-commands command arg cmd command-history] 2])
(defalias 'ido-make-prompt #[(item prompt) "\306>\203\346	\203\346\307	!\n\203 \310\n!\203 \311\312 \n_!\202!\n\313\303!\205,\205,\314\f\2056
?\2056\315\316\316\203\206@:\203}\317@@\"\203}@A;\203t\320@A\321\316$\202{@A!A\211\204M)\322\323!\210 \206\223\324\206\231\324\206\237\324G!\203\336\325V\203\336!V\203\336[\316O\"\317\326\"\"#\327#\203\327\"#\316O\202\331\"P*\202\340)\260.\207 \207" [item ido-current-directory ido-max-file-prompt-width ido-find-literal ido-saved-vc-hb vc-handled-backends (file dir) abbreviate-file-name floatp floor frame-width boundp "(literal) " "[-VC] " nil string-match replace-match t run-hooks ido-rewrite-file-prompt-functions "" 0 "/" "..." ido-rewrite-file-prompt-rules rule prefix vc-off literal max-width dirname case-fold-search prompt l s i] 9])
#@333 Perform the `ido-read-buffer' and `ido-read-file-name' functions.
Return the name of a buffer or file selected.
PROMPT is the prompt to give to the user.
DEFAULT if given is the default item to start with.
If REQUIRE-MATCH is non-nil, an existing file must be selected.
If INITIAL is non-nil, it specifies the initial input string.
(defalias 'ido-read-internal #[(item prompt hist &optional default require-match initial) "p\306\307\306\307\211\211\211\211\211\211\211\211\211\306\307	\n\307@ABCDEF1GHIJKLMN\310 \210OP\307Q\311\312!\2101\204\337\313\314P\"\210\307R\306S\307T\315UJ\203\315\316=\203}\317V!\203x\320V!\202\260V\202\260V;\203\225\321>\203\220\322V!\202\260V\202\260\323=\205\260W\205\260\324XY\"\211Z\205\257ZA)\211I[\235\203\274\307I\313\325I\"\210I\203\312\326\\\307JK\203\325\307LA\203\257
@\327>\203\257
B\204\257
ED]\330PA\331=@\332=#^_`a\313\333^\"\210^\204Y
@\332=\203:
\315Xa`_\257\307\211ED\307]\306BA\331=\2052
\331@\307A\202\256
aE`D_]\306BA\331=\205Q
\331@\307A\202\256
^\306=\203f
\307A\202\256
^\334=\203v
\306@\307A\202\256
PXa`_\257\335^@A@!\210\336P!\203\225
\315P^E\307D^]\307S\306\211BA\313\337\306\"\210,B\203\275
\307\211BS\202N\323=\203\334
\307Db?\205\327
c?\205\327
\340I!E\202N\341=\203\373
\307Db?\205\366
c?\205\366
\342I!E\202N\316=\203\307D\343I!E\202N\344=\203\307D\345I!E\307CK\203,\306L\307K\346 \210]\203>@\331=\203>\306@d\206K\347\350!\205K(\306e\351 T\307\211fghij(\307R\352\353\215G.\313\354G\"\210k\203\200\355k!\203\200\356k!\210\313\357R\"\210R\360=\203\242A\331=\203H\334 \203H\307A\306B\202HR\361=\203\266\3061UH\307R\202HR\362>\203AN\363>\2034\307lR\364=4XZPm\306n\315Pn\20304\203\354\307\365\366\217\202\356mn\367n!\206\370\370Z\322n!m\3064\371Z!\204\372\373\374Z\"!\203\333\307\375\376\217\203\333\335Z\307R\377=#\210mP\307\211n\204\340-\202H\307\201t\201u\217P\202HR\201v=\203P\306B\202HR\201w>\203`\306\2111\202JR\201x>\203\333\201y \203\231\201z\201{X\"\203H\201|\201}X\"P\335\201|\201~X\"!\210\306J\202H\201 \204HR\201\200=\203\311NUBQBQ\341N\322X\326\201\201O!P\313\201\202Q\"\210\335\367X\326\201\201O!!\210\306J\202HR\201\203=\203\f\313\201\204Q\"\210Q@oQAQ\335XUP!\210o@NoAP)\202HR\201\205=\203B\313\201\206Q\"\210Q\203HQ@oQAQ\335XUP!\210o@NoAP)\202e\203se\201\207>\204sc\203a\201\210XGP!\202e\201\211 \204s\201\212\201\213!\210\202HR\201\214=\204\201]\204\206G\202\215\201\215]@!H\201\216>\203\236\306\2111\202JH\201\217\230\204HH\201\220\230\203\311\201 \204\303\335\367X\326\201\201O!!\210\306J\202H\201zp\203\327\201\221\202\332\201\222H\"\203\201 \203\201\223H!\204\335XH\"\210\313\201\224H\"\210\201\225 \203\201\226R\306\2111\202J\306J\202H\201z\201\227H\"\2049q\201\230>\203F\201z\201\231H\"\203F\335\367H!!\210\306J\202H\201z\201\232H\"\203\\\201\233H!\210\202H\336H!\203\330W\203\210\324XY\"\211r\203}rH\241\210\202\207XHBYBY)\335XH\"\210Q\203\322\307oQ@\211o\203\316\201\210XoAP!\203\316QA\211Q\203\301\335XoA\"\210\202\306oAPo@N\202\227)\202H\306J\202H\306\2111\203M\201\234s:\203\364s@\206
\201\235\202
s\203\376s\202
\201\235H\"\210H.\207" [item ido-case-fold ido-enable-prefix ido-enable-regexp ido-show-confirm-message ido-pre-merge-state t nil ido-setup-completion-map run-hooks ido-setup-hook ido-trace "\n_LOOP_" "" buffer bufferp buffer-name (file dir) file-name-nondirectory file assoc "new default" 0 (t wide) ido-make-merged-file-list auto wide "merged" input-pending-p ido-set-current-directory ido-final-slash "Merged" ido-make-file-list dir ido-make-dir-list ido-make-buffer-list list ido-make-choice-list ido-set-matches boundp max-mini-window-height minibuffer-depth ido (byte-code "\305\306	\"\n\307\307\f%\207" [item prompt ido-text-init ido-completion-map hist read-from-minibuffer ido-make-prompt nil] 6) "read-from-minibuffer" get-buffer kill-buffer "\n_EXIT_" refresh done (edit chdir) (file dir) edit (byte-code "\303\304P\305	!	\nP\306\n%\207" [prompt d f read-file-name "[EDIT] " expand-file-name nil] 6) ((quit (concat d f))) file-name-directory "/" file-directory-p yes-or-no-p format "Create directory %s? " (byte-code "\301\302\"\210\302\207" [d make-directory t] 3) ((error (byte-code "\300\301!\210\302\303!\210\304\207" [message "Could not create directory" sit-for 1 nil] 2))) chdir ido-try-merged-list ido-use-merged-list ido-keep-item-list ido-rotate-temp ido-ignored-list ido-cur-list icomplete-mode ido-final-text ido-selected ido-default-item ido-set-default-item ido-process-ignore-lists-inhibit ido-process-ignore-lists ido-entry-buffer ido-cur-item initial ido-text-init ido-input-stack ido-exit ido-rescan ido-rotate ido-text default ido-enable-last-directory-history ido-current-directory ido-last-directory-list d ido-ignore-item-temp-list ido-initial-position ido-matches l omat oign olist ido-directory-nonreadable ido-directory-too-big ido-max-window-height require-match history-add-new-input show-paren-mode ido-use-mycompletion-depth ido-require-match ido-completing-read ido-completion-buffer read-file-name-function f new elt ido-enable-tramp-completion system-type x hist (byte-code "\302\303P	\"\207" [prompt ido-final-text read-string "[EDIT] "] 3) ((quit ido-final-text)) keep (dired fallback find-file switch-to-buffer insert-buffer insert-file) (updir push) ido-is-tramp-root string-match "\\`\\(/\\([^/]+[:@]\\)*\\)\\([^/]+\\)[:@]\\'" match-string 3 1 ido-is-root-directory push -1 "push" pop "pop" pop-all "pop-all" (confirm confirm-after-completion) file-exists-p ido-existing-item-p error "Must specify valid item" takeprompt ido-name (buffer list) "./" "../" ".[:@]\\'" ".:\\'" ido-local-file-exists-p "tramp prefix" ido-is-slow-ftp-host fallback "[/\\][^/\\]" (windows-nt ms-dos) "\\`[a-zA-Z]:" "\\`~" ido-set-current-home add-to-history minibuffer-history] 22 (#$ . 46469)])
#@137 Edit absolute file name entered so far with ido; terminate by RET.
If cursor is not at the end of the user input, move to end of input.
(defalias 'ido-edit-input #[nil "m\204\304\207\203\305@!\202	\306\307 \207" [ido-matches ido-text ido-text-init ido-exit nil ido-name edit exit-minibuffer] 2 (#$ . 52694) nil])
(defalias 'ido-buffer-internal #[(method &optional fallback prompt default initial switch-cmd) "\204\306\307	\206\310\"\210\311	\206\310!\207\n\312\211\312-..\313 /\314\315#\206.\316\3170/1&2\31234\320=\203]\3215\322>\203P5\202R6\312\211\211\2117&\202b
4\323=\203r\321\324\323\312\325\3127\326&\202b
4\301=\203\221\3128	\206\201\3109\306\3079\"\210\3119!)\202b
2\204\232\312\202b
2G\327U\203\246\312\202b
\3302!\203\331\331\3322\"\2105\324=\203\317\333\3342\"\210\335\212\336\3302!!\210`)!\202b
\33725\340#\202b
.\203\374:\203\374\3412:\"\2113\203\374\337\3423A!5\340#\202b
;\343=\203
/\204
\344\345\3462\"!\204
\312\202b
;\347=\203*
/\204*
\350\3512\"\202b
;\343=\203D
/\204D
\344\345\3462\"!\204D
\312\202b
\331\3322\"\210\3522!2\353\354!\203[
\3542!\210\33725\340#.\207" [ido-mode fallback switch-cmd ido-context-switch-command ido-current-directory ido-directory-nonreadable run-hook-with-args ido-before-fallback-functions switch-to-buffer call-interactively nil confirm-nonexistent-file-or-buffer ido-read-internal buffer "Buffer: " ido-buffer-history find-file ido-file-internal (other-window other-frame) insert-file insert "Insert file: " ido-enter-insert-buffer 0 get-buffer add-to-history buffer-name-history ido-record-command insert-buffer push-mark insert-buffer-substring ido-visit-buffer t assoc find-file-noselect prompt y-or-n-p format "No buffer matching `%s', create one? " never message "No buffer matching `%s'" get-buffer-create fboundp set-buffer-major-mode ido-directory-too-big ido-use-virtual-buffers require-match default initial buf filename ido-exit method ido-default-file-method ido-text read-buffer-function this-command ido-virtual-buffers ido-create-new-buffer] 9])
(defalias 'ido-record-work-directory #[(&optional dir) "\247\205V\306V\205V	\206\n\211\203G	G\306V\203G\307\211\2039	\2039\310
@	\"\2032\307
A\211\204$	\203F	\311	\n\"B\n*\nGV\205VS\n\233\307\241\207" [ido-max-work-directory-list dir ido-current-directory ido-work-directory-list-ignore-regexps case-fold-search items 0 nil string-match delete ido-work-directory-list] 5])
(defalias 'ido-forget-work-directory #[nil "\205\"	\205\"\306	\"\n\205\"\307 \210\310\311\211
\311\f\312 \207" [ido-current-directory ido-work-directory-list ido-use-merged-list ido-exit ido-try-merged-list ido-text delete ido-undo-merge-work-directory refresh t exit-minibuffer ido-text-init ido-rotate-temp] 4 nil nil])
(defalias 'ido-record-work-file #[(name) "\247\205*\303V\205*	\203	@\n\232\204\n\304\n	\"B	GV\205*S	\233\305\241\207" [ido-max-work-file-list ido-work-file-list name 0 delete nil] 4])
(defalias 'ido-expand-directory #[(dir) "\302\303\206	!\304\"\207" [dir default-directory ido-final-slash expand-file-name t] 3])
(defalias 'ido-file-internal #[(method &optional fallback default prompt item initial switch-cmd) "\204\306\307	!\n\310\211\211@AB\203\311 \203&\312\313C\2025\314A!\211?\2054\315A!\306=\203\277D\204EE\203\277\310\211FG\316\317!\210D\203mH\203m\320\321 \206a\322 !\203m\317C\312\202\276E\203\276E\323=\203~\324 \202\200\325 \211G\203\276\326\327G\"\204\276\330G!I\331I!\203\242\332I!\202\246\333I!\211F)\203\276\331F!\203\276FA\334G!J*\310\335\336!\205\310\337\211\310KLMN\204\372N\312O\340P\206\350\341\342Q\343=\205\362R\344 J&)C\313=\203
A\310ST\206
\345U\346\347U\"\210\350U!*\2023C\351=\203=
\352Q\353>\2032
Q\2024
V\310\211\211W%\2023C\354=\203Q
\352\355\354\356\310W\357&\2023C\360=\203|
Q\361=\203c
\362\202o
Q\363=\203n
\364\202o
\360AW\206w
\365P!\2023C\317=\203\210
\366 \2023Q\343=\203\240
\367!\210AT\370 \210\371!\2023Q\372>\203i\373\232\203\257
\365\374AP\312\"\211X\375\337O\331X!\203\331
\376QX\"\210\370X!\210QX!\202e\331A!\203^\377!\203	\376QA\"\210\370 \210QA!\210Q\360=\205e\201Y\330!!\202e\326\201Z\"\203*APX\376QX\"\210\370 \210QX!\202e\201[\201\\\201]\"!\203T\376QX\"\210\370X!\210\201^X!\210QX!\202e\376\201_X\"\202e\201`\201a!*\2023Q\201b=\203\233\367!\210ATAP\376\201c\"\210\201d\201e\"\210\370 \210\201c\312\"\2023Q\201f=\203\303\367!\210AP\376\"\210\370 \210\346\347\"\210!\2023Q\355=\203\367!\210AP\376K\203\337\201g\202\342\201h\"\210\201d\201e\"\210\370 \210\201iK\203\201j\202\201k\"\2023\2053\367!\210AP\376\345\"\210\201d\201e\"\210\370 \210\201l\201m\310K#Q\".\n\207" [item default switch-cmd filename ido-directory-too-big ido-directory-nonreadable file ido-expand-directory nil ido-is-slow-ftp-host t fallback ido-nonreadable-directory-p ido-directory-too-big-p require ffap ffap-fixup-url ffap-url-at-point ffap-gopher-at-point guess ffap-guesser ffap-string-at-point string-match "^http:/" expand-file-name file-directory-p file-name-as-directory file-name-directory file-name-nondirectory boundp vc-handled-backends -1 ido-read-internal "Find file: " ido-file-history alt-file confirm-nonexistent-file-or-buffer find-file run-hook-with-args ido-before-fallback-functions call-interactively switch-to-buffer ido-buffer-internal (other-window other-frame) insert-buffer insert "Insert buffer: " ido-enter-insert-file dired other-window dired-other-window other-frame dired-other-frame "" find-file-at-point ido-record-work-file ido-record-work-directory find-alternate-file (dired list-directory) "." ido-final-slash 0 ido-record-command file-exists-p ido-context-switch-command ido-current-directory ido-mode ido-exit ido-use-url-at-point ido-use-filename-at-point d fn ffap-url-regexp absolute-fn initial ido-find-literal ido-work-file-index ido-work-directory-index ido-saved-vc-hb minibuffer-completing-file-name prompt method buffer-file-name read-file-name-function default-directory this-command ido-default-buffer-method ido-text dirname dired-goto-file "[[*?]" y-or-n-p format "Directory %s does not exist.  Create it? " make-directory-internal make-directory error "No such directory" write write-file add-to-history file-name-history read-only insert-file-literally insert-file insert-file-1 insert-file-contents-literally insert-file-contents ido-visit-buffer find-file-noselect] 8])
(defalias 'ido-existing-item-p #[nil "??\207" [ido-matches] 1])
(defalias 'ido-set-common-completion #[nil "\305\211\n\203#\204#\f;\203#\fG\306V\203#\307\n\f\"\211\203#)\207" [val ido-common-match-string ido-matches ido-enable-regexp ido-text nil 0 ido-find-common-substring] 4])
#@62 Try and complete the current pattern amongst the file names.
(defalias 'ido-complete #[nil "\306	\206\355\n\307>\203\\\310\311\"\203\\\312\fP!\313\314
!!\204'\315\316!\202X\317
!\2034\320
!\210\202S\314
!\206;\321\322
!\317!\203R\320!\210*\323\324 )\202\355 \203o\306 \323\324 \202\355!\204\203\"\205\355\325#\211$!\202\355!G\326U\203\310%\203\241\f\321\230\203\241\310\327\330!@!\"\204\310\331\330!@!!\204\310&\204\265\324 \202\355'?(\332 `|\210\330!@!c\202\355)\211\333>\204\346\232\204\346'?(\332 `|\210c\202\355\325#\211$!)\207" [res ido-incomplete-regexp ido-cur-item ido-text ido-current-directory evar nil (file dir) string-match "[$]" substitute-in-file-name file-exists-p file-name-directory message "Expansion generates non-existing directory name" file-directory-p ido-set-current-directory "/" file-name-nondirectory refresh exit-minibuffer call-interactively 1 ".[@:]\\'" ido-name ido-local-file-exists-p minibuffer-prompt-end (t nil) f d ido-text-init ido-exit ido-directory-too-big ido-matches ido-completion-buffer ido-cannot-complete-command this-command ido-enable-tramp-completion ido-confirm-unique-completion ido-enable-prefix ido-rescan ido-common-match-string] 5 (#$ . 59655) nil])
#@56 Try completion unless inserting the space makes sense.
(defalias 'ido-complete-space #[nil ";\203Q	;\203QG	GV\203	GH\306U\202K\n\203J\307\310	!\311P\n\203E\312\f\313@!\"\203>\307\314\202)A\211\204-
+\202K\307\203Q\311c\207\315 \207" [ido-common-match-string ido-text ido-matches comp re insert-space 32 nil regexp-quote " " string-match ido-name t ido-complete] 5 (#$ . 60938) nil])
#@116 Undo or redo last ido directory merge operation.
If no merge has yet taken place, toggle automatic merging option.
(defalias 'ido-undo-merge-work-directory #[(&optional text try refresh) "\2034\306A@!\210	\206@\3078\3108\3118\312?\312\313\312\314 \207	\203:\312\207\203D\312\211\207
\203M\315\211\207?\205U\316 \207" [ido-pre-merge-state text ido-text-init ido-cur-list ido-ignored-list ido-matches ido-set-current-directory 2 3 4 nil refresh exit-minibuffer t ido-merge-work-directories ido-use-merged-list try ido-try-merged-list ido-keep-item-list ido-rescan ido-exit] 2 (#$ . 61352) nil])
#@317 Move forward in user input or perform magic action.
If no user input is present, or at end of input, perform magic actions:
C-x C-b ... C-f  switch to `ido-find-file'.
C-x C-f ... C-f  fallback to non-ido `find-file'.
C-x C-d ... C-f  fallback to non-ido brief `dired'.
C-x d ... C-f    fallback to non-ido `dired'.
(defalias 'ido-magic-forward-char #[(arg) "\204m\204\303!d`Z^u\207	\304>\203\305 \207\n\203\"\306\n!\207	\307=\205*\310 \207" [arg ido-cur-item ido-context-switch-command prefix-numeric-value (file dir) ido-fallback-command call-interactively buffer ido-enter-find-file] 3 (#$ . 61992) "P"])
#@313 Move backward in user input or perform magic action.
If no user input is present, or at start of input, perform magic actions:
C-x C-f C-b  switch to `ido-switch-buffer'.
C-x C-d C-b  switch to `ido-switch-buffer'.
C-x d C-b    switch to `ido-switch-buffer'.
C-x C-b C-b  fallback to non-ido `switch-to-buffer'.
(defalias 'ido-magic-backward-char #[(arg) "\204`\305 V\203\306!`\305 Z^[u\207	\n=\203*\307>\205)o?\205=\310 \207\311=\2033\312 \207\f\203;\313\f!\207\314 \207" [arg last-command this-command ido-cur-item ido-context-switch-command minibuffer-prompt-end prefix-numeric-value (file dir) ido-push-dir buffer ido-fallback-command call-interactively ido-enter-switch-buffer] 3 (#$ . 62617) "P"])
#@163 Delete following char in user input or perform magic action.
If at end of user input, perform magic actions:
C-x C-f ... C-d  enter `dired' on current directory.
(defalias 'ido-magic-delete-char #[(arg) "\204m\204\303\304!d`Z^!\207	\203\305\207\n\306>\205 \307 \207" [arg ido-context-switch-command ido-cur-item delete-char prefix-numeric-value nil (file dir) ido-enter-dired] 4 (#$ . 63341) "P"])
#@38 Toggle the value of `ido-case-fold'.
(defalias 'ido-toggle-case #[nil "?\302\211\207" [ido-case-fold ido-rescan t] 2 (#$ . 63754) nil])
#@42 Toggle the value of `ido-enable-regexp'.
(defalias 'ido-toggle-regexp #[nil "?\302\211\207" [ido-enable-regexp ido-rescan t] 2 (#$ . 63899) nil])
#@42 Toggle the value of `ido-enable-prefix'.
(defalias 'ido-toggle-prefix #[nil "?\302\211\207" [ido-enable-prefix ido-rescan t] 2 (#$ . 64054) nil])
#@58 Toggle ignoring files specified with `ido-ignore-files'.
(defalias 'ido-toggle-ignore #[nil "m\204`\305 V\203\305 b\207\203\306\307!\210\310\202	?\n\311\312 \207" [ido-directory-too-big ido-process-ignore-lists ido-text ido-text-init ido-exit minibuffer-prompt-end message "Reading directory..." nil refresh exit-minibuffer] 2 (#$ . 64209) nil])
#@40 Disable version control for this file.
(defalias 'ido-toggle-vc #[nil "\205	\306=\205\n?\205\f\307	\310 \207" [ido-mode ido-cur-item vc-handled-backends ido-saved-vc-hb ido-text ido-text-init file keep exit-minibuffer ido-exit] 2 (#$ . 64574) nil])
#@38 Toggle literal reading of this file.
(defalias 'ido-toggle-literal #[nil "\205	\306=\205\n?\307\310 \207" [ido-mode ido-cur-item ido-find-literal ido-text ido-text-init ido-exit file keep exit-minibuffer] 2 (#$ . 64840) nil])
#@101 Toggle the use of virtual buffers.
See `ido-use-virtual-buffers' for explanation of virtual buffer.
(defalias 'ido-toggle-virtual-buffers #[nil "\205	\306=\205\n?\307\310 \207" [ido-mode ido-cur-item ido-use-virtual-buffers ido-text ido-text-init ido-exit buffer refresh exit-minibuffer] 2 (#$ . 65082) nil])
#@154 Read current directory again.
May be useful if cached version is no longer valid, but directory
timestamp has not changed (e.g. with ftp or on Windows).
(defalias 'ido-reread-directory #[nil "\205\"	\306>\205\"\307 \203\310\202\311!\210\f\310\f\312
\313 \207" [ido-mode ido-cur-item ido-unc-hosts-cache ido-current-directory ido-text ido-text-init (file dir) ido-is-unc-root t ido-remove-cached-dir refresh exit-minibuffer ido-rotate-temp ido-exit] 2 (#$ . 65407) nil])
#@66 Exit minibuffer, but make sure we have a match if one is needed.
(defalias 'ido-exit-minibuffer #[nil "\203\306>\203	\307=\204\n=\204\310\311 \205$
?\205$\312 \207" [ido-require-match ido-cur-item last-command this-command ido-show-confirm-message ido-incomplete-regexp (confirm confirm-after-completion) dir t ido-existing-item-p exit-minibuffer] 2 (#$ . 65895) nil])
#@129 Select the buffer or file named by the prompt.
If no buffer or file exactly matching the prompt exists, maybe create a new one.
(defalias 'ido-select-text #[nil "\301\302 \207" [ido-exit takeprompt exit-minibuffer] 1 (#$ . 66285) nil])
#@49 Fallback to non-ido version of current command.
(defalias 'ido-fallback-command #[nil "G	\304V\203	S\211H\nB\202)\305\306 \207" [ido-text i unread-command-events ido-exit 0 fallback exit-minibuffer] 3 (#$ . 66528) nil])
#@46 Drop into `find-file' from buffer switching.
(defalias 'ido-enter-find-file #[nil "\301\302 \207" [ido-exit find-file exit-minibuffer] 1 (#$ . 66764) nil])
#@52 Drop into `ido-switch-buffer' from file switching.
(defalias 'ido-enter-switch-buffer #[nil "\301\302 \207" [ido-exit switch-to-buffer exit-minibuffer] 1 (#$ . 66927) nil])
#@40 Drop into `dired' from file switching.
(defalias 'ido-enter-dired #[nil "\301\302 \207" [ido-exit dired exit-minibuffer] 1 (#$ . 67107) nil])
#@45 Drop into `insert-buffer' from insert file.
(defalias 'ido-enter-insert-buffer #[nil "\301\302 \207" [ido-exit insert-buffer exit-minibuffer] 1 (#$ . 67256) nil])
#@45 Drop into `insert-file' from insert buffer.
(defalias 'ido-enter-insert-file #[nil "\301\302 \207" [ido-exit insert-file exit-minibuffer] 1 (#$ . 67426) nil])
#@28 Go up one directory level.
(defalias 'ido-up-directory #[(&optional clear) "?\205	\305\306\307 \207" [clear ido-text ido-text-init ido-exit ido-rotate-temp updir t exit-minibuffer] 1 (#$ . 67592) "P"])
#@68 Delete char backwards, or at beginning of buffer, go up one level.
(defalias 'ido-delete-backward-updir #[(count) "\304 `U\203?\205?\305\306!\207	\203$	@\n\230\203$\307\n\310\311O\306\211#\207\312=\2030\313!!\207\314=\2039 \207\315\313![!\207" [count ido-pre-merge-state ido-text this-original-command minibuffer-prompt-end ido-up-directory t ido-undo-merge-work-directory 0 -1 viper-backward-char prefix-numeric-value viper-del-backward-char-in-insert delete-char] 4 (#$ . 67806) "P"])
#@73 Delete all chars backwards, or at beginning of buffer, go up one level.
(defalias 'ido-delete-backward-word-updir #[(count) "\302 `U\203?\205!\303\304!\207	\305=\203	\306!!\207\307\306!!\207" [count this-original-command minibuffer-prompt-end ido-up-directory t viper-delete-backward-word prefix-numeric-value backward-kill-word] 3 (#$ . 68313) "P"])
(defalias 'ido-get-work-directory #[(&optional incr must-match) "G	\306\307
\203
G\306U\203\307
W\203|\f\\T\306V\2039\f
Y\203B\306\202B\f\306W\203B
S\f8\211\203w\n\232\204w\310\n!\203w\203q\311\312=\203j\313\n!\202m\314\n!!\203w
\211\202\307\202\n\203\202\f\n,\207" [ido-work-directory-list ido-work-directory-index dir j i n 0 nil file-directory-p ido-set-matches-1 file ido-make-file-list-1 ido-make-dir-list-1 ido-text must-match incr ido-current-directory ido-cur-item] 5])
#@43 Change to next working directory in list.
(defalias 'ido-prev-work-directory #[nil "\306\307\"\211\205\310	!\210\311\312\313 )\207" [ido-work-directory-match-only dir ido-exit ido-text ido-text-init ido-rotate-temp ido-get-work-directory 1 ido-set-current-directory refresh t exit-minibuffer] 4 (#$ . 69207) nil])
#@47 Change to previous working directory in list.
(defalias 'ido-next-work-directory #[nil "\306\307\"\211\205\310	!\210\311\312\313 )\207" [ido-work-directory-match-only dir ido-exit ido-text ido-text-init ido-rotate-temp ido-get-work-directory -1 ido-set-current-directory refresh t exit-minibuffer] 4 (#$ . 69535) nil])
#@82 Search (and merge) work directories for files matching the current input string.
(defalias 'ido-merge-work-directories #[nil "\306\211\307\306\310 \207" [ido-use-merged-list ido-try-merged-list ido-exit ido-text ido-text-init ido-rotate-temp t refresh exit-minibuffer] 2 (#$ . 69868) nil])
#@76 Prompt for FILE to search for using find, starting from current directory.
(defalias 'ido-wide-find-file #[(&optional file) "\204\f\306\307\310\311\217)G\312V\205 \306\313\314\306\315 \207" [file enable-recursive-minibuffers ido-use-merged-list ido-try-merged-list ido-exit ido-text-init t nil (byte-code "\302\303P	\"\207" [ido-current-directory ido-text read-string "Wide find file: "] 3) ((quit "")) 0 wide refresh exit-minibuffer ido-rotate-temp] 3 (#$ . 70170) nil])
#@75 Prompt for DIR to search for using find, starting from current directory.
(defalias 'ido-wide-find-dir #[(&optional dir) "\204\f\306\307\310\311\217)G\312V\205#\306\313\314\315\306\"\306\316 \207" [dir enable-recursive-minibuffers ido-use-merged-list ido-try-merged-list ido-exit ido-text-init t nil (byte-code "\302\303P	\"\207" [ido-current-directory ido-text read-string "Wide find directory: "] 3) ((quit "")) 0 wide refresh ido-final-slash exit-minibuffer ido-rotate-temp] 3 (#$ . 70662) nil])
#@140 Prompt for DIR to search for using find, starting from current directory.
If input stack is non-empty, delete current directory component.
(defalias 'ido-wide-find-dir-or-delete-dir #[(&optional _dir) "\203\301\302!\207\303 \207" [ido-input-stack ido-delete-backward-word-updir 1 ido-wide-find-dir] 2 (#$ . 71182) nil])
#@40 Use first matching item as input text.
(defalias 'ido-take-first-match #[nil "\205
\303@!\304\305 \207" [ido-matches ido-text-init ido-exit ido-name refresh exit-minibuffer] 2 (#$ . 71511) nil])
#@71 Move to previous directory in file name, push current input on stack.
(defalias 'ido-push-dir #[nil "\301\302 \207" [ido-exit push exit-minibuffer] 1 (#$ . 71717) nil])
#@69 Move to previous directory in file name, push first match on stack.
(defalias 'ido-push-dir-first #[nil "\203	\303@!\304\305 \207" [ido-matches ido-text ido-exit ido-name push exit-minibuffer] 2 (#$ . 71893) nil])
#@93 Pop directory from input stack back to input.
With \[universal-argument], pop all elements.
(defalias 'ido-pop-dir #[(arg) "\205	\203\f\303\202
\304\305 \207" [ido-input-stack arg ido-exit pop-all pop exit-minibuffer] 1 (#$ . 72118) "P"])
(defalias 'ido-wide-find-file-or-pop-dir #[(arg) "\203\302	!\207\303 \207" [ido-input-stack arg ido-pop-dir ido-wide-find-file] 2 nil "P"])
#@48 Prompt for DIR to create in current directory.
(defalias 'ido-make-directory #[(&optional dir) "\204\306\307\310\nP\")G\311V\2052\nP\312!?\2052\313\306\"\210\314!\210\315\316\306\317 \207" [dir enable-recursive-minibuffers ido-current-directory ido-text ido-exit ido-text-init t read-string "Make directory: " 0 file-exists-p make-directory ido-set-current-directory refresh nil exit-minibuffer ido-rotate-temp] 3 (#$ . 72512) nil])
(defalias 'ido-get-work-file #[(incr) "G	\n\\\306\n\307V\203\f
Y\203#\307\202#\f\307W\203#
S\f8\f+\207" [ido-work-file-list ido-work-file-index incr name i n nil 0] 3])
#@43 Change to next working file name in list.
(defalias 'ido-prev-work-file #[nil "\303\304!\211\205\305\306 )\207" [name ido-text-init ido-exit ido-get-work-file 1 refresh exit-minibuffer] 3 (#$ . 73153) nil])
#@47 Change to previous working file name in list.
(defalias 'ido-next-work-file #[nil "\303\304!\211\205\305\306 )\207" [name ido-text-init ido-exit ido-get-work-file -1 refresh exit-minibuffer] 3 (#$ . 73372) nil])
#@83 Insert file name of current buffer.
If repeated, insert text from buffer instead.
(defalias 'ido-copy-current-file-name #[(all) "\306!\206	\307!\211\205\310	!\211\205D\2040\f
=\2040\311	!\232\2030\312\313\n\"\2044\n\202:\n\314\211\224TO\315\316\317 *\207" [ido-entry-buffer bfname name all last-command this-command buffer-file-name buffer-name file-name-nondirectory file-name-directory string-match "\\.[^.]*\\'" 0 refresh nil exit-minibuffer ido-current-directory ido-text-init ido-exit ido-try-merged-list] 4 (#$ . 73596) "P"])
#@67 Insert current word (file or directory name) from current buffer.
(defalias 'ido-copy-current-word #[(_all) "rq\210`\306\211\211
\203\f\307 U\204\307 \202E\310 \210`\306\210`\fb\210\311\312\313#\2035\313u\210`\314\315\n\313#\210	`U\203E\306	\205M\316	`\"-\211\204X\306\202\227\317\320\"\203n\306\321\211\202\222\317\322\"\203\207P\306\321\211\202\222\306\323\211\205\227\324 )\207" [ido-entry-buffer start-name end-line start-line p mark-active nil mark beginning-of-line re-search-backward "[^-_a-zA-Z0-9:./\\~@]" 1 re-search-forward "[-_a-zA-Z0-9:./\\~@]*" buffer-substring-no-properties string-match "\\`[~/]" chdir "/" refresh exit-minibuffer word ido-text-init ido-try-merged-list ido-exit ido-current-directory] 5 (#$ . 74156) "P"])
#@60 Put first element of `ido-matches' at the end of the list.
(defalias 'ido-next-match #[nil "\205\211A@)\305\n\"\305\n\"\306\211)\207" [ido-matches x next ido-cur-list ido-rescan ido-chop nil] 4 (#$ . 74960) nil])
#@61 Put last element of `ido-matches' at the front of the list.
(defalias 'ido-prev-match #[nil "\205\304!@\305\n	\"\305	\"\306\211)\207" [ido-matches prev ido-cur-list ido-rescan last ido-chop nil] 3 (#$ . 75190) nil])
#@125 Find next directory in match list.
If work directories have been merged, cycle through directories for
first matching file.
(defalias 'ido-next-match-dir #[nil "\203&	\205[	@\211A\211G\306V\203!\n\307\211\211A@)\"\241\210\310\211*\207	G\306\n\nW\203G\311\n	8!\204G\nT\211\n\202/\nW\205Z\307\f\n	8\"\211\f*\207" [ido-use-merged-list ido-matches elt dirs x ido-rescan 1 ido-chop nil ido-final-slash i cnt ido-cur-list] 5 (#$ . 75422) nil])
#@129 Find previous directory in match list.
If work directories have been merged, cycle through directories
for first matching file.
(defalias 'ido-prev-match-dir #[nil "\203$	\205V	@\211A\211G\306V\203\n\307\310!@\"\241\210\311\211*\207	G\211S\211\f\312V\203C\313\f	8!\204C\fS\211\f\202,\f\312V\205U\307
\f	8\"\211
*\207" [ido-use-merged-list ido-matches elt dirs ido-rescan cnt 1 ido-chop last nil 0 ido-final-slash i ido-cur-list] 6 (#$ . 75895) nil])
#@55 Set current item list to the currently matched items.
(defalias 'ido-restrict-to-matches #[nil "\205\305\306\307\310 \207" [ido-matches ido-cur-list ido-text-init ido-rescan ido-exit "" nil keep exit-minibuffer] 1 (#$ . 76374) nil])
#@67 Remove all elements before ELEM and put them at the end of ITEMS.
(defalias 'ido-chop #[(items elem) "\305\211\211\n\204'@\211\f\232\203\306\237\"\211\202A	B\202\n+\207" [sofar next ret items elem nil append] 4 (#$ . 76621)])
(defalias 'ido-name #[(item) ":\203@\207\207" [item] 1])
(defalias 'ido-all-completions #[nil "\305\211\n\306=\203\307!\2022\n\310=\203\311!\2022\n\312=\203'\313 \2022\n\314=\2031\f\2022\305*\207" [ido-directory-too-big ido-process-ignore-lists ido-cur-item ido-current-directory ido-choice-list nil file ido-make-file-list-1 dir ido-make-dir-list-1 buffer ido-make-buffer-list-1 list] 2])
(defalias 'ido-file-lessp #[(a b) "\302!\302	!\231\207" [a b ido-no-final-slash] 3])
(defalias 'ido-file-extension-lessp #[(a b) "\305\306\307	\306\307\211&\307\211\211\310=?\205n\f\306W\203+\f[S	\n\310\202.\fS\f\306U\2038\202n\fH\311U\203I\312	\f$\202n\f\313V\203^\fH\311U\204^\fS\211\202J\f\314V\203m\312	\f$\202n+\207" [a b p lessp n compare-strings 0 nil t 46 ido-file-extension-aux 2 1] 9])
(defalias 'ido-file-extension-aux #[(a b n lessp) "\306	\"\306\n	\"\211\203,\203,\fU\203
\202>
\203&\fV\202>\fW\202>\f\2035
?\202>\203=
\202>
*\207" [a n b ob oa lessp ido-file-extension-order] 5])
(defalias 'ido-file-extension-order #[(s n) "\306\307\211\f\203<\f@\310=\203\fA\2026\311
\n\307\f@\306\307\211&\310=\2033\307\2026\fAT\202\n\206A	,\207" [ido-file-extensions-order do o i l s 0 nil t compare-strings n] 8])
(defalias 'ido-sort-merged-list #[(items promote) "\306\307\"\310\211\211\f\203S\f@\fA\203F@@\n@\230\203F	\203+A\202,@\nA@AB\241\210
\203\n\nA\230\203\311\202\n@\nADB\310\202,\207" [items cur a res l promote sort #[(a b) "@	@\231\207" [b a] 2] nil t ido-current-directory] 4])
(defalias 'ido-wide-find-dirs-or-files #[(dir file &optional prefix finddir) "\306\307\310\311!\312\311	\203\313\202\314\n\314Q!\315\203\316\202\317\320\260!!\321\211\211\211\203m@A\322!\2030\323!\2030\324!\325!\203c\326
\327\"\202d
B\fB\2020\f-\207" [dir prefix file finddir res f split-string shell-command-to-string "find " shell-quote-argument " -name " "" "*" " -type " "d" "f" " -print" nil file-name-absolute-p file-exists-p file-name-directory file-name-nondirectory ido-final-slash t d filename filenames] 9])
(defalias 'ido-flatten-merged-list #[(items) "\305	\203)	@\211@\nA\211\203!\f@PB\fA\211\204+	A\211\204)\207" [res items item file dirs nil] 3])
(defalias 'ido-make-merged-file-list-1 #[(text auto wide) "\306\307	!\203\233\n\203\233\203\310\f	\311\312O
\313$\202A
\314	\311\312O!\315P\n\306\211\211\211\203\226@\211@A\316\"\204\204AA\203\204@A\317\"\203X\316\"\204XBB\202X\2036\320 \2036\306\313\2026.\202A
\203\251\310\f	
\306$\202A
	 	\205\264	G\311V\306\211!\"#\203\322\f\235\204\322\fB\203@
@A\203.
;\203.
$\204\370\321!\204.
\322!\203.
%\323=\203
\324\313\"\202
\325\313\"\211!\203.
\"\203$
\326!!!!\203.
!\244\203\322\320 \203\322\306\313\202\322-)\207" [res text ido-dir-file-cache wide ido-current-directory ido-enable-prefix nil ido-final-slash ido-wide-find-dirs-or-files 0 -1 t regexp-quote "[^/:]*/\\'" ido-ignore-item-p string-match input-pending-p ido-is-ftp-directory file-directory-p file ido-make-file-list-1 ido-make-dir-list-1 ido-set-matches-1 f d b dir dirs re ido-ignore-directories-merge ido-ignore-directories auto ido-work-directory-list fl must-match ido-text ido-merge-ftp-work-directories ido-cur-item] 7])
(defalias 'ido-make-merged-file-list #[(text auto wide) "\306\307\310	\"\210\306\311\312\217\210\203<\203\313\n\"\204\"\f\203H<\203H	G\314V\203H\315	\"\211\203G
@=\204G\316
\"
B)\307\306!\210)\207" [res text auto ido-rotate-temp ido-rotate-file-list-default elt nil message "Searching for `%s'...." (byte-code "\301\302\303\217\211\304=\203
\305\301\207" [res nil (byte-code "\301\302\303\215)\207" [inhibit-quit nil #1=#:input (byte-code "\304\305 \206\f\306	\n#)\207" [throw-on-input text auto wide #1# input-pending-p ido-make-merged-file-list-1] 4)] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) t input-pending-p] 3) ((quit (byte-code "\303\304\211\304\207" [res ido-try-merged-list ido-use-merged-list t nil] 2))) ido-sort-merged-list 0 assoc delq] 4])
(defalias 'ido-make-buffer-list-1 #[(&optional frame visible) "\301\302\303\304\305!\"\"\207" [frame delq nil mapcar #[(x) "\304!\305	\n\"\206	\235?\205	)\207" [x name ido-ignore-buffers visible buffer-name ido-ignore-item-p] 3] buffer-list] 6])
(defalias 'ido-make-buffer-list #[(default) "\304\305!\306\307 \"\211\203	\244\210\202\n\203\"\n\310\n	\"B\203)\311 \210\312\313!\210	*\207" [ido-current-buffers ido-temp-list default ido-use-virtual-buffers ido-get-buffers-in-frames current ido-make-buffer-list-1 selected-frame delete ido-add-virtual-buffers-to-list run-hooks ido-make-buffer-list-hook] 5])
#@132 Add recently visited files, and bookmark files, to the buffer list.
This is to make them appear as if they were "virtual buffers".
(defalias 'ido-add-virtual-buffers-to-list #[nil "\204\300\306!\210\307\211\307\211\203H
@\310\f!\211\203A\311\f!\204A\312\n	\"\204A\n\235\204A\313\n\"\204A\n\fB	B
A\211\204+	\205\203t	\307\211\203s
@\314\315@G\316\317@%\210
A\211\204[*\320\321	\"\237\244\211\207" [recentf-mode ido-virtual-buffers name recentf-list head --dolist-tail-- 1 nil file-name-nondirectory get-file-buffer assoc ido-ignore-item-p put-text-property 0 face ido-virtual mapcar car ido-temp-list ido-ignore-buffers ido-use-faces comp] 7 (#$ . 81804)])
(defalias 'ido-make-choice-list #[(default) "\n\203\303\n	\"\n	B	)\207" [ido-choice-list ido-temp-list default delete] 3])
(defalias 'ido-to-end #[(items) "\302\303\"\210	\203
	\244\207\211\207" [items ido-temp-list mapc #[(elem) "\302	\"\211\207" [elem ido-temp-list delq] 3]] 3])
(defalias 'ido-file-name-all-completions-1 #[(dir) "\305!\203\306\207	\203j\307\310\"\203jGS\311\312\313\"\206F\314\230?\205F\315!\205F\316\317!\205F\317!\205F\307\320\"\205F\312\313\321P\"\211\203g\f@G\nV\203g\f@\322\nO\323\306O\230\203g\324\325\f\"\202h\f+\207\312\313\"\207" [dir ido-enable-tramp-completion len non-essential compl ido-nonreadable-directory-p nil string-match "\\`/[^/]+[:@]\\'" t file-name-all-completions "" "/ftp:" file-remote-p fboundp tramp-ftp-file-name-p ":\\'" "./" 0 1 mapcar #[(c) "	\302O\207" [c len nil] 3]] 5])
(defalias 'ido-file-name-all-completions #[(dir) "\306!\203
\307\310\311\312!\"\207	\247\203\361	\313V\203\361;\203\361G\313V\203\361\314!\203\361\315\n\"\211A@\316!\317!
\206B?\205I\320!\3218\322\203\245
\203l\f@\305=\205g\323\fA!\202\231\203\201\f@\324=\205|\325\fA!\202\231\203\231\f@@U\205\227\fA@A@U\204\245\326\n\"\322\204\347\203\267\324\327 B\202\307
\203\307\330!\203\307\305\327 B\203\331\331!BB\211\nB\nG	V\203\347	S\n\233\322\241\210\205\356AA.\207\331!\207" [dir ido-max-dir-file-cache ido-dir-file-cache cached ctime ftp ido-is-unc-root mapcar #[(host) "\301\302\"\203	\207\303P\207" [host string-match "/\\'" "/"] 3] ido-unc-hosts t 0 ido-may-cache-directory assoc ido-is-ftp-directory ido-is-unc-host file-attributes 5 nil ido-cache-ftp-valid unc ido-cache-unc-valid delq ido-time-stamp file-readable-p ido-file-name-all-completions-1 attr mtime valid] 5])
(defalias 'ido-remove-cached-dir #[(dir) "\205 	;\205 	G\303V\205 \304	\"\211\205\305\n\"\211)\207" [ido-dir-file-cache dir cached 0 assoc delq] 4])
(defalias 'ido-make-file-list-1 #[(dir &optional merged) "\301!\204\302!\204\303!\205\304\305\306\307\310!\"\"\207" [dir ido-is-tramp-root ido-is-unc-root file-directory-p delq nil mapcar #[(name) "\304	\305#?\205\n\203B\207\207" [name ido-ignore-files merged dir ido-ignore-item-p t] 4] ido-file-name-all-completions] 6])
(defalias 'ido-make-file-list #[(default) "\306!\307	\n\203\310\202\311\"\312!\204$\313\314\315\316\317	\"\"!\210)\313\314\315\316\320	\"\"!\210\f\203\211\f	\235\203\211
\204A\203\200\f	@\232\204\211	\315\211\203jA\203j\fA@\232\204jA\211\204RA\315\241\210	\244\210*\202\211\321\f	\"\f	B\203\227\321\322	\"\322	B\323\324!\210	)\207" [ido-current-directory ido-temp-list ido-file-extensions-order default-directory default ido-rotate-temp ido-make-file-list-1 sort ido-file-extension-lessp ido-file-lessp ido-is-tramp-root ido-to-end delq nil mapcar #[(x) "\302\303\"\203
\304!\203\305!?\205\306\307!)\205\207" [x file-name-handler-alist string-match ".:\\'" ido-local-file-exists-p ido-final-slash nil get-file-buffer] 3] #[(x) "\301\302O\303\230\205\n\207" [x 0 1 "."] 3] delete "." run-hooks ido-make-file-list-hook ido-rotate-file-list-default k l ido-show-dot-for-dired] 7])
(defalias 'ido-make-dir-list-1 #[(dir &optional merged) "\301!\204\f\302!\205\303\304\305\306\307!\"\"\207" [dir ido-is-tramp-root file-directory-p delq nil mapcar #[(name) "\304!\205\305	\"?\205\n\203B\207\207" [name ido-ignore-directories merged dir ido-final-slash ido-ignore-item-p] 3] ido-file-name-all-completions] 6])
(defalias 'ido-make-dir-list #[(default) "\306!\307	\310\"\311\312\313\314\315	\"\"!\210\n\203i\n	\235\203i\204%\f\203`\n	@\232\204i	\313\211\203MA\203M\nA@\232\204MA\211\2045A\313\241\210
	\244\210
*\202i\316\n	\"\n	B\316\317	\"\204w\317	B\320\321!\210	)\207" [ido-current-directory ido-temp-list default ido-rotate-temp ido-rotate-file-list-default k ido-make-dir-list-1 sort ido-file-lessp ido-to-end delq nil mapcar #[(x) "\301\302O\303\230\205\n\207" [x 0 1 "."] 3] delete "." run-hooks ido-make-dir-list-hook l ido-input-stack] 7])
(defalias 'ido-get-buffers-in-frames #[(&optional current) "\303\304\305\303	?\205\n#\210)\207" [ido-bufs-in-frame current ido-all-frames nil walk-windows ido-get-bufname] 4])
(defalias 'ido-get-bufname #[(win) "\304\305!!\211\n\235\206	\235?\205	\nB\211)\207" [win buf ido-bufs-in-frame ido-ignore-item-temp-list buffer-name window-buffer] 4])
(defalias 'ido-set-matches-1 #[(items &optional do-full) "\n?\205\n\306!\211\203\307\310O\202#\203!
\202$\311
!\211$\f\203/\312\2020\313P%\n\203>\314%P\202@%&'\205q(\315=\205P)?\205q#?\205q\316\317$\"?\205q\314$\f\203n\320\202o\313\321R*'\205\234\f\205\234(\315=\205\205)?\205\234#?\205\234\316\317$\"?\205\234$\322P+*\205\254\n?\205\254\314%P,-?\206\302.?\206\302\n\206\302G\307U/\323\21101\323\21123\3234\324\325\326\217\2102\203\352\327\3302\"\21023\24431\203
\327\331
+1E\"\21013\24430\203
\327\332
*0E\"\21003\24433\204N
5\203N
G\333V\203N
#\204N
\311\334\307H!!\335\336\333\323O\313#P&\n\203H
\314&P&\337\3406\"\210\3413\342\".\207" [ido-case-fold case-fold-search ido-enable-prefix ido-text slash text ido-final-slash 0 -1 regexp-quote ".*/" "" "\\`" buffer string-match "$\\'" "/" "\\'" "/\\'" nil error (mapc #[(item) "\306!\n\204!\307H\310U\203	\307H\310U\202	\307H\310U?\203\225\311\f	\"\203\225
\312=\203M
;\203;	
\230\204M	\313!\230\203MB\202\225\203c\311	\"\203cB\202\225\203y\311	\"\203yB\202\225\203\217\311	\"\203\217B\202\225B)\314\207" [item name non-prefix-dot ido-text re ido-cur-item ido-name 0 46 string-match buffer buffer-name t ido-default-item ido-entry-buffer matches full-re full-matches suffix-re suffix-matches prefix-re prefix-matches] 3] items) ((invalid-regexp (byte-code "\303	A\303\207" [ido-incomplete-regexp error matches t] 1))) ido-trace "prefix match" "suffix match" "full match" 1 string mapconcat #[(c) "\301\302!\303\304\302!!R\207" [c "[^" string "]*" regexp-quote] 6] mapc #[(item) "\304!\305\n	\"\205B\211)\207" [item name re matches ido-name string-match] 3] delete-consecutive-dups t ido-enable-regexp rex0 rexq re do-full ido-cur-item ido-buffer-disable-smart-matches full-re suffix-re prefix-re ido-enable-dot-prefix ido-process-ignore-lists non-prefix-dot full-matches suffix-matches prefix-matches matches ido-incomplete-regexp ido-enable-flex-matching items] 7])
(defalias 'ido-set-matches #[nil "\205\304\305	!\n?\"\306\211\207" [ido-rescan ido-cur-list ido-rotate ido-matches ido-set-matches-1 reverse nil] 3])
(defalias 'ido-ignore-item-p #[(name re-list &optional ignore-ext) "	\235\206\306\n\205\306\205\306\306 \307\216
\205\f\205
\310\211G\310\203\200@\211;\203ZG\211Y\203wZ\310O\230\202i\311!\203h!\202i\310\203w\312\310\211\2021A\211\2046\203\267@\211;\203\225\313\"\202\244\311!\203\243!\202\244\310\203\260\312\310\211\202\201A\211\204\204\203\302B.\207" [name ido-ignore-item-temp-list ido-process-ignore-lists re-list save-match-data-internal ignore-ext match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil functionp t string-match ido-ignore-extensions completion-ignored-extensions ido-case-fold slen flen nextstr ignorep case-fold-search ext-list ido-ignored-list] 7])
(defalias 'ido-find-common-substring #[(items subs) "\306\211\211\203\f\202\307\f!\310\311
\"\312\306\n\"\310\313\n\"\314\f	\"\211\315=\2035\f\2027-\207" [ido-change-word-sub alist res ido-enable-regexp subs items nil regexp-quote mapcar ido-word-matching-substring delq ido-makealist try-completion t ido-case-fold completion-ignore-case comp] 4])
(defalias 'ido-word-matching-substring #[(word) "\305\n\306!\"\211\205\306!\f\307O*\207" [ido-case-fold case-fold-search ido-change-word-sub word m string-match ido-name nil] 5])
(defalias 'ido-makealist #[(res) "\301B\207" [res 1] 2])
(defalias 'ido-choose-completion-string #[(choice &rest ignored) "\305 \205:\203\306!\203\307!\210\305\310!\203\"\311\n\312\2026\313\n!\204/\n\312\2026\314	\n\"\210\315\316 \210\310\207" [ido-completion-buffer ido-current-directory choice ido-text ido-exit ido-active get-buffer kill-buffer t "" done ido-final-slash ido-set-current-directory refresh exit-minibuffer] 3])
#@59 Show possible completions in a *File Completions* buffer.
(defalias 'ido-completion-help #[nil "\306	\205	\307	!\306\211
 =\203b\f\203b\306p!\"\310\f\306\211#\210\fq\210\311\f!\"\312d\"\"\203W#\204@\313\314!\203I\315\"e\"\210\202Z\316\314!\210\317\211\f\317\202Z\320 \210!q\210*\202d\317	\205\364\205\364$%r\321	!q\210p\322 \210%$\306\211&'\317\211(\317)*\323 \210\324\325!\210+\211+,\326-\203\275\327\330!\210\306\211-.\331 /\317\332 \2100\206\345/\202\3451\203\316\3330\206\312/!\202\345\n\204\327#\203\334\331 \202\345\3340\206\344/!\335\"2\3362!)\337+!\210++\207" [ido-rescan ido-completion-buffer full-list display-it temp-buf last-command nil get-buffer display-buffer get-buffer-window pos-visible-in-window-p boundp ido-completion-buffer-full set-window-start make-local-variable t scroll-other-window get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook sort message "Reading directory..." ido-all-completions ido-set-matches ido-flatten-merged-list copy-sequence ido-file-lessp display-completion-list internal-temp-output-buffer-show this-command buf win ido-completion-buffer-all-completions default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ido-directory-too-big ido-ignored-list ido-cur-list ido-matches ido-use-merged-list completion-list] 5 (#$ . 91148) nil])
#@118 Kill the buffer at the head of `ido-matches'.
If cursor is not at the end of the user input, delete to end of input.
(defalias 'ido-kill-buffer-at-head #[nil "m\204	`\306 |\207\307\310@!\211A@)\311!\203P\n\203+\311\n!\203+\311\n!\312!\2047\307\211\202n\313\n!\203A\314\n!\n\315\316 \202n\317\"\205n\320\317\"A\"\320\"\307\211+\207" [ido-matches x nextbuf buf enable-recursive-minibuffers ido-rescan line-end-position t ido-name get-buffer kill-buffer bufferp buffer-name refresh exit-minibuffer assoc delete ido-default-item ido-text ido-text-init ido-exit ido-virtual-buffers recentf-list ido-cur-list] 5 (#$ . 92634) nil])
#@118 Delete the file at the head of `ido-matches'.
If cursor is not at the end of the user input, delete to end of input.
(defalias 'ido-delete-file-at-head #[nil "m\204	`\306 |\207\307\310@!	\203	P	\205O\311	!\205O\312	!?\205O\313!\205O\314\315	\316Q!\205O\317	!\210\311	!\203H\307\211\202O\320@
\"\211*\207" [ido-matches file enable-recursive-minibuffers ido-current-directory ido-rescan ido-cur-list line-end-position t ido-name file-exists-p file-directory-p file-writable-p yes-or-no-p "Delete " "? " delete-file delq] 4 (#$ . 93310) nil])
#@106 Switch to BUFFER according to METHOD.
Record command in `command-history' if optional RECORD is non-nil.
(defalias 'ido-visit-buffer #[(buffer method &optional record) "\306!\203\n\307!\310\211\311=\203#\f\203\312\313\"\210\313!\202\215\314=\2038\f\2032\312\315\"\210\316!\202\215\317=\203D\320!\202\215\321=\203U\322!\210\323\324 !\202\215\325>\203\201
\203\201\326!\211\203\201\327=\204s\330\331!\203\201\332\n!\323	!\210\333\n!\202\215\f\203\212\312\315\"\210\315!*\207" [buffer newframe win method record window-system bufferp buffer-name nil kill ido-record-command kill-buffer other-window switch-to-buffer switch-to-buffer-other-window display display-buffer other-frame switch-to-buffer-other-frame select-frame-set-input-focus selected-frame (raise-frame maybe-frame) ido-buffer-window-other-frame raise-frame y-or-n-p "Jump to frame? " window-frame select-window] 3 (#$ . 93876)])
(defalias 'ido-buffer-window-other-frame #[(buffer) "\302\303!	\235?\205\304	\305\")\207" [blist buffer ido-get-buffers-in-frames current get-buffer-window 0] 3])
#@1628 Switch to another buffer.
The buffer is displayed according to `ido-default-buffer-method' -- the
default is to show it in the same window, unless it is already visible
in another frame.

As you type in a string, all of the buffers matching the string are
displayed if substring-matching is used (default).  Look at
`ido-enable-prefix' and `ido-toggle-prefix'.  When you have found the
buffer you want, it can then be selected.  As you type, most keys have
their normal keybindings, except for the following: \<ido-buffer-completion-map>

RET Select the buffer at the front of the list of matches.  If the
list is empty, possibly prompt to create new buffer.

\[ido-select-text] Use the current input string verbatim.

\[ido-next-match] Put the first element at the end of the list.
\[ido-prev-match] Put the last element at the start of the list.
\[ido-complete] Complete a common suffix to the current string that
matches all buffers.  If there is only one match, select that buffer.
If there is no common suffix, show a list of all matching buffers
in a separate window.
\[ido-edit-input] Edit input string.
\[ido-fallback-command] Fallback to non-ido version of current command.
\[ido-toggle-regexp] Toggle regexp searching.
\[ido-toggle-prefix] Toggle between substring and prefix matching.
\[ido-toggle-case] Toggle case-sensitive searching of buffer names.
\[ido-completion-help] Show list of matching buffers in separate window.
\[ido-enter-find-file] Drop into `ido-find-file'.
\[ido-kill-buffer-at-head] Kill buffer at head of buffer list.
\[ido-toggle-ignore] Toggle ignoring buffers listed in `ido-ignore-buffers'.
(defalias 'ido-switch-buffer #[nil "\301!\207" [ido-default-buffer-method ido-buffer-internal] 2 (#$ . 94983) nil])
#@175 Switch to another buffer and show it in another window.
The buffer name is selected interactively by typing a substring.
For details of keybindings, see `ido-switch-buffer'.
(defalias 'ido-switch-buffer-other-window #[nil "\300\301\302\"\207" [ido-buffer-internal other-window switch-to-buffer-other-window] 3 (#$ . 96734) nil])
#@175 Display a buffer in another window but don't select it.
The buffer name is selected interactively by typing a substring.
For details of keybindings, see `ido-switch-buffer'.
(defalias 'ido-display-buffer #[nil "\300\301\302\303\211\211\304&\207" [ido-buffer-internal display display-buffer nil ignore] 7 (#$ . 97070) nil])
#@134 Kill a buffer.
The buffer name is selected interactively by typing a substring.
For details of keybindings, see `ido-switch-buffer'.
(defalias 'ido-kill-buffer #[nil "\300\301\302\303\304p!\305\306&\207" [ido-buffer-internal kill kill-buffer "Kill buffer: " buffer-name nil ignore] 7 (#$ . 97401) nil])
#@178 Insert contents of a buffer in current buffer after point.
The buffer name is selected interactively by typing a substring.
For details of keybindings, see `ido-switch-buffer'.
(defalias 'ido-insert-buffer #[nil "\300\301\302\303\304\211\305&\207" [ido-buffer-internal insert insert-buffer "Insert buffer: " nil ido-enter-insert-file] 7 (#$ . 97712) nil])
#@174 Switch to another buffer and show it in another frame.
The buffer name is selected interactively by typing a substring.
For details of keybindings, see `ido-switch-buffer'.
(defalias 'ido-switch-buffer-other-frame #[nil "\203\301\302!\207\303\304!\207" [ido-mode ido-buffer-internal other-frame call-interactively switch-to-buffer-other-frame] 2 (#$ . 98076) nil])
#@43 Switch to another file starting from DIR.
(defalias 'ido-find-file-in-dir #[(dir) "\302!\303	\304\304\211\211\305&\207" [dir ido-default-file-method file-name-as-directory ido-file-internal nil ignore] 8 (#$ . 98450) "DDir: "])
#@2295 Edit file with name obtained via minibuffer.
The file is displayed according to `ido-default-file-method' -- the
default is to show it in the same window, unless it is already
visible in another frame.

The file name is selected interactively by typing a substring.  As you
type in a string, all of the filenames matching the string are displayed
if substring-matching is used (default).  Look at `ido-enable-prefix' and
`ido-toggle-prefix'.  When you have found the filename you want, it can
then be selected.  As you type, most keys have their normal keybindings,
except for the following: \<ido-file-completion-map>

RET Select the file at the front of the list of matches.  If the
list is empty, possibly prompt to create new file.

\[ido-select-text] Use the current input string verbatim.

\[ido-next-match] Put the first element at the end of the list.
\[ido-prev-match] Put the last element at the start of the list.
\[ido-complete] Complete a common suffix to the current string that
matches all files.  If there is only one match, select that file.
If there is no common suffix, show a list of all matching files
in a separate window.
\[ido-magic-delete-char] Open the specified directory in Dired mode.
\[ido-edit-input] Edit input string (including directory).
\[ido-prev-work-directory] or \[ido-next-work-directory] go to previous/next directory in work directory history.
\[ido-merge-work-directories] search for file in the work directory history.
\[ido-forget-work-directory] removes current directory from the work directory history.
\[ido-prev-work-file] or \[ido-next-work-file] cycle through the work file history.
\[ido-wide-find-file-or-pop-dir] and \[ido-wide-find-dir-or-delete-dir] prompts and uses find to locate files or directories.
\[ido-make-directory] prompts for a directory to create in current directory.
\[ido-fallback-command] Fallback to non-ido version of current command.
\[ido-toggle-regexp] Toggle regexp searching.
\[ido-toggle-prefix] Toggle between substring and prefix matching.
\[ido-toggle-case] Toggle case-sensitive searching of file names.
\[ido-toggle-literal] Toggle literal reading of this file.
\[ido-completion-help] Show list of matching files in separate window.
\[ido-toggle-ignore] Toggle ignoring files listed in `ido-ignore-files'.
(defalias 'ido-find-file #[nil "\301!\207" [ido-default-file-method ido-file-internal] 2 (#$ . 98690) nil])
#@167 Switch to another file and show it in another window.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-find-file-other-window #[nil "\300\301\302\"\207" [ido-file-internal other-window find-file-other-window] 3 (#$ . 101100) nil])
#@167 Switch to another file and show it in another window.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-find-alternate-file #[nil "\300\301\302\303\304$\207" [ido-file-internal alt-file find-alternate-file nil "Find alternate file: "] 5 (#$ . 101416) nil])
#@168 Edit file read-only with name obtained via minibuffer.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-find-file-read-only #[nil "\300\301\302\303\304$\207" [ido-file-internal read-only find-file-read-only nil "Find file read-only: "] 5 (#$ . 101757) nil])
#@184 Edit file read-only in other window with name obtained via minibuffer.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-find-file-read-only-other-window #[nil "\300\301\302\303\304$\207" [ido-file-internal read-only find-file-read-only-other-window nil "Find file read-only other window: "] 5 (#$ . 102100) nil])
#@183 Edit file read-only in other frame with name obtained via minibuffer.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-find-file-read-only-other-frame #[nil "\300\301\302\303\304$\207" [ido-file-internal read-only find-file-read-only-other-frame nil "Find file read-only other frame: "] 5 (#$ . 102498) nil])
#@167 Display a file in another window but don't select it.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-display-file #[nil "\300\301\302\211\211\211\211\303&\207" [ido-file-internal display nil ignore] 8 (#$ . 102892) nil])
#@166 Switch to another file and show it in another frame.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-find-file-other-frame #[nil "\300\301\302\"\207" [ido-file-internal other-frame find-file-other-frame] 3 (#$ . 103201) nil])
#@145 Write current buffer to a file.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-write-file #[nil "\306\307\310B\307\306\311\312\313\314\307\315\307\211\316&.\207" [ido-ignore-files ido-auto-merge-work-directories-length ido-confirm-unique-completion ido-report-no-match ido-work-directory-match-only ido-process-ignore-lists t nil "[^/]\\'" -1 ido-file-internal write write-file "Write file: " ignore] 8 (#$ . 103513) nil])
#@156 Insert contents of file in current buffer.
The file name is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-insert-file #[nil "\300\301\302\303\304\303\211\305&\207" [ido-file-internal insert insert-file nil "Insert file: " ido-enter-insert-buffer] 8 (#$ . 104032) nil])
#@139 Call `dired' the ido way.
The directory is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-dired #[nil "\302\303\304\305\211\302\306\307%*\207" [ido-auto-merge-work-directories-length ido-report-no-match nil -1 ido-file-internal dired "Dired: " dir] 6 (#$ . 104373) nil])
#@148 Call `list-directory' the ido way.
The directory is selected interactively by typing a substring.
For details of keybindings, see `ido-find-file'.
(defalias 'ido-list-directory #[nil "\302\303\304\305\211\302\306\307%*\207" [ido-auto-merge-work-directories-length ido-report-no-match nil -1 ido-file-internal list-directory "List directory: " dir] 6 (#$ . 104716) nil])
(defalias 'ido-initiate-auto-merge #[(buffer) "\306\307\"\210\310\311!\205=\312 \205=\313\302!\205=\n\205=\314\315 \n\"\306\316!\210\317\320\321rq\210\322 \210)\323\324\")\207" [buffer ido-auto-merge-timer ido-eoinput contents ido-use-merged-list ido-text-init ido-trace "\n*merge timeout*" nil buffer-live-p ido-active boundp buffer-substring-no-properties minibuffer-prompt-end "request merge" auto t refresh ido-tidy throw ido ido-rotate-temp ido-exit] 3])
#@30 Post command hook for `ido'.
(defalias 'ido-exhibit #[nil "\306 \205\251\307\310 d\"\311\312\211\f\2037\313\314
\"\210\313\315@\"\210\313\316\"\210\313\317A\"\210\313\320B\"\210\313\321C\"\210\212db\210\322\323!\204E\324\323!\210`D\325>\204'G\326U\204'G\327U\203\220\330 \203s\331\230\203s\332@\"\210\311\202'\333 \203'\331\230\203'\312E\334 )\203'\332\335!\210\311\202'\336E\203\232\337\202\233\340\"\203\301\334 \203\301\341!\204\301\332@\"\210\342 \203\274\343F\344 \210\311\202'\345!\203\243
\313\346\"\210\347\230\203\332\350 \210\311\202'\351\230\203\351\352\311!\210\311\202'\353\230\203\364\311\202'\336\354\"\203	
\313\355\"\210\350!\210\311\202'\336\356\"\203;
\312\357\360\217G\313G\"\210G\2037
\361G!\2037
\332\362G!!\210\363G!H\311)\202'I\364>\203V
\327\312O\365\230\203V
\332\362!!\210\311\202'\366\367O\331\230\203w
\332I\370>\203o
\371\331@\"\202p
\331!\210\311\202'J\204\201
K\203\232
\361@\362!P!\203\232
\332@\362!P!\210\311\202'\313\372!\210\311\202'\366\367O\331\230\203\343
\336\373\"\204\343
\332G\374U\203\277
\331\202\326
B\203\317
@\375B@!P\202\326
@\326\367OP!\210\367\312OH\311\202'L\204'\345!\204'M\311=\203'N\247\203'N\326V\203'GNU\203'O\203\336O\"\204'\376 \204'\377LH\311\211P\2039\313\201[H\"\210\300F\344 \210Q\201\\ \210\313\201]B\"\210R\203\221B\203\221R\201^=\204bBA\204\221\345\375B@!!\203\221	\204wR\311=\203\221\313\201_B@\"\210\332@\375B@!P!\210\300F\344 \210B\204\340J\204\340K\204\340S\203\340T\203\340\312UTAUS\313\201`T\"\210\201\\ \210+B\203\340\313\201aB\"\210\311\211CVQH\300F\344 \210C\203^B\204^D\201b>\203^\334 \204^G\327V\203^\336\373\"\204^J\204^K\204^\313\201c!\210L\203%\201d\312\"\210\202^M\311=\203^N\247\203^N\326U\203^O\203F\336O\"\204^\376 \204^\313\201e!\210\201fW\312\201gp$X\311CL\203\215B\203\215B@A@@\230\204\215\332B@A@!\210\311L\201hFQH\344 \210\201i \210\201j!Y\312Z\313\201kY\"\210Yc.\207" [refresh try-single-dir-match buffer-undo-list contents ido-trace-enable this-command ido-active buffer-substring-no-properties minibuffer-prompt-end t nil ido-trace "\nexhibit" "dir" "contents" "list" "matches" "rescan" boundp ido-eoinput make-local-variable (buffer list) 0 1 ido-is-tramp-root "/" ido-set-current-directory ido-unc-hosts ido-is-root-directory "//" string-match ".[:@]\\'" ".:\\'" ido-local-file-exists-p ido-is-slow-ftp-host fallback exit-minibuffer ido-final-slash "final slash" "~/" ido-set-current-home "../" ido-up-directory "./" "\\`~[-_a-zA-Z0-9]+[$]?/\\'" "new home" "[$][A-Za-z0-9_]+/\\'" (byte-code "\302\303\304\305O!	\"\207" [contents ido-current-directory expand-file-name substitute-in-file-name 0 -1] 5) ((error)) file-directory-p file-name-directory file-name-nondirectory (windows-nt ms-dos) ":/" -2 -1 (windows-nt ms-dos) expand-file-name "try single dir" "[$]" 2 ido-name input-pending-p auto ido-current-directory ido-cur-list ido-matches ido-rescan ido-cur-item ido-enable-tramp-completion ido-exit exp ido-text-init system-type ido-directory-nonreadable ido-directory-too-big ido-use-merged-list ido-try-merged-list ido-auto-merge-work-directories-length ido-auto-merge-inhibit-characters-regexp ido-rotate-temp ido-text ido-enter-matching-directory ido-process-ignore-lists ido-ignored-list ido-rotate ido-process-ignore-lists-inhibit ido-auto-merge-delay-time ido-auto-merge-timer inf ido-show-confirm-message "refresh on /" ido-set-matches "new    " first "single match" "try all" "found  " (file dir) "merge?" ido-undo-merge-work-directory "\n*start timer*" run-with-timer ido-initiate-auto-merge keep ido-set-common-completion ido-completions "inf"] 6 (#$ . 105571)])
(defalias 'ido-completions #[(name) "\211@:\205	@AG\306V\205\n\307\203%
\203%\310\311\306\312\313%\210
\203h	\203h\314	@!\211(G)\315\316(\"\310\311)\312	G\306U\203V\203R\317\202W\320\202W\321\f%\210\203b\fP\f	AB*	\204\254*\203|\322+8\206Z
\323\202Z
,\203\214\324+8\206Z
\325\202Z
-\203\234\326+8\206Z
\327\202Z
.\203\250\330+8\202Z
\331\202Z
\203\270\332	@P\202Z
	A\204
/\204\316\314	@!G0GU\202\343\3330\314	@!\"\210\334\311\314	@!\"\314	@!\230\203\352\331\202
\335+8\206\365\336+8\314	@!\337+8\206
\340+8Q
?\205
\341+8P\202Z
1\311V\203
1T\202 
\3422\343\344\343\345\346\347	\"\"A\"34;\205O
4G0GV\205O
\336+840G\307O\340+8Q+@3+A@R*+\207" [ido-matches comps ido-merged-indicator ind first ido-use-faces 1 nil put-text-property 0 face ido-indicator ido-name format "%s" ido-incomplete-regexp ido-only-match ido-first-match 10 " [Confirm]" 8 " [Not readable]" 9 " [Too big]" 6 "" " " string-match match-string 11 4 12 5 7 999 apply concat nconc mapcar #[(com) "\306!	S\211\307W\203\310\207	\307U\203\311\n8C\207\206!\312\n8\307\310O
\203@\f\230\204@\313\f!\203@\314\307\fG\315\316\f%\210\f)D\207" [com items ido-decorations ido-separator str ido-use-faces ido-name 0 nil 3 2 ido-final-slash put-text-property face ido-subdir first] 8] fn ln ido-show-confirm-message ido-decorations ido-directory-nonreadable ido-directory-too-big ido-report-no-match ido-enable-regexp name ido-max-prospects items alternatives ido-common-match-string] 8])
#@34 Minibuffer setup hook for `ido'.
(defalias 'ido-minibuffer-setup #[nil "\301 \205$\302\303\304\305\306$\210\302\307\310\305\306$\210\311\312!\210\205$\313 \\b\210\305\211\207" [ido-initial-position ido-active add-hook pre-command-hook ido-tidy nil t post-command-hook ido-exhibit run-hooks ido-minibuffer-setup-hook minibuffer-prompt-end] 5 (#$ . 110932)])
#@29 Pre command hook for `ido'.
(defalias 'ido-tidy #[nil "\203\304\305	\"\210\306!\210\307\310 \2056\311\302!\203/\n\203/\ndV\203(d\211\207\312\nd|)\207\313\302!\210\314\211\207" [ido-auto-merge-timer this-command ido-eoinput buffer-undo-list ido-trace "\n*cancel timer*" cancel-timer nil ido-active boundp t make-local-variable 1] 3 (#$ . 111300)])
(defalias 'ido-summary-buffers-to-end #[nil "\302\303\304\305\"\"\306	!)\207" [ido-temp-list summaries delq nil mapcar #[(x) "\301\302\"\204\301\303\"\205\207" [x string-match "Summary" "output\\*\\'"] 3] ido-to-end] 5])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [put dired-do-rename ido ignore ibuffer-find-file find-file dired-other-window dir] 4)
#@291 Ido replacement for the built-in `read-buffer'.
Return the name of a buffer selected.
PROMPT is the prompt to give to the user.  DEFAULT if given is the default
buffer to be selected, which will go to the front of the list.
If REQUIRE-MATCH is non-nil, an existing buffer must be selected.
(defalias 'ido-read-buffer #[(prompt &optional default require-match) "\306\211\306\307\310\311\f\312
%\313=\203+\306\314\315\316\"\210\316\f
#)\202--\207" [ido-current-directory ido-directory-nonreadable ido-directory-too-big ido-context-switch-command prompt default nil ignore ido-read-internal buffer ido-buffer-history fallback run-hook-with-args ido-before-fallback-functions read-buffer require-match buf ido-exit read-buffer-function] 7 (#$ . 112060)])
#@171 Ido replacement for the built-in `read-file-name'.
Read file name, prompting with PROMPT and completing in directory DIR.
See `read-file-name' for additional parameters.
(defalias 'ido-read-file-name #[(prompt &optional dir default-filename mustmatch initial predicate) "\306	\307=\204\n\310N\305=\204\n>\203-\311\f
%\312=\203\305\312\202\305\n\310N\313=\204\303\n >\204\303	\203F	\314=\203\303\306!\n\310N\315=?\205S\313\"\316\317!\205]\320#\321
!$\322$!?\211%?\205w\323$!&\324'(\205\204?(\324)\306\211*\325\326\f\327&\312=\203\250\312\202\276\330=\203\265$\202\276\203\276$P.\202\305\312\312=\203\343\306+\331\332\333\"\210\333\f
	&)\202\344)\207" [filename predicate this-command ido-read-file-name-as-directory-commands prompt dir nil file-directory-p ido ido-read-directory-name fallback ignore file-exists-p find-file boundp vc-handled-backends t ido-expand-directory file-readable-p ido-directory-too-big-p -1 ido-read-internal file ido-file-history dired run-hook-with-args ido-before-fallback-functions read-file-name default-filename mustmatch initial ido-exit ido-read-file-name-non-ido ido-saved-vc-hb ido-context-switch-command minibuffer-completing-file-name ido-current-directory ido-directory-nonreadable ido-directory-too-big ido-work-directory-index ido-show-dot-for-dired ido-work-file-index ido-find-literal read-file-name-function] 8 (#$ . 112836)])
#@186 Ido replacement for the built-in `read-directory-name'.
Read directory name, prompting with PROMPT and completing in directory DIR.
See `read-directory-name' for additional parameters.
(defalias 'ido-read-directory-name #[(prompt &optional dir default-dirname mustmatch initial) "\306\307\310\306\311\f!\312
!?\211?\205\313
!\314\211\315\304\316&\211\205F;\203C\317\230\203C
\202F
P.	\207" [filename minibuffer-completing-file-name ido-context-switch-command ido-saved-vc-hb dir ido-current-directory nil t ignore ido-expand-directory file-readable-p ido-directory-too-big-p -1 ido-read-internal ido-file-history "." ido-directory-nonreadable ido-directory-too-big ido-work-directory-index ido-work-file-index prompt default-dirname mustmatch initial] 8 (#$ . 114302)])
#@822 Ido replacement for the built-in `completing-read'.
Read a string in the minibuffer with ido-style completion.
PROMPT is a string to prompt with; normally it ends in a colon and a space.
CHOICES is a list of strings which are the possible completions.
PREDICATE and INHERIT-INPUT-METHOD is currently ignored; it is included
 to be compatible with `completing-read'.
If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless
 the input is (or completes to) an element of CHOICES or is null.
 If the input is null, `ido-completing-read' returns DEF, or an empty
 string if DEF is nil, regardless of the value of REQUIRE-MATCH.
If INITIAL-INPUT is non-nil, insert it in the minibuffer initially,
 with point positioned at the end.
HIST, if non-nil, specifies a history list.
DEF, if non-nil, is the default value.
(defalias 'ido-completing-read #[(prompt choices &optional _predicate require-match initial-input hist def _inherit-input-method) "\306\211\211\307\310 \210\311\312\f
&-\207" [choices ido-choice-list ido-context-switch-command ido-directory-too-big ido-directory-nonreadable ido-current-directory nil ignore ido-common-initialization ido-read-internal list prompt hist def require-match initial-input] 7 (#$ . 115111)])
#@25 Unload the Ido library.
(defalias 'ido-unload-function #[nil "\301\302!\210\303\301\"\304\207" [minor-mode-map-alist ido-mode -1 assq-delete-all nil] 3 (#$ . 116373)])
(provide 'ido)