diff options
| author | Stefan Monnier | 2019-03-20 09:58:28 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-03-20 09:58:28 -0400 |
| commit | 78c9c2a110aa94e82c90549c81e8911a006ee538 (patch) | |
| tree | 445f76dbe196454c794d9d9a830e82cbd35eefd7 | |
| parent | 65b395d7ccd6333c953328d7bf3116d52324285a (diff) | |
| download | emacs-78c9c2a110aa94e82c90549c81e8911a006ee538.tar.gz 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)." | |||
| 269 | (+ beg (- (length s1) (length s2)))) | 269 | (+ beg (- (length s1) (length s2)))) |
| 270 | . ,(and (eq (car-safe res) 'boundaries) (cddr res))))) | 270 | . ,(and (eq (car-safe res) 'boundaries) (cddr res))))) |
| 271 | ((stringp res) | 271 | ((stringp res) |
| 272 | (if (string-prefix-p s2 string completion-ignore-case) | 272 | (if (string-prefix-p s2 res completion-ignore-case) |
| 273 | (concat s1 (substring res (length s2))))) | 273 | (concat s1 (substring res (length s2))))) |
| 274 | ((eq action t) | 274 | ((eq action t) |
| 275 | (let ((bounds (completion-boundaries str table pred ""))) | 275 | (let ((bounds (completion-boundaries str table pred ""))) |