Commit f8b25a51 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/loadup.el: Increase max-lisp-eval-depth while macroexpanding macroexp.

parent 2b968ea6
2014-09-22 Stefan Monnier <monnier@iro.umontreal.ca> 2014-09-22 Stefan Monnier <monnier@iro.umontreal.ca>
   
* loadup.el: Increase max-lisp-eval-depth while macroexpanding macroexp.el.
* emacs-lisp/pcase.el: Allow (F . ARGS) in `app' patterns. * emacs-lisp/pcase.el: Allow (F . ARGS) in `app' patterns.
(pcase--funcall, pcase--eval): New functions. (pcase--funcall, pcase--eval): New functions.
(pcase--u1): Use them for guard, pred, let, and app. (pcase--u1): Use them for guard, pred, let, and app.
......
...@@ -119,7 +119,8 @@ ...@@ -119,7 +119,8 @@
(let ((macroexp--pending-eager-loads '(skip))) (let ((macroexp--pending-eager-loads '(skip)))
(load "emacs-lisp/pcase")) (load "emacs-lisp/pcase"))
;; Re-load macroexp so as to eagerly macro-expand its uses of pcase. ;; Re-load macroexp so as to eagerly macro-expand its uses of pcase.
(load "emacs-lisp/macroexp")) (let ((max-lisp-eval-depth (* 2 max-lisp-eval-depth)))
(load "emacs-lisp/macroexp")))
(load "cus-face") (load "cus-face")
(load "faces") ; after here, `defface' may be used. (load "faces") ; after here, `defface' may be used.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment