# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1010536310 0
# Node ID ad0233037e249fff77cf9725add62b7c4a5ce851
# Parent  b05730e3a07c94dfc42ef843fab11a3cfdaa548a
(regexp-opt): Bind max-specpdl-size.

diff -r b05730e3a07c -r ad0233037e24 lisp/emacs-lisp/regexp-opt.el
--- a/lisp/emacs-lisp/regexp-opt.el	Tue Jan 08 23:57:49 2002 +0000
+++ b/lisp/emacs-lisp/regexp-opt.el	Wed Jan 09 00:31:50 2002 +0000
@@ -101,6 +101,7 @@
   (save-match-data
     ;; Recurse on the sorted list.
     (let* ((max-lisp-eval-depth (* 1024 1024))
+	   (max-specpdl-size (* 1024 1024))
 	   (completion-ignore-case nil)
 	   (completion-regexp-list nil)
 	   (words (eq paren 'words))