Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
5 ** Created by: William M. Perry <wmperry@gnu.org> 5 ** Created by: William M. Perry <wmperry@gnu.org>
6 ** 6 **
7 ** Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk> 7 ** Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk>
8 ** Copyright (c) 2000 Free Software Foundation 8 ** Copyright (c) 2000 Free Software Foundation
9 ** 9 **
10 ** This file is part of XEmacs.
11 **
12 ** XEmacs is free software; you can redistribute it and/or modify it
13 ** under the terms of the GNU General Public License as published by the
14 ** Free Software Foundation; either version 2, or (at your option) any
15 ** later version.
16 **
17 ** XEmacs is distributed in the hope that it will be useful, but WITHOUT
18 ** ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
19 ** FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
20 ** for more details.
21 **
22 ** You should have received a copy of the GNU General Public License
23 ** along with XEmacs; see the file COPYING. If not, write to
24 ** the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
25 ** Boston, MA 02111-1301, USA. */
10 */ 26 */
11 27
12 #if defined(HAVE_GLADE_H) || defined(HAVE_GLADE_GLADE_H) 28 #if defined(HAVE_GLADE_H) || defined(HAVE_GLADE_GLADE_H)
13 29
14 /* For COMPILED_FUNCTIONP */ 30 /* For COMPILED_FUNCTIONP */
40 func = intern (handler_name); 56 func = intern (handler_name);
41 } 57 }
42 58
43 if (signal_data && signal_data[0]) 59 if (signal_data && signal_data[0])
44 { 60 {
45 lisp_data = Feval (Fread (build_string (signal_data))); 61 lisp_data
62 = IGNORE_MULTIPLE_VALUES (Feval (Fread (build_string (signal_data))));
46 } 63 }
47 64
48 /* obj, name, func, cb_data, object_signal, after_p */ 65 /* obj, name, func, cb_data, object_signal, after_p */
49 Fgtk_signal_connect (build_gtk_object (object), 66 Fgtk_signal_connect (build_gtk_object (object),
50 intern (signal_name), 67 intern (signal_name),