diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2019-11-09 21:56:30 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-11-09 21:56:30 +0200 |
| commit | f2019fc676c2206bbdc53855e3bc4f1086676d3d (patch) | |
| tree | 5396d1b08da9f2592ac76fffee3b5bd93b19b70c /test/src/minibuf-tests.el | |
| parent | a1a724d73afae87b8c4daa2d64382be06fa37d0e (diff) | |
| download | emacs-f2019fc676c2206bbdc53855e3bc4f1086676d3d.tar.gz emacs-f2019fc676c2206bbdc53855e3bc4f1086676d3d.tar.bz2 emacs-f2019fc676c2206bbdc53855e3bc4f1086676d3d.zip | |
Fix case-insensitive completion of buffer names
* test/src/minibuf-tests.el (test-try-completion-ignore-case):
New test, suggested by Stefan Monnier <monnier@iro.umontreal.ca>.
* src/minibuf.c (Ftry_completion): Don't treat strings that
are identical but for the case as if they were identical for
the purposes of not counting the same string twice. This
fixes case-insensitive completion when all the candidates are
identical but for the letter-case. (Bug#11339)
Diffstat (limited to 'test/src/minibuf-tests.el')
| -rw-r--r-- | test/src/minibuf-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/src/minibuf-tests.el b/test/src/minibuf-tests.el index 12b018b8228..c64892822d6 100644 --- a/test/src/minibuf-tests.el +++ b/test/src/minibuf-tests.el @@ -399,5 +399,16 @@ (minibuf-tests--test-completion-regexp #'minibuf-tests--strings-to-symbol-hashtable)) +(ert-deftest test-try-completion-ignore-case () + (let ((completion-ignore-case t)) + (should (equal (try-completion "bar" '("bAr" "barfoo")) "bAr")) + (should (equal (try-completion "bar" '("bArfoo" "barbaz")) "bar")) + (should (equal (try-completion "bar" '("bArfoo" "barbaz")) + (try-completion "bar" '("barbaz" "bArfoo")))) + ;; bug#11339 + (should (equal (try-completion "baz" '("baz" "bAz")) "baz")) ;And not `t'! + (should (equal (try-completion "baz" '("bAz" "baz")) + (try-completion "baz" '("baz" "bAz")))))) + ;;; minibuf-tests.el ends here |