From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 20 Mar 2019 13:58:28 +0000 (-0400)
Subject: * lisp/minibuffer.el (completion-table-subvert): Fix typo from rev 5697ca55cb
X-Git-Tag: emacs-27.0.90~3383
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78c9c2a110aa94e82c90549c81e8911a006ee538;p=emacs.git

* lisp/minibuffer.el (completion-table-subvert): Fix typo from rev 5697ca55cb
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index df0acbb343d..dbd24dfa0a3 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -269,7 +269,7 @@ the form (concat S2 S)."
                     (+ beg (- (length s1) (length s2))))
               . ,(and (eq (car-safe res) 'boundaries) (cddr res)))))
          ((stringp res)
-          (if (string-prefix-p s2 string completion-ignore-case)
+          (if (string-prefix-p s2 res completion-ignore-case)
               (concat s1 (substring res (length s2)))))
          ((eq action t)
           (let ((bounds (completion-boundaries str table pred "")))