branch: master
commit 964eb4846e196d0a4cd3dfb90dda19e2f7283750
Author: Ian Dunn <du...@gnu.org>
Commit: Ian Dunn <du...@gnu.org>
Fixed bug in completion
* paced.el (paced-dictionary-fix-completion-case): Fix use of mapcar.
* paced-tests.el (paced-completions-try-completion-mixed-case): New test.
---
paced-tests.el | 13 +++++++++++++
paced.el | 3 ++-
2 files changed, 15 insertions(+), 1 deletion(-)
diff --git a/paced-tests.el b/paced-tests.el
index 16c80f6..ada02f3 100644
--- a/paced-tests.el
+++ b/paced-tests.el
@@ -400,6 +400,19 @@
(let ((completions (paced-dictionary-completions test-dict "o" nil)))
(should (equal completions '("o"))))))
+(ert-deftest paced-completions-try-completion-mixed-case ()
+ (let* ((paced--registered-dictionaries paced-test-default-registered-map)
+ (paced-global-dict-enable-alist '((text-mode . "test-dict-case")))
+ (cmd (paced-file-population-command :file paced-first-test-file))
+ (test-dict (paced-make-dictionary "test-dict-case"
+ paced-test-dict-save-file
+ 'mixed-case)))
+ (should (paced-dictionary-p test-dict))
+ (oset test-dict population-commands (list cmd))
+ (paced-dictionary-repopulate test-dict)
+ (let ((completions (paced-dictionary-completions test-dict "o" nil)))
+ (should (equal completions '("o"))))))
+
(ert-deftest paced-completions-all-completions ()
(let* ((paced--registered-dictionaries paced-test-default-registered-map)
(paced-global-dict-enable-alist '((text-mode . "test-dict-case")))
diff --git a/paced.el b/paced.el
index 128a04a..4d2f4d4 100644
--- a/paced.el
+++ b/paced.el
@@ -693,7 +693,8 @@ case-handling in `paced-dictionary-process-word'."
(if (paced-mixed-case-word-p completion)
completion
(concat (substring prefix 0 prefix-length)
- (substring-no-properties completion
prefix-length)))))))))))
+ (substring-no-properties completion prefix-length)))))
+ completions))))))
(cl-defmethod paced-dictionary-completions ((dict paced-dictionary) prefix
action &optional pred)
"Get the completions for PREFIX in DICT.
