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

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.

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