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

This commit is contained in:
Stefan Monnier 2019-03-20 09:58:28 -04:00
parent 65b395d7cc
commit 78c9c2a110

View file

@ -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 "")))