- (let ((max-lisp-eval-depth (* 1024 1024))
- (completion-ignore-case nil))
- (setq paren (cond ((stringp paren) paren) (paren "\\(")))
- (regexp-opt-group (sort (copy-sequence strings) 'string-lessp) paren))))
+ (let* ((max-lisp-eval-depth (* 1024 1024))
+ (max-specpdl-size (* 1024 1024))
+ (completion-ignore-case nil)
+ (completion-regexp-list nil)
+ (words (eq paren 'words))
+ (open (cond ((stringp paren) paren) (paren "\\(")))
+ (sorted-strings (delete-dups
+ (sort (copy-sequence strings) 'string-lessp)))
+ (re (regexp-opt-group sorted-strings open)))
+ (if words (concat "\\<" re "\\>") re))))