[Emacs-diffs] Changes to emacs/lisp/ido.el

[Kim F . Storm]

Index: emacs/lisp/ido.el
diff -c emacs/lisp/ido.el:1.59 emacs/lisp/ido.el:1.60
*** emacs/lisp/ido.el:1.59      Mon Jun  6 12:48:02 2005
--- emacs/lisp/ido.el   Wed Jun  8 12:00:46 2005
***************
*** 4193,4199 ****
          (eq (get this-command 'ido) 'dir)
          (memq this-command ido-read-file-name-as-directory-commands))
        (setq filename
!           (ido-read-directory-name prompt dir default-filename mustmatch 
initial)))
       ((and (not (eq (get this-command 'ido) 'ignore))
           (not (memq this-command ido-read-file-name-non-ido))
           (or (null predicate) (eq predicate 'file-exists-p)))
--- 4193,4201 ----
          (eq (get this-command 'ido) 'dir)
          (memq this-command ido-read-file-name-as-directory-commands))
        (setq filename
!           (ido-read-directory-name prompt dir default-filename mustmatch 
initial))
!       (if (eq ido-exit 'fallback)
!         (setq filename 'fallback)))
       ((and (not (eq (get this-command 'ido) 'ignore))
           (not (memq this-command ido-read-file-name-non-ido))
           (or (null predicate) (eq predicate 'file-exists-p)))