mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

(ldap-search-internal): Handle file URLs with drive

Browse source 
letters on DOS/Windows.
This commit is contained in:
Jason Rumney 2004-03-11 21:10:21 +00:00
parent 61042632e3
commit f6a20b2cca
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2004-03-11 Jason Rumney <jasonr@gnu.org>
* net/ldap.el (ldap-search-internal): Handle file URLs with drive
letters on DOS/Windows.
2004-03-11 Stefan Monnier <monnier@iro.umontreal.ca>
* server.el (server-name): New var.

5
lisp/net/ldap.el
View file

@ -582,6 +582,11 @@ an alist of attribute/value pairs."
(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 " ")