Commit 6e5fd493 authored by Dmitry Antipov's avatar Dmitry Antipov

* lisp.h (make_local_string): Nitpick indent.

* print.c (Fprin1_to_string): Remove unused GCPROs.
parent b3ed13e8
2014-09-11 Dmitry Antipov <dmantipov@yandex.ru>
* lisp.h (make_local_string): Nitpick indent.
* print.c (Fprin1_to_string): Remove unused GCPROs.
2014-09-11 Paul Eggert <eggert@cs.ucla.edu>
Pacify --enable-gcc-warnings when no window system is used.
......
......@@ -4594,8 +4594,8 @@ verify (sizeof (struct Lisp_Cons) == sizeof (union Aligned_Cons));
Lisp_Object string_; \
if (nbytes_ <= MAX_ALLOCA - sizeof (struct Lisp_String) - 1) \
{ \
struct Lisp_String *ptr_ = alloca (sizeof (struct Lisp_String) + 1 \
+ nbytes_); \
struct Lisp_String *ptr_ \
= alloca (sizeof (struct Lisp_String) + 1 + nbytes_); \
string_ = local_string_init (ptr_, data_, nbytes_); \
} \
else \
......
......@@ -583,7 +583,6 @@ A printed representation of an object is text which describes that object. */)
{
Lisp_Object printcharfun;
bool prev_abort_on_gc;
/* struct gcpro gcpro1, gcpro2; */
Lisp_Object save_deactivate_mark;
ptrdiff_t count = SPECPDL_INDEX ();
struct buffer *previous;
......@@ -597,7 +596,6 @@ A printed representation of an object is text which describes that object. */)
but we don't want to deactivate the mark just for that.
No need for specbind, since errors deactivate the mark. */
save_deactivate_mark = Vdeactivate_mark;
/* GCPRO2 (object, save_deactivate_mark); */
prev_abort_on_gc = abort_on_gc;
abort_on_gc = 1;
......@@ -621,7 +619,6 @@ A printed representation of an object is text which describes that object. */)
set_buffer_internal (previous);
Vdeactivate_mark = save_deactivate_mark;
/* UNGCPRO; */
abort_on_gc = prev_abort_on_gc;
return unbind_to (count, object);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment