Mercurial > emacs
comparison lisp/emacs-lisp/regexp-opt.el @ 42625:ad0233037e24
(regexp-opt): Bind max-specpdl-size.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 09 Jan 2002 00:31:50 +0000 |
| parents | e78fbcf9b878 |
| children | 20781c152651 8eba780a3a36 |
comparison
equal
deleted
inserted
replaced
| 42624:b05730e3a07c | 42625:ad0233037e24 |
|---|---|
| 99 If PAREN is `words', then the resulting regexp is additionally surrounded | 99 If PAREN is `words', then the resulting regexp is additionally surrounded |
| 100 by \\=\\< and \\>." | 100 by \\=\\< and \\>." |
| 101 (save-match-data | 101 (save-match-data |
| 102 ;; Recurse on the sorted list. | 102 ;; Recurse on the sorted list. |
| 103 (let* ((max-lisp-eval-depth (* 1024 1024)) | 103 (let* ((max-lisp-eval-depth (* 1024 1024)) |
| 104 (max-specpdl-size (* 1024 1024)) | |
| 104 (completion-ignore-case nil) | 105 (completion-ignore-case nil) |
| 105 (completion-regexp-list nil) | 106 (completion-regexp-list nil) |
| 106 (words (eq paren 'words)) | 107 (words (eq paren 'words)) |
| 107 (open (cond ((stringp paren) paren) (paren "\\("))) | 108 (open (cond ((stringp paren) paren) (paren "\\("))) |
| 108 (sorted-strings (sort (copy-sequence strings) 'string-lessp)) | 109 (sorted-strings (sort (copy-sequence strings) 'string-lessp)) |