diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-11-04 12:54:53 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-11-04 12:56:25 +0000 |
| commit | 8e843831eaf271801836b7a3e4dd3b4fb0bb72b8 (patch) | |
| tree | ee0c22b58dae03ad9c509f301e6a86f844a1a213 /lisp | |
| parent | 587b2328377c32950a7ccf89f7c0b7d95db873af (diff) | |
| download | emacs-8e843831eaf271801836b7a3e4dd3b4fb0bb72b8.tar.gz | |
* lisp/subr.el (when): Use `macroexp-progn'
* test/automated/subr-tests.el (subr-test-when): New test
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index ea926ae1475..91647a67648 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -179,7 +179,7 @@ value of last one, or nil if there are none. \(fn COND BODY...)" (declare (indent 1) (debug t)) - (list 'if cond (cons 'progn body))) + (list 'if cond (macroexp-progn body))) (defmacro unless (cond &rest body) "If COND yields nil, do BODY, else return nil. |