mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

* src/eval.c (Fmacroexpand): Stop if the macro returns the same form.

Browse Source
This commit is contained in:
Stefan Monnier 2012-06-07 22:47:26 -04:00
parent 0e8bbf6690
commit 4f18a4ed84
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ChangeLog
View File

@ -1,3 +1,7 @@
2012-06-08 Stefan Monnier <monnier@iro.umontreal.ca>
* eval.c (Fmacroexpand): Stop if the macro returns the same form.
2012-06-07 Paul Eggert <eggert@cs.ucla.edu>
* doprnt.c (doprnt): Truncate multibyte char correctly.

8
src/eval.c
View File

@ -1020,7 +1020,13 @@ definitions to shadow the loaded ones for use in file byte-compilation. */)
if (NILP (expander))
break;
}
form = apply1 (expander, XCDR (form));
{
Lisp_Object newform = apply1 (expander, XCDR (form));
if (EQ (form, newform))
break;
else
form = newform;
}
}
return form;
}