aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoão Távora2019-11-19 23:53:10 +0000
committerJoão Távora2019-11-19 23:55:54 +0000
commitaa79f4e8c635537c50a50db211542c0f41443ae2 (patch)
tree235700e1a0994503b0cd18fc9d548a5c683533ac
parenta76a1d0c0b5c63bbed4eeeb7aa87269621956559 (diff)
downloademacs-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.el6
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)