diff src/eldap.c @ 265:8efd647ea9ca r20-5b31

Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents 405dd6d1825b
children c5d627a313b1
line wrap: on
line diff
--- a/src/eldap.c	Mon Aug 13 10:24:47 2007 +0200
+++ b/src/eldap.c	Mon Aug 13 10:25:37 2007 +0200
@@ -1,5 +1,5 @@
 /* LDAP client interface for XEmacs.
-   Copyright (C) ***FIXME***
+   Copyright (C) 1998 Free Software Foundation, Inc.
 
 This file is part of XEmacs.
 
@@ -38,6 +38,8 @@
 
 #include "lisp.h"
 
+#include <errno.h>
+
 #include "eldap.h"
 #include <lber.h>
 #include <ldap.h>
@@ -293,14 +295,15 @@
      check what happens inside that lib. Anyway this should be harmless to
      XEmacs and makes things work. */
 #if defined (HAVE_UMICH_LDAP)
-  Fgarbage_collect ();
+  garbage_collect_1 ();
 #endif
 
   /* Connect to the server and bind */
   message ("Connecting to %s...", ldap_host);
   if ( (ld = ldap_open (ldap_host, LDAP_PORT)) == NULL )
-     signal_simple_error ("Failed connecting to host",
-                          build_string (ldap_host));
+     signal_simple_error_2 ("Failed connecting to host",
+                            build_string (ldap_host),
+                            lisp_strerror (errno));
 
 #if HAVE_LDAP_SET_OPTION
   if (ldap_set_option (ld, LDAP_OPT_DEREF, (void *)&ldap_deref) != LDAP_SUCCESS)