# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1079039371 0
# Node ID e63d620f89882b5c29cce2e1bda0cc4a27a81fcd
# Parent  b21573dfef23f35292e797defd13ed603bd3f8ca
(ldap-search-internal): Handle file URLs with drive
letters on DOS/Windows.

diff -r b21573dfef23 -r e63d620f8988 lisp/net/ldap.el
--- 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 " ")