emacs/lisp/ido.el

411 (defcustom ido-show-dot-for-dired nil
413 This allows the current directory to be opened immediately with `dired'."
1135 	    (deactivate-mark deactivate-mark))
1177 	    res host re-list re)
1181 		re-list (and ido-process-ignore-lists
1183 	  (while re-list
1184 	    (setq re (car re-list)
1185 		  re-list (cdr re-list))
1186 	    (if (string-match re host)
1187 		(setq re-list nil
1202       (while (re-search-forward "^\\\\\\\\\\([[:graph:]]+\\)" nil t)
1250 	     (let ((re ido-slow-ftp-host-regexps))
1251 	       (while (and re (not (string-match (car re) host)))
1252 		 (setq re (cdr re)))
1253 	       re)))))
1494 	(define-key map [remap dired] 'ido-dired)
1571     (define-key map "\C-x\C-d" 'ido-enter-dired)
1791 ;;               'keep    - repeat loop but don't (re)make-item-list
2029        ((memq ido-exit '(dired fallback find-file switch-to-buffer insert-buffer insert-file))
2187 	      (push-mark
2326        ((eq ido-exit 'dired)
2327 	(dired (concat ido-current-directory (or ido-text ""))))
2338        ((memq method '(dired list-directory))
2354 	      (if (eq method 'dired)
2356 		    (dired-goto-file (expand-file-name file)))))
2498 		   (re (concat (regexp-quote ido-text) " "))
2501 		 (if (string-match re (ido-name (car comp)))
2543 C-x C-d ... C-f  fallback to non-ido brief dired.
2544 C-x d ... C-f    fallback to non-ido dired."
2585 C-x C-f ... C-d  enter dired on current directory."
2593     (ido-enter-dired))))
2705 (defun ido-enter-dired ()
2706   "Drop into `dired' from file switching."
2708   (setq ido-exit 'dired)
2965 		  (if (and mark-active (/= p (mark)))
2966 		      (setq start-name (mark))
2972 		    (if (re-search-backward "[^-_a-zA-Z0-9:./\\~@]" start-line 1)
2975 		    (re-search-forward "[-_a-zA-Z0-9:./\\~@]*" end-line 1)
3228 	  (let ((re (concat (regexp-quote (substring text 0 -1)) "[^/:]*/\\'"))
3235 		  (when (and (string-match re dir)
3251 		    (if (and (string-match re f)
3508     (when ido-show-dot-for-dired
3591 	 (re (if ido-enable-prefix (concat "\\`" rexq) rexq))
3592 	 (full-re (and do-full (not ido-enable-regexp) (not (string-match "\$\\'" rex0))
3594 	 (suffix-re (and do-full slash
3597 	 (prefix-re (and full-re (not ido-enable-prefix)
3613 		      (string-match re name))
3620 		  ((and full-re (string-match full-re name))
3622 		  ((and suffix-re (string-match suffix-re name))
3624 		  ((and prefix-re (string-match prefix-re name))
3639       (ido-trace "suffix match" (list text suffix-re suffix-matches))
3642       (ido-trace "full match" (list text full-re full-matches))
3648       (setq re (mapconcat #'regexp-quote (split-string ido-text "") ".*"))
3650 	  (setq re (concat "\\`" re)))
3654 	   (if (string-match re name)
3666 (defun ido-ignore-item-p (name re-list &optional ignore-ext)
3670        ido-process-ignore-lists re-list
3687 		       re-list nil)
3689 	   (while re-list
3690 	     (setq nextstr (car re-list))
3696 		       re-list nil)
3697 	       (setq re-list (cdr re-list))))
4125 (defun ido-dired ()
4126   "Call `dired' the ido way.
4132     (ido-file-internal 'dired 'dired nil "Dired: " 'dir)))
4535 (put 'dired-do-rename 'ido 'ignore)
4537 (put 'dired-other-window 'ido 'dir)
4584 	     (ido-show-dot-for-dired (and ido-show-dot-for-dired
4594 	 ((eq ido-exit 'dired)