Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
527813ef
Commit
527813ef
authored
Jan 06, 2002
by
Pavel Janík
Browse files
(eudc-ldap-get-field-list): Do not try to call non-existent function.
parent
73ae8966
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
lisp/net/eudcb-ldap.el
lisp/net/eudcb-ldap.el
+2
-2
No files found.
lisp/net/eudcb-ldap.el
View file @
527813ef
...
...
@@ -89,7 +89,7 @@
(
mapconcat
'identity
(
split-string
string
"\\$"
)
"\n"
))
;; Cleanup a LDAP record to make it suitable for EUDC:
;; Make the record a cons-cell instead of a list if
the it'
s single-valued
;; Make the record a cons-cell instead of a list if
it i
s single-valued
;; Filter the $ character in addresses into \n if not done by the LDAP lib
(
defun
eudc-ldap-cleanup-record-filtering-addresses
(
record
)
(
mapcar
...
...
@@ -146,7 +146,7 @@ attribute names are returned. Default to `person'"
(
let
((
ldap-host-parameters-alist
(
list
(
cons
eudc-server
'
(
scope
subtree
sizelimit
1
)))))
(
mapcar
'eudc-ldap-cleanup-record
(
mapcar
'eudc-ldap-cleanup-record
-simple
(
ldap-search
(
eudc-ldap-format-query-as-rfc1558
(
list
(
cons
"objectclass"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment