emacs/lisp/ido.el

85 ;; it is shown in the `ido-only-match' face (ForestGreen).  I can now
411 (defcustom ido-show-dot-for-dired nil
413 This allows the current directory to be opened immediately with `dired'."
829      (:inherit font-lock-warning-face)))
830   "Ido face for indicating incomplete regexps."
1135 	    (deactivate-mark deactivate-mark))
1168 	   (message (propertize "Searching for UNC hosts..." 'face 'highlight))
1494 	(define-key map [remap dired] 'ido-dired)
1571     (define-key map "\C-x\C-d" 'ido-enter-dired)
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)))))
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))
3508     (when ido-show-dot-for-dired
4125 (defun ido-dired ()
4126   "Call `dired' the ido way.
4132     (ido-file-internal 'dired 'dired nil "Dired: " 'dir)))
4402 	(put-text-property 0 1 'face 'ido-indicator ind))
4408 	  (put-text-property 0 ln 'face
4464 					   (put-text-property 0 (length str) 'face 'ido-subdir str))
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)