2138 |
(ido-record-command method dirname) |
(ido-record-command method dirname) |
2139 |
(ido-record-work-directory) |
(ido-record-work-directory) |
2140 |
(funcall method dirname)) |
(funcall method dirname)) |
2141 |
((y-or-n-p (format "Directory %s does not exist. Create it " filename)) |
((y-or-n-p (format "Directory %s does not exist. Create it? " filename)) |
2142 |
(ido-record-command method dirname) |
(ido-record-command method dirname) |
2143 |
(ido-record-work-directory dirname) |
(ido-record-work-directory dirname) |
2144 |
(make-directory-internal dirname) |
(make-directory-internal dirname) |
3529 |
(file-exists-p file) |
(file-exists-p file) |
3530 |
(not (file-directory-p file)) |
(not (file-directory-p file)) |
3531 |
(file-writable-p ido-current-directory) |
(file-writable-p ido-current-directory) |
3532 |
(yes-or-no-p (concat "Delete " file " "))) |
(yes-or-no-p (concat "Delete " file "? "))) |
3533 |
(delete-file file) |
(delete-file file) |
3534 |
;; Check if file still exists. |
;; Check if file still exists. |
3535 |
(if (file-exists-p file) |
(if (file-exists-p file) |