changeset 59935:ccb26cb917af

(ldap-search-internal): Support attributes with optional descriptions separated by a semi-colon, as in "userCertificate;binary".
author Eli Zaretskii <eliz@gnu.org>
date Sat, 05 Feb 2005 19:18:03 +0000
parents 462cd8b14e71
children 688b6f973ed9
files lisp/net/ldap.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ldap.el	Sat Feb 05 18:12:32 2005 +0000
+++ b/lisp/net/ldap.el	Sat Feb 05 19:18:03 2005 +0000
@@ -579,9 +579,9 @@
 					       (end-of-line)
 					       (point))))
 	  (forward-line 1)
-	  (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
+	  (while (looking-at "^\\(\\w*\\)\\(;\\w*\\)?[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
 	    (setq name (match-string 1)
-		  value (match-string 3))
+		  value (match-string 4))
             ;; Need to handle file:///D:/... as generated by OpenLDAP
             ;; on DOS/Windows as local files.
             (if (and (memq system-type '(windows-nt ms-dos))