New variable completion-max-replace-secs

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 6d64bbea72eb2ad2dc6de6d6309a5f6c7b93481f..f2f4f67580fefd39e18e8b7e34f2672f215ef58b 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1445,6 +1445,8 @@ in the last `cdr'."
           (if completions 2 0)
           (if exact       1 0)))
 
+(defvar-local completion-max-replace-secs 0.1)
+
 (defun completion--replace (beg end newtext)
   "Replace the buffer text between BEG and END with NEWTEXT.
 Moves point to the end of the new text."
@@ -1455,7 +1457,7 @@ Moves point to the end of the new text."
   (remove-text-properties 0 (length newtext)
                           '(face nil display nil completion--unquoted nil)
                           newtext)
-  (replace-region-contents beg end newtext 0.1 nil 'inherit)
+  (replace-region-contents beg end newtext completion-max-replace-secs nil 'inherit)
   (goto-char (+ beg (length newtext))))
 
 (defvar completion-in-region-mode nil