diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-08-12 18:35:18 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-08-12 18:35:18 +0000 |
| commit | 6430562b71fd9983281d54dc650c37bb13ad824a (patch) | |
| tree | 485e34f8f2a901c9f6bd1072bacfd30a50121298 /lisp/net/ldap.el | |
| parent | 9b550c3235055ef5c8679b863b6fc83305139ca5 (diff) | |
| download | emacs-6430562b71fd9983281d54dc650c37bb13ad824a.tar.gz | |
(ldap-search-internal): Tweak URL regexp.
Diffstat (limited to 'lisp/net/ldap.el')
| -rw-r--r-- | lisp/net/ldap.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el index 7ab737d8126..6cf96f3fe07 100644 --- a/lisp/net/ldap.el +++ b/lisp/net/ldap.el @@ -584,7 +584,9 @@ an alist of attribute/value pairs." (end-of-line) (point)))) (forward-line 1) - (while (looking-at "^\\(\\w*\\)\\(;\\w*\\)?[=:\t ]+\\(<[\t ]*file://\\)\\(.*\\)$") + (while (looking-at "^\\([A-Za-z][-A-Za-z0-9]*\ +\\|[0-9]+\\(?:\\.[0-9]+\\)*\\)\\(;[-A-Za-z0-9]+\\)*[=:\t ]+\ +\\(<[\t ]*file://\\)\\(.*\\)$") (setq name (match-string 1) value (match-string 4)) ;; Need to handle file:///D:/... as generated by OpenLDAP |