From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 7 Mar 2001 21:26:55 +0000 (+0000)
Subject: (Fbyte_code) <Btemp_output_buffer_setup>: Check the
X-Git-Tag: emacs-pretest-21.0.100~141
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=741baf7656eb6738d7b4160493c969fad2640e1b;p=emacs.git

(Fbyte_code) <Btemp_output_buffer_setup>: Check the
arg is a string before extracting its data.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index f2394556e2b..363dcdfaa82 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -888,6 +888,7 @@ If the third argument is incorrect, Emacs may crash.")
 
 	case Btemp_output_buffer_setup:
 	  BEFORE_POTENTIAL_GC ();
+	  CHECK_STRING (TOP, 0);
 	  temp_output_buffer_setup (XSTRING (TOP)->data);
 	  AFTER_POTENTIAL_GC ();
 	  TOP = Vstandard_output;