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) "/")) |