Mercurial > emacs
diff lisp/env.el @ 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 | c1fb5574fc7a |
children | 48cf8bbd6e34 |
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))))