Mercurial > hg > xemacs-beta

comparison src/eldap.c @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children c33ae14dd6d0
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
699 699
700 Lisp_Object current = Qnil; 700 Lisp_Object current = Qnil;
701 Lisp_Object values = Qnil; 701 Lisp_Object values = Qnil;
702 struct gcpro gcpro1, gcpro2; 702 struct gcpro gcpro1, gcpro2;
703 703
704 GCPRO2 (current, values);
705
706 /* Do all the parameter checking */ 704 /* Do all the parameter checking */
707 CHECK_LIVE_LDAP (ldap); 705 CHECK_LIVE_LDAP (ldap);
708 ld = XLDAP (ldap)->ld; 706 ld = XLDAP (ldap)->ld;
709 707
710 /* Check the DN */ 708 /* Check the DN */
718 /* Build the ldap_mods array */ 716 /* Build the ldap_mods array */
719 len = XINT (Flength (mods)); 717 len = XINT (Flength (mods));
720 ldap_mods = alloca_array (LDAPMod, len); 718 ldap_mods = alloca_array (LDAPMod, len);
721 ldap_mods_ptrs = alloca_array (LDAPMod *, 1 + len); 719 ldap_mods_ptrs = alloca_array (LDAPMod *, 1 + len);
722 i = 0; 720 i = 0;
721
722 GCPRO2 (current, values);
723 EXTERNAL_LIST_LOOP (mods, mods) 723 EXTERNAL_LIST_LOOP (mods, mods)
724 { 724 {
725 current = XCAR (mods); 725 current = XCAR (mods);
726 CHECK_CONS (current); 726 CHECK_CONS (current);
727 CHECK_SYMBOL (XCAR (current)); 727 CHECK_SYMBOL (XCAR (current));