Mercurial > emacs
diff lisp/env.el @ 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 | d2e0c5832e0d |
children | 37645a051842 |
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))))