Mercurial > emacs
diff lisp/net/ldap.el @ 80719:0bd3bab4b7be
(ldap-search-internal): Tweak URL regexp.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 12 Aug 2008 18:36:15 +0000 |
parents | 6888fd3398e8 |
children |
line wrap: on
line diff
--- a/lisp/net/ldap.el Tue Aug 12 18:36:03 2008 +0000 +++ b/lisp/net/ldap.el Tue Aug 12 18:36:15 2008 +0000 @@ -586,7 +586,9 @@ (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