Mercurial > emacs
comparison lisp/ido.el @ 65689:96187e7edd1b
2005-09-25 Romain Francoise <romain@orebokech.com>
* dired-aux.el (dired-copy-file-recursive):
* dired.el (dired-delete-file):
* ediff-mult.el (ediff-dir-diff-copy-file):
* ediff-util.el (ediff-test-save-region):
* forms.el (forms-mode):
* ido.el (ido-file-internal, ido-delete-file-at-head):
* log-edit.el (log-edit-done):
* ses.el (ses-yank-resize):
* play/gomoku.el (gomoku-human-plays, gomoku)
(gomoku-human-resigns, gomoku-prompt-for-other-game)
(gomoku-offer-a-draw):
* play/landmark.el (lm-human-resigns, lm):
* net/eudcb-ldap.el (eudc-ldap-check-base):
* play/mpuz.el (mpuz-offer-abort, mpuz-try-letter, mpuz-close-game):
* progmodes/ebrowse.el (ebrowse-find-pattern):
* progmodes/idlw-shell.el (idlwave-shell-set-bp-check):
* textmodes/reftex-index.el (reftex-index-initialize-phrases-buffer):
End `yes-or-no-p' and `y-or-n-p' prompts with question mark and
space.
* vc.el (vc-delete-file):
* play/gomoku.el (gomoku-terminate-game, gomoku)
(gomoku-prompt-for-move, gomoku-human-takes-back):
* play/landmark.el (lm-human-takes-back, lm-prompt-for-move)
(lm-start-robot, lm-human-plays): Remove extraneous spaces in
messages.
author | Romain Francoise <romain@orebokech.com> |
---|---|
date | Sat, 24 Sep 2005 23:26:28 +0000 |
parents | 772a2f08bdbd |
children | 4c1b9d579db1 ee12d75eb214 |
comparison
equal
deleted
inserted
replaced
65688:41260182da5b | 65689:96187e7edd1b |
---|---|
2136 ((string-match "[[*?]" filename) | 2136 ((string-match "[[*?]" filename) |
2137 (setq dirname (concat ido-current-directory filename)) | 2137 (setq dirname (concat ido-current-directory filename)) |
2138 (ido-record-command method dirname) | 2138 (ido-record-command method dirname) |
2139 (ido-record-work-directory) | 2139 (ido-record-work-directory) |
2140 (funcall method dirname)) | 2140 (funcall method dirname)) |
2141 ((y-or-n-p (format "Directory %s does not exist. Create it " filename)) | 2141 ((y-or-n-p (format "Directory %s does not exist. Create it? " filename)) |
2142 (ido-record-command method dirname) | 2142 (ido-record-command method dirname) |
2143 (ido-record-work-directory dirname) | 2143 (ido-record-work-directory dirname) |
2144 (make-directory-internal dirname) | 2144 (make-directory-internal dirname) |
2145 (funcall method dirname)) | 2145 (funcall method dirname)) |
2146 (t | 2146 (t |
3527 (setq file (concat ido-current-directory file))) | 3527 (setq file (concat ido-current-directory file))) |
3528 (when (and file | 3528 (when (and file |
3529 (file-exists-p file) | 3529 (file-exists-p file) |
3530 (not (file-directory-p file)) | 3530 (not (file-directory-p file)) |
3531 (file-writable-p ido-current-directory) | 3531 (file-writable-p ido-current-directory) |
3532 (yes-or-no-p (concat "Delete " file " "))) | 3532 (yes-or-no-p (concat "Delete " file "? "))) |
3533 (delete-file file) | 3533 (delete-file file) |
3534 ;; Check if file still exists. | 3534 ;; Check if file still exists. |
3535 (if (file-exists-p file) | 3535 (if (file-exists-p file) |
3536 ;; file could not be deleted | 3536 ;; file could not be deleted |
3537 (setq ido-rescan t) | 3537 (setq ido-rescan t) |