xyzzy.src : fix save-window-excursion.

Author: southly

ChangeLog.txt

@@ -1,5 +1,14 @@
 2010-01-11  NANRI Masaoki  <southly@gmail.com>
 
+	* src : fix save-window-excursion.
+	(save-window-excursion (values 1 2 3))
+	で正しく多値が返らない場合があるのを修正。
+	xyzzy Part11 8
+
+	WindowConfigurationのデストラクタ内でLispのコードが実行されるので、
+	WindowConfigurationのデストラクタを実行したあとで、多値を元の値に戻
+	す必要がある。
+
 	* lisp : fix long-operation.
 	long-operationの戻り値がprog1相当になっているのをprogn相当になるよ
 	うに修正。

src/eval.cc

@@ -1549,8 +1549,17 @@ Fsave_restriction (lisp arg, lex_env &lex)
 lisp
 Fsave_window_excursion (lisp arg, lex_env &lex)
 {
-  WindowConfiguration wc;
-  return Fprogn (arg, lex);
+  WindowConfiguration *wc = new WindowConfiguration;
+  lisp x = Fprogn (arg, lex);
+  multiple_value::value (0) = x;
+  multiple_value_data save;
+  save.count = multiple_value::count ();
+  bcopy (multiple_value::data ()->values, save.values, save.count);
+  protect_gc gcpro (save.values, save.count);
+  delete wc;
+  bcopy (save.values, multiple_value::data ()->values, save.count);
+  multiple_value::count () = save.count;
+  return x;
 }
 
 lisp