diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-03-20 09:58:28 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-03-20 09:58:28 -0400 |
| commit | 78c9c2a110aa94e82c90549c81e8911a006ee538 (patch) | |
| tree | 445f76dbe196454c794d9d9a830e82cbd35eefd7 | |
| parent | 65b395d7ccd6333c953328d7bf3116d52324285a (diff) | |
| download | emacs-78c9c2a110aa94e82c90549c81e8911a006ee538.tar.gz emacs-78c9c2a110aa94e82c90549c81e8911a006ee538.tar.bz2 emacs-78c9c2a110aa94e82c90549c81e8911a006ee538.zip | |
* lisp/minibuffer.el (completion-table-subvert): Fix typo from rev 5697ca55cb
| -rw-r--r-- | lisp/minibuffer.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 ""))) |