# HG changeset patch # User james # Date 1031020332 0 # Node ID 4700aface1abf5982bc91409dad773a777defca2 # Parent 97b9587587564ec9b72f7c979484953bbd9b9834 [xemacs-hg @ 2002-09-03 02:32:09 by james] Fix #endif comment. Change Fldap_status to Fldap_live_p to match Lisp name. diff -r 97b958758756 -r 4700aface1ab src/ChangeLog --- a/src/ChangeLog Mon Sep 02 06:40:15 2002 +0000 +++ b/src/ChangeLog Tue Sep 03 02:32:12 2002 +0000 @@ -1,3 +1,12 @@ +2002-08-29 Jerry James + + * eldap.c: Put #endif tokens in a comment. + + * eldap.c (Fldap_status): + * eldap.c (syms_of_eldap): + * eldap.h: + Change to Fldap_live_p to match Lisp name. + 2002-08-19 Andy Piper * fileio.c (Ffile_truename): on cygwin using win32 normalize to diff -r 97b958758756 -r 4700aface1ab src/eldap.c --- a/src/eldap.c Mon Sep 02 06:40:15 2002 +0000 +++ b/src/eldap.c Tue Sep 03 02:32:12 2002 +0000 @@ -103,7 +103,7 @@ { XD_LISP_OBJECT, offsetof (struct Lisp_LDAP, host) }, { XD_END } }; -#endif USE_KKCC +#endif /* USE_KKCC */ static Lisp_Object mark_ldap (Lisp_Object obj) @@ -183,7 +183,7 @@ return (XLDAP (ldap))->host; } -DEFUN ("ldap-live-p", Fldap_status, 1, 1, 0, /* +DEFUN ("ldap-live-p", Fldap_live_p, 1, 1, 0, /* Return t if LDAP is an active LDAP connection. */ (ldap)) @@ -825,7 +825,7 @@ DEFSUBR (Fldapp); DEFSUBR (Fldap_host); - DEFSUBR (Fldap_status); + DEFSUBR (Fldap_live_p); DEFSUBR (Fldap_open); DEFSUBR (Fldap_close); DEFSUBR (Fldap_search_basic); diff -r 97b958758756 -r 4700aface1ab src/eldap.h --- a/src/eldap.h Mon Sep 02 06:40:15 2002 +0000 +++ b/src/eldap.h Tue Sep 03 02:32:12 2002 +0000 @@ -58,7 +58,7 @@ Lisp_Object Fldapp (Lisp_Object object); Lisp_Object Fldap_host (Lisp_Object ldap); -Lisp_Object Fldap_status (Lisp_Object ldap); +Lisp_Object Fldap_live_p (Lisp_Object ldap); Lisp_Object Fldap_open (Lisp_Object host, Lisp_Object ldap_plist); Lisp_Object Fldap_close (Lisp_Object ldap);