Skip to content
Snippets Groups Projects
Commit c75dc3adbf52 authored by oscarf's avatar oscarf
Browse files

(eudc-ldap): Fixed group

(eudc-ldap-clear-inline-query-format-on-exit): Removed
(eudc-ldap-protocol-locals): Removed
`eudc-protocol-switch-init-function' and
`eudc-protocol-switch-exit-function'.  Added
`eudc-protocol-has-default-query-attributes'.
(eudc-ldap-set-inline-query-format-maybe): Removed
(eudc-ldap-protocol-switch-init): Removed
(eudc-ldap-protocol-switch-exit): Removed
parent a51bbb7c2ffc
No related branches found
No related tags found
No related merge requests found
;;; eudc.el --- Emacs Unified Directory Client - LDAP Support
;;; eudc-ldap.el --- Emacs Unified Directory Client - LDAP Backend
;; Copyright (C) 1998 Free Software Foundation, Inc.
......@@ -45,8 +45,8 @@
;;{{{ Package customization variables
(defgroup eudc-ldap nil
"Emacs Unified Directory Client - LDAP Support"
:group 'comm)
"Emacs Unified Directory Client - LDAP Backend"
:group 'eudc)
(defcustom eudc-ldap-bbdb-conversion-alist
'((name . cn)
......@@ -78,10 +78,6 @@
;;{{{ Internal cooking
;; Whether eudc-inline-query-format should be cleared on switching protocols
;; from LDAP
(defvar eudc-ldap-clear-inline-query-format-on-exit nil)
(defvar eudc-ldap-attributes-translation-alist
'((name . sn)
(firstname . givenname)
......@@ -94,8 +90,7 @@
(eudc-list-attributes-function . eudc-ldap-get-field-list)
(eudc-protocol-attributes-translation-alist . eudc-ldap-attributes-translation-alist)
(eudc-bbdb-conversion-alist . eudc-ldap-bbdb-conversion-alist)
(eudc-protocol-switch-init-function . eudc-ldap-protocol-switch-init)
(eudc-protocol-switch-exit-function . eudc-ldap-protocol-switch-exit))
(eudc-protocol-has-default-query-attributes . nil))
"LDAP protocol specific values of EUDC variables.
This should be an alist of the form (EUDC-VAR . LDAP-VAR) where
EUDC-VAR is the name of a EUDC variable and LDAP-VAR is
......@@ -163,20 +158,6 @@
(format "(%s=%s)" (car item) (cdr item)))
query))))
;; Set eudc-inline-query-format for LDAP since LDAP does not
;; have default query attributes and hence won't accept plain
;; string queries without an associated attribute name
(defun eudc-ldap-set-inline-query-format-maybe ()
(when (null eudc-inline-query-format)
(setq eudc-inline-query-format '(name))
(setq eudc-ldap-clear-inline-query-format-on-exit t)))
(defun eudc-ldap-protocol-switch-init ()
(eudc-ldap-set-inline-query-format-maybe))
(defun eudc-ldap-protocol-switch-exit ()
(if eudc-ldap-clear-inline-query-format-on-exit
(setq eudc-inline-query-format nil)))
;;}}}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment