(regexp-opt): Reduce max-lisp-eval-depth and max-specpdl-size to

10000.
This commit is contained in:
Chong Yidong 2008-04-09 15:38:32 +00:00
parent 51876899bb
commit dbf3ef782e

View file

@ -101,8 +101,8 @@ If PAREN is `words', then the resulting regexp is additionally surrounded
by \\=\\< and \\>."
(save-match-data
;; Recurse on the sorted list.
(let* ((max-lisp-eval-depth (* 1024 1024))
(max-specpdl-size (* 1024 1024))
(let* ((max-lisp-eval-depth 10000)
(max-specpdl-size 10000)
(completion-ignore-case nil)
(completion-regexp-list nil)
(words (eq paren 'words))