diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-01 23:33:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-01 23:33:55 +0000 |
| commit | 8c1001f6f64da78c6996c11f4373f299f9a459a6 (patch) | |
| tree | 93dfadc7fe27d75560d33bc595d1f1300302dfd9 /lisp/ffap.el | |
| parent | db8f88129aac2fdcd2aef7294031281bd8bdf283 (diff) | |
| download | emacs-8c1001f6f64da78c6996c11f4373f299f9a459a6.tar.gz | |
(ffap-list-env): Use `path-separator' rather than ":".
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 4 |
1 files 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))) |