mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(Fwith_output_to_temp_buffer): Align with

Browse source 
internal_with_output_to_temp_buffer.
(print_preprocess): Use traverse_intervals_noorder.
(print_object): Update call to traverse_intervals.
This commit is contained in:
Stefan Monnier 2001-10-12 22:06:10 +00:00
parent df1958c4fe
commit 8bbfc25801
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/print.c
View file

@ -660,15 +660,16 @@ buffer and calling the hook. It gets one argument, the buffer to display.")
GCPRO1(args);
name = Feval (Fcar (args));
UNGCPRO;
CHECK_STRING (name, 0);
temp_output_buffer_setup (XSTRING (name)->data);
buf = Vstandard_output;
UNGCPRO;
val = Fprogn (Fcdr (args));
val = Fprogn (XCDR (args));
GCPRO1 (val);
temp_output_buffer_show (buf);
UNGCPRO;
return unbind_to (count, val);
}
@ -1247,8 +1248,8 @@ print_preprocess (obj)
{
case Lisp_String:
/* A string may have text properties, which can be circular. */
traverse_intervals (XSTRING (obj)->intervals, 0, 0,
print_preprocess_string, Qnil);
traverse_intervals_noorder (XSTRING (obj)->intervals,
print_preprocess_string, Qnil);
break;
case Lisp_Cons:
@ -1467,7 +1468,7 @@ print_object (obj, printcharfun, escapeflag)
if (!NULL_INTERVAL_P (XSTRING (obj)->intervals))
{
traverse_intervals (XSTRING (obj)->intervals,
0, 0, print_interval, printcharfun);
0, print_interval, printcharfun);
PRINTCHAR (')');
}