diff options
| author | Chong Yidong | 2008-04-09 15:38:32 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-04-09 15:38:32 +0000 |
| commit | dbf3ef782ec4ba45580696dde90692935d91cbca (patch) | |
| tree | 31d5fb33d9a9afd7f7cc93953e8b0208d255865a | |
| parent | 51876899bb0276586223028640e834eb4c1a84b2 (diff) | |
| download | emacs-dbf3ef782ec4ba45580696dde90692935d91cbca.tar.gz emacs-dbf3ef782ec4ba45580696dde90692935d91cbca.zip | |
(regexp-opt): Reduce max-lisp-eval-depth and max-specpdl-size to
10000.
| -rw-r--r-- | lisp/emacs-lisp/regexp-opt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index 51ed53e71fc..42a77de3d08 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el | |||
| @@ -101,8 +101,8 @@ If PAREN is `words', then the resulting regexp is additionally surrounded | |||
| 101 | by \\=\\< and \\>." | 101 | by \\=\\< and \\>." |
| 102 | (save-match-data | 102 | (save-match-data |
| 103 | ;; Recurse on the sorted list. | 103 | ;; Recurse on the sorted list. |
| 104 | (let* ((max-lisp-eval-depth (* 1024 1024)) | 104 | (let* ((max-lisp-eval-depth 10000) |
| 105 | (max-specpdl-size (* 1024 1024)) | 105 | (max-specpdl-size 10000) |
| 106 | (completion-ignore-case nil) | 106 | (completion-ignore-case nil) |
| 107 | (completion-regexp-list nil) | 107 | (completion-regexp-list nil) |
| 108 | (words (eq paren 'words)) | 108 | (words (eq paren 'words)) |