unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* handle cygwin path from ldapsearch
@ 2004-09-22  0:47 Tak Ota
  2004-09-23 20:44 ` Tak Ota
  0 siblings, 1 reply; 10+ messages in thread
From: Tak Ota @ 2004-09-22  0:47 UTC (permalink / raw)


The following patch provides correct handling of file path generated
by cygwin version of ldapsearch.

-Tak

2004-09-21  Takaaki Ota  <Takaaki.Ota@am.sony.com>

	* net/ldap.el (ldap-search): Handle cygwin file path appropriately.


*** ../../../../pub/emacs/emacs-21.3.50/lisp/net/ldap.el	Wed May 19 12:06:54 2004
--- ldap.el	Tue Sep 21 17:33:16 2004
***************
*** 582,592 ****
  	  (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 " ")
--- 582,596 ----
  	  (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
  	    (setq name (match-string 1)
  		  value (match-string 3))
!             ;; Need to handle pagan path
!             (if (memq system-type '(windows-nt ms-dos))
! 		(cond
! 		 ;; file:///D:/... as generated by OpenLDAP on DOS/Windows as local files.
! 		 ((string-match "/\\(.:.*\\)$" value)
! 		  (setq value (match-string 1 value)))
! 		 ;; /cygdrive/c/... as generated by OpenLDAP on Cygwin
! 		 ((string-match "/cygdrive/\\(.\\)\\(/.*\\)$" value)
! 		  (setq value (concat (match-string 1 value) ":" (match-string 2 value))))))
  	    ;; Do not try to open non-existent files
  	    (if (equal value "")
  		(setq value " ")

^ permalink raw reply	[flat|nested] 10+ messages in thread

end of thread, other threads:[~2004-09-24 11:42 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-09-22  0:47 handle cygwin path from ldapsearch Tak Ota
2004-09-23 20:44 ` Tak Ota
2004-09-23 20:57   ` Stefan Monnier
2004-09-23 21:46     ` Tak Ota
2004-09-23 21:58       ` Stefan Monnier
2004-09-23 22:03         ` Tak Ota
2004-09-24 11:42           ` Stefan
2004-09-23 22:56         ` Jason Rumney
2004-09-23 23:14           ` Tak Ota
2004-09-23 22:01       ` Tak Ota

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).