/[emacs]/emacs/lisp/env.el
ViewVC logotype

Diff of /emacs/lisp/env.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by rms, Wed Oct 24 22:49:12 2001 UTC revision 1.26 by gerd, Mon Oct 29 09:10:48 2001 UTC
# Line 59  the entire variable name in braces.  Use Line 59  the entire variable name in braces.  Use
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))))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26