diff src/glade.c @ 5118:e0db3c197671 ben-lisp-object

merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents db7068430402
children 304aebb79cd3
line wrap: on
line diff
--- a/src/glade.c	Sat Dec 26 00:20:27 2009 -0600
+++ b/src/glade.c	Sat Dec 26 21:18:49 2009 -0600
@@ -7,6 +7,22 @@
 ** Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
 ** Copyright (c) 2000 Free Software Foundation
 **
+** This file is part of XEmacs.
+**
+** XEmacs is free software; you can redistribute it and/or modify it
+** under the terms of the GNU General Public License as published by the
+** Free Software Foundation; either version 2, or (at your option) any
+** later version.
+**
+** XEmacs is distributed in the hope that it will be useful, but WITHOUT
+** ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+** FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+** for more details.
+**
+** You should have received a copy of the GNU General Public License
+** along with XEmacs; see the file COPYING.  If not, write to
+** the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
+** Boston, MA 02111-1301, USA.  */
 */
 
 #if defined(HAVE_GLADE_H) || defined(HAVE_GLADE_GLADE_H)
@@ -42,7 +58,8 @@
 
   if (signal_data && signal_data[0])
     {
-      lisp_data = Feval (Fread (build_string (signal_data)));
+      lisp_data
+        = IGNORE_MULTIPLE_VALUES (Feval (Fread (build_string (signal_data))));
     }
 
   /* obj, name, func, cb_data, object_signal, after_p */