102 |
;; Recurse on the sorted list. |
;; Recurse on the sorted list. |
103 |
(let* ((max-lisp-eval-depth (* 1024 1024)) |
(let* ((max-lisp-eval-depth (* 1024 1024)) |
104 |
(completion-ignore-case nil) |
(completion-ignore-case nil) |
105 |
|
(completion-regexp-list nil) |
106 |
(words (eq paren 'words)) |
(words (eq paren 'words)) |
107 |
(open (cond ((stringp paren) paren) (paren "\\("))) |
(open (cond ((stringp paren) paren) (paren "\\("))) |
108 |
(sorted-strings (sort (copy-sequence strings) 'string-lessp)) |
(sorted-strings (sort (copy-sequence strings) 'string-lessp)) |