Copy the returned all-completions list

Copy the returned all-completions list so that it could be later destructively modified by the completion UI.
joaotavora · Jan 6, 2023 · bd3d07d · bd3d07d
1 parent 992e3f3
commit bd3d07d
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/sly-completion.el b/lib/sly-completion.el
@@ -262,12 +262,13 @@ ANNOTATION) describing each completion possibility."
                        (display-sort-function . identity)
                        (category . sly-completion)))
           ;; all completions
-          (`t (car (all)))
+          (`t (copy-sequence (car (all))))
           ;; try completion
           (`nil (try))
           (`(try-completion . ,point)
            (cons 'try-completion (cons string point)))
-          (`(all-completions . ,_point) (cons 'all-completions (car (all))))
+          (`(all-completions . ,_point) (cons 'all-completions
+                                              (copy-sequence (car (all)))))
           (`(boundaries . ,thing)
            (completion-boundaries string (all) pred thing))