diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-04-09 15:38:32 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-04-09 15:38:32 +0000 |
| commit | dbf3ef782ec4ba45580696dde90692935d91cbca (patch) | |
| tree | 31d5fb33d9a9afd7f7cc93953e8b0208d255865a | |
| parent | 51876899bb0276586223028640e834eb4c1a84b2 (diff) | |
| download | emacs-dbf3ef782ec4ba45580696dde90692935d91cbca.tar.gz | |
(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 by \\=\\< and \\>." (save-match-data ;; Recurse on the sorted list. - (let* ((max-lisp-eval-depth (* 1024 1024)) - (max-specpdl-size (* 1024 1024)) + (let* ((max-lisp-eval-depth 10000) + (max-specpdl-size 10000) (completion-ignore-case nil) (completion-regexp-list nil) (words (eq paren 'words)) |