(regexp-opt): Bind max-specpdl-size.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7666677abc220f32f195810b5d1c00a64cf7482..01dd7bff8c9f5b40b0dec7941f18c64b9638f7ce 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-08  Richard M. Stallman  <rms@gnu.org>
 
+       * emacs-lisp/regexp-opt.el (regexp-opt): Bind max-specpdl-size.
+
        * emacs-lisp/eldoc.el (eldoc-minor-mode-string): Fix custom type.
 
        * textmodes/flyspell.el (flyspell-mode-line-string): Fix custom type.

diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index 9e95eeb8fc9d6bb8ea968de7e93945b95cabcff9..e46ad2ca3e58ff292281b5afa8560c8728df42d4 100644 (file)
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -101,6 +101,7 @@ by \\=\\< and \\>."
   (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))