/[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.21 by kfstorm, Mon Jan 13 23:05:13 2003 UTC revision 1.22 by kfstorm, Tue Jan 14 21:12:20 2003 UTC
# Line 1958  If INITIAL is non-nil, it specifies the Line 1958  If INITIAL is non-nil, it specifies the
1958             (string-match "[$]" ido-text))             (string-match "[$]" ido-text))
1959        (let ((evar (substitute-in-file-name (concat ido-current-directory ido-text))))        (let ((evar (substitute-in-file-name (concat ido-current-directory ido-text))))
1960          (if (not (file-exists-p (file-name-directory evar)))          (if (not (file-exists-p (file-name-directory evar)))
1961              (message "Expansion generates non-existing directory.")              (message "Expansion generates non-existing directory")
1962            (if (file-directory-p evar)            (if (file-directory-p evar)
1963                (ido-set-current-directory evar)                (ido-set-current-directory evar)
1964              (let ((d (or (file-name-directory evar) "/"))              (let ((d (or (file-name-directory evar) "/"))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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