mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* test/lisp/emacs-lisp/macroexp-tests.el (macroexp--tests-file-name): Add case

Browse source 
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.
This commit is contained in:
Stefan Monnier 2021-02-24 18:39:06 -05:00
parent d527bc4b7d
commit 8114a84b21
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test/lisp/emacs-lisp/macroexp-resources/m1.el
View file

@ -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