CVS update by aidan packages/xemacs-packages/edt ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/08/14 23:48:29

  Modified:    packages/xemacs-packages/edt ChangeLog edt.el
Log:
Respect the platform path separator in edt.

Revision  Changes    Path
1.13      +6 -0      XEmacs/packages/xemacs-packages/edt/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edt/ChangeLog,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- ChangeLog	2003/10/31 16:46:55	1.12
+++ ChangeLog	2007/08/14 21:48:27	1.13
@@ -1,3 +1,9 @@
+2007-08-14  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* edt.el (edt-load-keys):
+	Respect the platform path separator when working out where to find
+	edt-mapper.el. 
+
 2003-10-31  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.13 released.



1.5       +4 -1      XEmacs/packages/xemacs-packages/edt/edt.el

Index: edt.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edt/edt.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- edt.el	2003/03/22 08:12:55	1.4
+++ edt.el	2007/08/14 21:48:27	1.5
@@ -2073,7 +2073,10 @@ created."
 	       (search-list (append (list (expand-file-name ".")) load-path)))
 	   (while (and (not found) search-list)
 	     (setq path (concat (car search-list)
-				(if (string-match "/$" (car search-list)) "" "/")
+				(if (string-match 
+                                     (string directory-sep-char ?$)
+                                     (car search-list)) "" 
+                                  (string directory-sep-char))
 				file))
 	     (if (and (file-exists-p path) (not (file-directory-p path)))
 		 (setq found t))