(ffap-list-env): Use `path-separator' rather than ":".

diff --git a/lisp/ffap.el b/lisp/ffap.el
index df21a0dc88717afb9183d626a56210db0f238b57..0878e511e0faec91b4d5977a85783b4168f12826 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -686,8 +686,8 @@ substituted for the first empty-string component, if there is one."
   ;; 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)))