/[emacs]/emacs/lisp/ido.el
ViewVC logotype

Diff of /emacs/lisp/ido.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.72 by kfstorm, Mon Aug 15 12:29:54 2005 UTC revision 1.73 by kfstorm, Wed Aug 17 11:17:41 2005 UTC
# Line 688  not provide the normal completion.  To s Line 688  not provide the normal completion.  To s
688    :type 'boolean    :type 'boolean
689    :group 'ido)    :group 'ido)
690    
691  (defcustom ido-enter-single-matching-directory 'slash  (defcustom ido-enter-matching-directory 'only
692    "*Automatically enter sub-directory if it is the only matching item, if non-nil.    "*Additional methods to enter sub-directory of first/only matching item.
693  If value is 'slash, only enter if typing final slash, else do it always."  If value is 'first, enter first matching sub-directory when typing a slash.
694    If value is 'only, typing a slash only enters the sub-directory if it is
695    the only matching item.
696    If value is t, automatically enter a sub-directory when it is the only
697    matching item, even without typing a slash."
698    :type '(choice (const :tag "Never" nil)    :type '(choice (const :tag "Never" nil)
699                   (const :tag "When typing /" slash)                   (const :tag "Slash enters first directory" first)
700                   (other :tag "Always" t))                   (const :tag "Slash enters first and only directory" only)
701                     (other :tag "Always enter unique directory" t))
702    :group 'ido)    :group 'ido)
703    
704  (defcustom ido-create-new-buffer 'prompt  (defcustom ido-create-new-buffer 'prompt
# Line 3992  For details of keybindings, do `\\[descr Line 3997  For details of keybindings, do `\\[descr
3997          (ido-set-matches)          (ido-set-matches)
3998          (ido-trace "new    " ido-matches)          (ido-trace "new    " ido-matches)
3999    
4000          (when (and ido-enter-single-matching-directory          (when (and ido-enter-matching-directory
4001                     ido-matches                     ido-matches
4002                     (null (cdr ido-matches))                     (or (eq ido-enter-matching-directory 'first)
4003                           (null (cdr ido-matches)))
4004                     (ido-final-slash (car ido-matches))                     (ido-final-slash (car ido-matches))
4005                     (or try-single-dir-match                     (or try-single-dir-match
4006                         (eq ido-enter-single-matching-directory t)))                         (eq ido-enter-matching-directory t)))
4007            (ido-trace "single match" (car ido-matches))            (ido-trace "single match" (car ido-matches))
4008            (ido-set-current-directory            (ido-set-current-directory
4009             (concat ido-current-directory (car ido-matches)))             (concat ido-current-directory (car ido-matches)))

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26