procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(substitute-env-vars): Don't quote argument to `rx';

Browse source 
it's a macro.
This commit is contained in:
Gerd Moellmann 2001-10-29 09:10:48 +00:00
parent 8997e990e4
commit 1fd520b6b3
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/env.el
View file

@ -59,9 +59,9 @@ the entire variable name in braces. Use `$$' to insert a single
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))))