Mercurial > hg > xemacs-beta
diff modules/ldap/eldap.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005
Checking in final CVS version of workspace 'ben-lisp-object'
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 26 Dec 2009 00:20:27 -0600 |
| parents | 986cd22006a9 |
| children | e0db3c197671 |
line wrap: on
line diff
--- a/modules/ldap/eldap.c Sat Dec 26 00:20:16 2009 -0600 +++ b/modules/ldap/eldap.c Sat Dec 26 00:20:27 2009 -0600 @@ -1,6 +1,6 @@ /* LDAP client interface for XEmacs. Copyright (C) 1998 Free Software Foundation, Inc. - Copyright (C) 2004 Ben Wing. + Copyright (C) 2004, 2005 Ben Wing. This file is part of XEmacs. @@ -162,10 +162,16 @@ ldap->ld = NULL; } +#f 0 DEFINE_LRECORD_IMPLEMENTATION ("ldap", ldap, 0, mark_ldap, print_ldap, finalize_ldap, NULL, NULL, ldap_description, Lisp_LDAP); - +#else +DEFINE_NONDUMPABLE_LRECORD_IMPLEMENTATION ("ldap", ldap, mark_ldap, + print_ldap, finalize_ldap, + NULL, NULL, ldap_description, + Lisp_LDAP); +#endif /************************************************************************/ /* Basic ldap accessors */ @@ -618,7 +624,6 @@ int rc; int i, j; Elemcount len; - Lisp_Object values = Qnil; struct gcpro gcpro1; @@ -717,7 +722,6 @@ int i, j, rc; Lisp_Object mod_op; Elemcount len; - Lisp_Object values = Qnil; struct gcpro gcpro1;