diff options
| author | João Távora | 2019-11-19 23:53:10 +0000 |
|---|---|---|
| committer | João Távora | 2019-11-19 23:55:54 +0000 |
| commit | aa79f4e8c635537c50a50db211542c0f41443ae2 (patch) | |
| tree | 235700e1a0994503b0cd18fc9d548a5c683533ac | |
| parent | a76a1d0c0b5c63bbed4eeeb7aa87269621956559 (diff) | |
| download | emacs-aa79f4e8c635537c50a50db211542c0f41443ae2.tar.gz emacs-aa79f4e8c635537c50a50db211542c0f41443ae2.zip | |
* lisp/icomplete.el (icomplete-fido-kill): Unbreak yes-or-no-p usage
Discussed in the context of bug#19064, bug#17272.
| -rw-r--r-- | lisp/icomplete.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 8410ca5c3e1..16167ea21e1 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el | |||
| @@ -253,7 +253,11 @@ require user confirmation." | |||
| 253 | (path (expand-file-name thing dir))) | 253 | (path (expand-file-name thing dir))) |
| 254 | (when (yes-or-no-p (concat "Delete file " path "? ")) | 254 | (when (yes-or-no-p (concat "Delete file " path "? ")) |
| 255 | (delete-file path) t))))))) | 255 | (delete-file path) t))))))) |
| 256 | (when (funcall action) | 256 | (when (let (;; Allow `yes-or-no-p' to work and don't let it |
| 257 | ;; `icomplete-exhibit' anything. | ||
| 258 | (enable-recursive-minibuffers t) | ||
| 259 | (icomplete-mode nil)) | ||
| 260 | (funcall action)) | ||
| 257 | (completion--cache-all-sorted-completions | 261 | (completion--cache-all-sorted-completions |
| 258 | (icomplete--field-beg) | 262 | (icomplete--field-beg) |
| 259 | (icomplete--field-end) | 263 | (icomplete--field-end) |