# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 820539235 0
# Node ID 7df0a9cb269a3f70efcd5235e6086d3b05bd3095
# Parent  d9bf85b9c19eee723c49139e4ee4702ded09b57e
(ffap-list-env): Use `path-separator' rather than ":".

diff -r d9bf85b9c19e -r 7df0a9cb269a lisp/ffap.el
--- a/lisp/ffap.el	Mon Jan 01 23:32:07 1996 +0000
+++ b/lisp/ffap.el	Mon Jan 01 23:33:55 1996 +0000
@@ -686,8 +686,8 @@
   ;; any empty string entry.
   (if (or empty (getenv env))		; should return something
       (let ((start 0) match dir ret)
-	(setq env (concat (getenv env) ":")) ; note undefined --> ":"
-	(while (setq match (string-match ":" env start))
+	(setq env (concat (getenv env) path-separator)) ; note undefined -> ":"
+	(while (setq match (string-match path-separator env start))
 	  (setq dir (substring env start match) start (1+ match))
 	  ;;(and (file-directory-p dir) (not (member dir ret)) ...)
 	  (setq ret (cons dir ret)))