Mercurial > hg > xemacs-beta

diff lisp/setup-paths.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 90d73dddcdc4
children 33bdb3d4b97f
line wrap: on
line diff
--- a/lisp/setup-paths.el	Mon Aug 13 10:33:19 2007 +0200
+++ b/lisp/setup-paths.el	Mon Aug 13 10:34:13 2007 +0200
@@ -42,8 +42,10 @@
   "Depth of load-path searches in core Lisp paths.")
 
 (defvar paths-default-info-directories
-  (list (paths-construct-path '("usr" "local" "info") path-separator)
-	(paths-construct-path '("usr" "info") path-separator))
+  (list (paths-construct-path '("usr" "local" "info")
+			      (char-to-string directory-sep-char))
+	(paths-construct-path '("usr" "info")
+			      (char-to-string directory-sep-char)))
   "Directories appended to the end of the info path by default.")
 
 (defun paths-find-site-lisp-directory (roots)
@@ -138,7 +140,7 @@
    (packages-find-package-exec-path last-packages)
    (let ((emacspath-envval (getenv "EMACSPATH")))
      (and emacspath-envval
-	  (decode-path-internal emacspath-envval)))
+	  (split-path emacspath-envval)))
    (and exec-directory
 	(list exec-directory))))