diff options
| author | Stefan Monnier | 2021-01-27 18:53:58 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2021-01-27 18:53:58 -0500 |
| commit | 30914167fd49e208c483541663f0275253e42227 (patch) | |
| tree | f0a5d20ae38692c1d38efd390968936742124edc | |
| parent | d93bca019713e98228aca9f4d1a4838a72b1cf92 (diff) | |
| download | emacs-30914167fd49e208c483541663f0275253e42227.tar.gz emacs-30914167fd49e208c483541663f0275253e42227.zip | |
* lisp/emacs-lisp/macroexp.el (macroexp-if): Fix typo
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 78f0b636a74..e842222b7c3 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el | |||
| @@ -377,7 +377,7 @@ Never returns an empty list." | |||
| 377 | (t | 377 | (t |
| 378 | `(cond (,test ,@(macroexp-unprogn then)) | 378 | `(cond (,test ,@(macroexp-unprogn then)) |
| 379 | (,(nth 1 else) ,@(macroexp-unprogn (nth 2 else))) | 379 | (,(nth 1 else) ,@(macroexp-unprogn (nth 2 else))) |
| 380 | ,@(let ((def (nthcdr 3 else))) (if def '((t ,@def)))))))) | 380 | ,@(let ((def (nthcdr 3 else))) (if def `((t ,@def)))))))) |
| 381 | ((eq (car-safe else) 'cond) | 381 | ((eq (car-safe else) 'cond) |
| 382 | `(cond (,test ,@(macroexp-unprogn then)) ,@(cdr else))) | 382 | `(cond (,test ,@(macroexp-unprogn then)) ,@(cdr else))) |
| 383 | ;; Invert the test if that lets us reduce the depth of the tree. | 383 | ;; Invert the test if that lets us reduce the depth of the tree. |