Mercurial > emacs
changeset 54359:e63d620f8988
(ldap-search-internal): Handle file URLs with drive
letters on DOS/Windows.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Thu, 11 Mar 2004 21:09:31 +0000 |
| parents | b21573dfef23 |
| children | 7a7bdc88ded5 |
| files | lisp/net/ldap.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ldap.el Thu Mar 11 18:46:47 2004 +0000 +++ b/lisp/net/ldap.el Thu Mar 11 21:09:31 2004 +0000 @@ -582,6 +582,11 @@ (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$") (setq name (match-string 1) value (match-string 3)) + ;; Need to handle file:///D:/... as generated by OpenLDAP + ;; on DOS/Windows as local files. + (if (and (memq system-type '(windows-nt ms-dos)) + (eq (string-match "/\\(.:.*\\)$" value) 0)) + (setq value (match-string 1 value))) ;; Do not try to open non-existent files (if (equal value "") (setq value " ")