diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-04-11 12:38:37 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-04-11 12:41:21 +0200 |
| commit | 01a513bf0beb9478e2ef801ca28ebc992455fe3c (patch) | |
| tree | d8a51e2abb3502b40460051206860b8e1b94f89f /test/lisp | |
| parent | 0334fa0532e63f22486b5142fa399decf54b18c0 (diff) | |
| download | emacs-01a513bf0beb9478e2ef801ca28ebc992455fe3c.tar.gz emacs-01a513bf0beb9478e2ef801ca28ebc992455fe3c.tar.bz2 emacs-01a513bf0beb9478e2ef801ca28ebc992455fe3c.zip | |
Fix typo in cconv
* lisp/emacs-lisp/cconv.el (cconv-convert): Typo.
* test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases):
Add test case.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 94e33a7770e..a11832d805e 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -437,6 +437,13 @@ (/ 1 0) (arith-error x)))) (list x y)) + + (funcall + (condition-case x + (/ 1 0) + (arith-error (prog1 (lambda (y) (+ y x)) + (setq x 10)))) + 4) ) "List of expressions for cross-testing interpreted and compiled code.") |