59 |
dollar sign." |
dollar sign." |
60 |
(let ((start 0)) |
(let ((start 0)) |
61 |
(while (string-match |
(while (string-match |
62 |
(rx '(or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) |
(rx (or (and "$" (submatch (1+ (in "a-zA-Z0-9_")))) |
63 |
(and "${" (submatch (minimal-match (0+ anything))) "}") |
(and "${" (submatch (minimal-match (0+ anything))) "}") |
64 |
"$$")) |
"$$")) |
65 |
string start) |
string start) |
66 |
(cond ((match-beginning 1) |
(cond ((match-beginning 1) |
67 |
(let ((value (getenv (match-string 1 string)))) |
(let ((value (getenv (match-string 1 string)))) |