Mercurial > emacs
changeset 13905:7df0a9cb269a
(ffap-list-env): Use `path-separator' rather than ":".
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 01 Jan 1996 23:33:55 +0000 |
| parents | d9bf85b9c19e |
| children | ab4917aacf37 |
| files | lisp/ffap.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))