(minibuffer-narrow-completions-to-current): Drop text props

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 2ed61bd24ac0cb1af49c217979bac6d4cb6248da..1c636a5fab943181ade0ebd2a60b10ace8b48491 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -6134,7 +6134,7 @@ exclude matches to current input from completions list."
   (let* ((table (make-hash-table :test #'equal))
          (beg-end (minibuffer--completion-boundaries))
          (beg (car beg-end)) (end (cdr beg-end))
-         (current (buffer-substring beg end))
+         (current (buffer-substring-no-properties beg end))
          (start (minibuffer-prompt-end))
          (input (buffer-substring start (point-max)))
          (all (completion-all-completions