emacs/lisp/ido.el

263 ;; ido-subdir.
411 (defcustom ido-show-dot-for-dired nil
413 This allows the current directory to be opened immediately with `dired'."
529 `ido-prev-match', which cycle the buffer list."
686 \\[ido-prev-work-directory] or \\[ido-next-work-directory] will skip directories
807 (defface ido-subdir  '((((min-colors 88) (class color))
1494 	(define-key map [remap dired] 'ido-dired)
1550     (define-key map "\C-r" 'ido-prev-match)
1558     (define-key map [left] 'ido-prev-match)
1571     (define-key map "\C-x\C-d" 'ido-enter-dired)
1573     (define-key map [up]   'ido-prev-match-dir)
1574     (define-key map [(meta up)] 'ido-prev-work-directory)
1590     (define-key map [(meta ?o)] 'ido-prev-work-file)
1592     (define-key map [(meta ?p)] 'ido-prev-work-directory)
1689 (defun ido-set-current-directory (dir &optional subdir no-merge)
1696   (when subdir
1697     (setq dir (concat dir subdir))
2029        ((memq ido-exit '(dired fallback find-file switch-to-buffer insert-buffer insert-file))
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)
2787 (defun ido-prev-work-directory ()
2922 (defun ido-prev-work-file ()
3005 (defun ido-prev-match ()
3009       (let ((prev (car (last ido-matches))))
3010 	(setq ido-cur-list (ido-chop ido-cur-list prev))
3033 (defun ido-prev-match-dir ()
3508     (when ido-show-dot-for-dired
3516   ;; If MERGED is non-nil, each subdir is cons'ed with DIR
3934 \\[ido-prev-match] Put the last element at the start of the list.
4022 \\[ido-prev-match] Put the last element at the start of the list.
4028 \\[ido-prev-work-directory] or \\[ido-next-work-directory] go to previous/next directory in work directory history.
4031 \\[ido-prev-work-file] or \\[ido-next-work-file] cycle through the work file history.
4125 (defun ido-dired ()
4126   "Call `dired' the ido way.
4132     (ido-file-internal 'dired 'dired nil "Dired: " 'dir)))
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)