aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2023-06-17 10:59:44 +0300
committerEli Zaretskii2023-06-17 10:59:44 +0300
commit71b27779a9a014cc5ff594cb0b34fc763387e071 (patch)
treec8c653ced7fb43d07321c40351646c1b2f163b8c
parentd2246b2627531523dc0decd6bee863820dd2f5bf (diff)
downloademacs-71b27779a9a014cc5ff594cb0b34fc763387e071.tar.gz
emacs-71b27779a9a014cc5ff594cb0b34fc763387e071.zip
; * lisp/net/ldap.el (ldap-search-internal): Fix last change. (Bug#64089)
-rw-r--r--lisp/net/ldap.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 4275b45e6f5..8897c3b6d54 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -710,7 +710,7 @@ an alist of attribute/value pairs."
710 ;; otherwise `ldap-decode-attribute' would throw a much less 710 ;; otherwise `ldap-decode-attribute' would throw a much less
711 ;; comprehensible error later. 711 ;; comprehensible error later.
712 (cond ((not withdn)) 712 (cond ((not withdn))
713 ((looking-at "^dn[=:\t ]+\\(.*\\)$") 713 ((looking-at "dn[=:\t ]+\\(.*\\)$")
714 (setq dn (list "dn" (match-string 1)))) 714 (setq dn (list "dn" (match-string 1))))
715 (t (error "Incorrect dn line \"%s\" in ldapsearch result" 715 (t (error "Incorrect dn line \"%s\" in ldapsearch result"
716 (buffer-substring (point) (line-end-position))))) 716 (buffer-substring (point) (line-end-position)))))