From 8c1001f6f64da78c6996c11f4373f299f9a459a6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Jan 1996 23:33:55 +0000 Subject: [PATCH] (ffap-list-env): Use `path-separator' rather than ":". --- lisp/ffap.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.39.2