diff options
author | Tom Tromey <tromey@redhat.com> | 2013-07-06 23:18:58 -0600 |
---|---|---|
committer | Tom Tromey <tromey@redhat.com> | 2013-07-06 23:18:58 -0600 |
commit | 6dacdad5fcb278e5a16b38bb81786aac9ca27be4 (patch) | |
tree | f5f331ea361ba0f99e0f9b638d183ad492a7da31 /src/print.c | |
parent | 0a6f2ff0c8ceb29703e76cddd46ea3f176dd873a (diff) | |
parent | 219afb88d9d484393418820d1c08dc93299110ec (diff) | |
download | emacs-6dacdad5fcb278e5a16b38bb81786aac9ca27be4.tar.gz |
merge from trunk
this merges frmo trunk and fixes various build issues.
this needed a few ugly tweaks.
this hangs in "make check" now
Diffstat (limited to 'src/print.c')
-rw-r--r-- | src/print.c | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/print.c b/src/print.c index 979b732a057..09519d93cfe 100644 --- a/src/print.c +++ b/src/print.c @@ -20,7 +20,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ #include <config.h> -#include <stdio.h> +#include "sysstdio.h" #include "lisp.h" #include "character.h" @@ -765,7 +765,7 @@ append to existing target file. */) { file = Fexpand_file_name (file, Qnil); initial_stderr_stream = stderr; - stderr = fopen (SSDATA (file), NILP (append) ? "w" : "a"); + stderr = emacs_fopen (SSDATA (file), NILP (append) ? "w" : "a"); if (stderr == NULL) { stderr = initial_stderr_stream; @@ -2139,6 +2139,12 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) v->data[index].pointer); break; + case SAVE_FUNCPOINTER: + i = sprintf (buf, "<funcpointer %p>", + ((void *) (intptr_t) + v->data[index].funcpointer)); + break; + case SAVE_INTEGER: i = sprintf (buf, "<integer %"pD"d>", v->data[index].integer); @@ -2148,6 +2154,9 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) print_object (v->data[index].object, printcharfun, escapeflag); continue; + + default: + emacs_abort (); } strout (buf, i, i, printcharfun); |