Mercurial > emacs
changeset 40430:48cf8bbd6e34
(substitute-env-vars): Don't quote argument to `rx';
it's a macro.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 29 Oct 2001 09:10:48 +0000 |
| parents | f73995242ba8 |
| children | b42c2b30446a |
| files | lisp/env.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/env.el Mon Oct 29 08:28:56 2001 +0000 +++ b/lisp/env.el Mon Oct 29 09:10:48 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))))