Skip to content
Snippets Groups Projects
Commit 53cb30ad authored by Raymond Toy's avatar Raymond Toy
Browse files

Minor fix from Paul: avoid capitalizing mid-name in the completions

list.
parent 768d6a34
No related branches found
No related tags found
No related merge requests found
...@@ -1286,7 +1286,7 @@ ...@@ -1286,7 +1286,7 @@
(let* ((base (mip result)) (let* ((base (mip result))
(node (search-dictionary base dict))) (node (search-dictionary base dict)))
(values (str base) (values (str base)
(sort (mapcar (lambda (x) (str (subseq x (length base)))) (sort (mapcar (lambda (x) (subseq (str x) (length base)))
(delete base result :test #'string=)) (delete base result :test #'string=))
#'string<) #'string<)
(and node (completep node))))))) (and node (completep node)))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment