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

This commit is contained in:
Richard M. Stallman 2002-01-09 00:31:58 +00:00
parent e3b2eba1b6
commit f3bd3e5ff1
2 changed files with 3 additions and 0 deletions

View file

@ -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.

View file

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