Mercurial > emacs
comparison lisp/ffap.el @ 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 | b4d9bb7adf24 |
| children | 278af59c9e29 |
comparison
equal
deleted
inserted
replaced
| 13904:d9bf85b9c19e | 13905:7df0a9cb269a |
|---|---|
| 684 ;; bib-cite packages. The `empty' argument is intended to mimic | 684 ;; bib-cite packages. The `empty' argument is intended to mimic |
| 685 ;; the semantics of TeX/BibTeX variables, it is substituted for | 685 ;; the semantics of TeX/BibTeX variables, it is substituted for |
| 686 ;; any empty string entry. | 686 ;; any empty string entry. |
| 687 (if (or empty (getenv env)) ; should return something | 687 (if (or empty (getenv env)) ; should return something |
| 688 (let ((start 0) match dir ret) | 688 (let ((start 0) match dir ret) |
| 689 (setq env (concat (getenv env) ":")) ; note undefined --> ":" | 689 (setq env (concat (getenv env) path-separator)) ; note undefined -> ":" |
| 690 (while (setq match (string-match ":" env start)) | 690 (while (setq match (string-match path-separator env start)) |
| 691 (setq dir (substring env start match) start (1+ match)) | 691 (setq dir (substring env start match) start (1+ match)) |
| 692 ;;(and (file-directory-p dir) (not (member dir ret)) ...) | 692 ;;(and (file-directory-p dir) (not (member dir ret)) ...) |
| 693 (setq ret (cons dir ret))) | 693 (setq ret (cons dir ret))) |
| 694 (setq ret (nreverse ret)) | 694 (setq ret (nreverse ret)) |
| 695 (and empty (setq match (member "" ret)) | 695 (and empty (setq match (member "" ret)) |