mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 09:51:22 -08:00
Code Issues Projects Releases Wiki Activity

(Fformat): Use a copy of FORMAT string so that we can

Browse source 
destructively change "%S" to "%s".
This commit is contained in:
Kenichi Handa 2003-04-04 10:47:26 +00:00
parent efc13f4638
commit aa8b70aef5
2 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2003-04-04 Kenichi Handa <handa@etlken2>
* editfns.c (Fformat): Use a copy of FORMAT string so that we can
destructively change "%S" to "%s".
2003-04-03 Miles Bader <miles@gnu.org>
* xfaces.c (choose_face_font): Make sure *NEEDS_OVERSTRIKE is

7
src/editfns.c
View file

@ -3240,6 +3240,8 @@ usage: (format STRING &rest OBJECTS) */)
}
CHECK_STRING (args[0]);
/* We may have to change "%S" to "%s". */
args[0] = Fcopy_sequence (args[0]);
/* If we start out planning a unibyte result,
and later find it has to be multibyte, we jump back to retry. */
@ -3326,6 +3328,11 @@ usage: (format STRING &rest OBJECTS) */)
goto retry;
}
args[n] = tem;
/* If we restart the loop, we should not come here again
because args[n] is now a string and calling
Fprin1_to_string on it produces superflous double
quotes. So, change "%S" to "%s" now. */
*format = 's';
goto string;
}
else if (SYMBOLP (args[n]))