From f3bd3e5ff1888a4cef074c2ad0a3fa3de4c4e437 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 9 Jan 2002 00:31:58 +0000
Subject: (regexp-opt): Bind max-specpdl-size.

---
 lisp/emacs-lisp/regexp-opt.el | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lisp/emacs-lisp')

diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index 9e95eeb8fc9..e46ad2ca3e5 100644
--- 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))
-- 
cgit v1.2.3