Re:

[Luc Teirlinck]

Lennart Staflin wrote:

   If I evaluate:

       (setenv "T5" "Y")
       (substitute-env-vars "X$T5")

   I get:

       "X$T5"

   this should be "XY".

I believe that this is due to a typo in `substitute-env-vars'.
I believe that the following patch fixes it:

Change log:

2003-05-20  Luc Teirlinck  <address@hidden>

        * env.el (substitute-env-vars): Fix typo.

Patch:

===File ~/envdiff===========================================
cd /usr/local/share/emacs/21.3.50/lisp/
diff -c /usr/local/share/emacs/21.3.50/lisp/env.old.el 
/usr/local/share/emacs/21.3.50/lisp/env.el
*** /usr/local/share/emacs/21.3.50/lisp/env.old.el      Wed May  7 15:00:42 2003
--- /usr/local/share/emacs/21.3.50/lisp/env.el  Tue May 20 11:54:10 2003
***************
*** 68,74 ****
    (let ((start 0))
      (while (string-match
            (eval-when-compile
!             (rx (or (and "$" (submatch (1+ (regexp "[:alnum:]_"))))
                      (and "${" (submatch (minimal-match (0+ anything))) "}")
                      "$$")))
            string start)
--- 68,74 ----
    (let ((start 0))
      (while (string-match
            (eval-when-compile
!             (rx (or (and "$" (submatch (1+ (regexp "[[:alnum:]_]"))))
                      (and "${" (submatch (minimal-match (0+ anything))) "}")
                      "$$")))
            string start)

Diff finished at Tue May 20 11:59:06
============================================================