From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 9 Apr 2008 15:38:32 +0000 (+0000)
Subject: (regexp-opt): Reduce max-lisp-eval-depth and max-specpdl-size to
X-Git-Tag: emacs-pretest-23.0.90~6389
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbf3ef782ec4ba45580696dde90692935d91cbca;p=emacs.git

(regexp-opt): Reduce max-lisp-eval-depth and max-specpdl-size to
10000.
---

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))