[PATCH] src/eval.c (Fbacktrace): Avoid unnecessary strlen calls

[PATCH] src/eval.c (Fbacktrace): Avoid unnecessary strlen calls

[Lee Duhem]

---
 src/ChangeLog | 4 ++++
 src/eval.c    | 8 ++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index 448de36..c6e3c59 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-25  Lee Duhem  <lee.duhem@gmail.com>
+
+ * eval.c(Fbacktrace): Avoid unnecessary strlen calls.
+
 2014-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>

  * gnutls.c: Fix compilation warnings given fix --enable-gcc-warnings.
diff --git a/src/eval.c b/src/eval.c
index 77b1db9..268472b 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -3315,22 +3315,22 @@ Output stream used is value of `standard-output'.  */)
  {
   Fprin1 (Fcons (backtrace_function (pdl), *backtrace_args (pdl)),
   Qnil);
-  write_string ("\n", -1);
+  write_string ("\n", 1);
  }
       else
  {
   tem = backtrace_function (pdl);
   Fprin1 (tem, Qnil); /* This can QUIT.  */
-  write_string ("(", -1);
+  write_string ("(", 1);
   {
     ptrdiff_t i;
     for (i = 0; i < backtrace_nargs (pdl); i++)
       {
- if (i) write_string (" ", -1);
+ if (i) write_string (" ", 1);
  Fprin1 (backtrace_args (pdl)[i], Qnil);
       }
   }
-  write_string (")\n", -1);
+  write_string (")\n", 2);
  }
       pdl = backtrace_next (pdl);
     }
-- 
1.9.3