From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 Jan 1996 23:33:55 +0000 (+0000)
Subject: (ffap-list-env): Use `path-separator' rather than ":".
X-Git-Tag: emacs-19.34~1955
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c1001f6f64da78c6996c11f4373f299f9a459a6;p=emacs.git

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

diff --git a/lisp/ffap.el b/lisp/ffap.el
index df21a0dc887..0878e511e0f 100644
--- 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)))