diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-02-24 18:39:06 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-02-24 18:39:06 -0500 |
| commit | 8114a84b21b2463ea35db7f3a18fd3804396f47e (patch) | |
| tree | 1fabbc1872183388273989aaac5dd07720bdf6c8 /test/lisp/emacs-lisp/macroexp-resources/m1.el | |
| parent | d527bc4b7d2f69d8b3ae76be78fb9610419bd800 (diff) | |
| download | emacs-8114a84b21b2463ea35db7f3a18fd3804396f47e.tar.gz emacs-8114a84b21b2463ea35db7f3a18fd3804396f47e.tar.bz2 emacs-8114a84b21b2463ea35db7f3a18fd3804396f47e.zip | |
* test/lisp/emacs-lisp/macroexp-tests.el (macroexp--tests-file-name): Add case
Add use of `macroexp-file-name` from a macro called from within
a function, which works thanks to eager-macroexpansion (so the macro
is expanded which the file is being loaded rather than only later
when the function is called).
* test/lisp/emacs-lisp/macroexp-resources/m1.el
(macroexp--m1-tests-file-name): New function.
Diffstat (limited to 'test/lisp/emacs-lisp/macroexp-resources/m1.el')
| -rw-r--r-- | test/lisp/emacs-lisp/macroexp-resources/m1.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/macroexp-resources/m1.el b/test/lisp/emacs-lisp/macroexp-resources/m1.el index a2fe6ecf2ed..96b5f7091af 100644 --- a/test/lisp/emacs-lisp/macroexp-resources/m1.el +++ b/test/lisp/emacs-lisp/macroexp-resources/m1.el @@ -29,5 +29,8 @@ (eval-when-compile (defconst macroexp--m1-tests-comp-filename (macroexp-file-name))) +(defun macroexp--m1-tests-file-name () + (macroexp--test-get-file-name)) + (provide 'm1) ;;; m1.el ends here |