Mercurial > emacs
comparison lisp/ido.el @ 49233:21e86bcdbabc
Remove final period from error message.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 14 Jan 2003 21:12:20 +0000 |
| parents | 93a6625a2ef3 |
| children | beca89eeabb3 |
comparison
equal
deleted
inserted
replaced
| 49232:e69194121f87 | 49233:21e86bcdbabc |
|---|---|
| 1956 (cond | 1956 (cond |
| 1957 ((and (memq ido-cur-item '(file dir)) | 1957 ((and (memq ido-cur-item '(file dir)) |
| 1958 (string-match "[$]" ido-text)) | 1958 (string-match "[$]" ido-text)) |
| 1959 (let ((evar (substitute-in-file-name (concat ido-current-directory ido-text)))) | 1959 (let ((evar (substitute-in-file-name (concat ido-current-directory ido-text)))) |
| 1960 (if (not (file-exists-p (file-name-directory evar))) | 1960 (if (not (file-exists-p (file-name-directory evar))) |
| 1961 (message "Expansion generates non-existing directory.") | 1961 (message "Expansion generates non-existing directory") |
| 1962 (if (file-directory-p evar) | 1962 (if (file-directory-p evar) |
| 1963 (ido-set-current-directory evar) | 1963 (ido-set-current-directory evar) |
| 1964 (let ((d (or (file-name-directory evar) "/")) | 1964 (let ((d (or (file-name-directory evar) "/")) |
| 1965 (f (file-name-nondirectory evar))) | 1965 (f (file-name-nondirectory evar))) |
| 1966 (when (file-directory-p d) | 1966 (when (file-directory-p d) |