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

(print_object): Print Lisp_Misc_Save_Value objects.

Browse source
This commit is contained in:
Kim F. Storm 2004-11-05 22:46:17 +00:00
parent a849088643
commit c069fee4e7
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/print.c
View file

@ -2085,6 +2085,15 @@ print_object (obj, printcharfun, escapeflag)
PRINTCHAR ('>');
break;
case Lisp_Misc_Save_Value:
strout ("#<save_value ", -1, -1, printcharfun, 0);
sprintf(buf, "ptr=0x%08x int=%d",
(unsigned long) XSAVE_VALUE (obj)->pointer,
XSAVE_VALUE (obj)->integer);
strout (buf, -1, -1, printcharfun, 0);
PRINTCHAR ('>');
break;
default:
goto badtype;
}