Mercurial > emacs
changeset 40274:d2e0c5832e0d
(substitute-env-vars): Quote the arg to rx.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 24 Oct 2001 22:49:12 +0000 |
| parents | 03eaa14e9bac |
| children | 113233ecd44a |
| files | lisp/env.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/env.el Wed Oct 24 22:49:01 2001 +0000 +++ b/lisp/env.el Wed Oct 24 22:49:12 2001 +0000 @@ -59,9 +59,9 @@ dollar sign." (let ((start 0)) (while (string-match - (rx (or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) - (and "${" (submatch (minimal-match (0+ anything))) "}") - "$$")) + (rx '(or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) + (and "${" (submatch (minimal-match (0+ anything))) "}") + "$$")) string start) (cond ((match-beginning 1) (let ((value (getenv (match-string 1 string))))