(truncate_undo_list): Avoid dangerous side effects in NILP argument.

diff --git a/src/ChangeLog b/src/ChangeLog
index ee919e534bd595f12a5dee66ad93513299bdcf26..f66cf95d9d7acbfbb68ae35136d9ad7ab860cde9 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
+2005-12-06  Ken Raeburn  <raeburn@gnu.org>
+
+       * buffer.c (Fkill_buffer): Avoid dangerous side effects in NILP
+       argument.
+       * bytecode.c (Fbyte_code): Likewise.
+       * fileio.c (internal_delete_file, Fread_file_name_internal):
+       Likewise.
+       * minibuf.c (Fminibuffer_complete_and_exit): Likewise.
+       * undo.c (truncate_undo_list): Likewise.
+
 2005-12-05  Richard M. Stallman  <rms@gnu.org>
 
        * window.c (enlarge_window): Eliminate arg preserve_before.
@@ -97,7 +107,7 @@
        * macterm.h (cfstring_to_lisp_nodecode) [TARGET_API_MAC_CARBON]:
        Add prototype.
 
-2005-11-21  Ken Raeburn  <raeburn@mit.edu>
+2005-11-21  Ken Raeburn  <raeburn@gnu.org>
 
        * keymap.c (shadow_lookup): Use make_number to pass a number to
        Fsubstring.
@@ -16331,7 +16341,7 @@
        * xdisp.c (forward_to_next_line_start): Return 0 when reaching the
        end of the buffer.
 
-2002-08-08  Ken Raeburn  <raeburn@mit.edu>
+2002-08-08  Ken Raeburn  <raeburn@gnu.org>
 
        * coding.c (Ffind_operation_coding_system): Fix Lisp_Object/int mixup.
 

diff --git a/src/undo.c b/src/undo.c
index 9839906ca7e50579ee512a9c4e6cff58b9e409cc..ecbb714fddd4cde10a15198d4c9c3a36748013b5 100644 (file)
--- a/src/undo.c
+++ b/src/undo.c
@@ -378,11 +378,11 @@ truncate_undo_list (b)
       && size_so_far > XINT (Vundo_outer_limit)
       && !NILP (Vundo_outer_limit_function))
     {
-      Lisp_Object temp = last_undo_buffer;
+      Lisp_Object temp = last_undo_buffer, tem;
 
       /* Normally the function this calls is undo-outer-limit-truncate.  */
-      if (! NILP (call1 (Vundo_outer_limit_function,
-                        make_number (size_so_far))))
+      tem = call1 (Vundo_outer_limit_function, make_number (size_so_far));
+      if (! NILP (tem))
        {
          /* The function is responsible for making
             any desired changes in buffer-undo-list.  */