Le 6065 Septembre 1993, Johan Bockgård a envoyé:
[...]
> I think the replacement needs to be more careful

Hello,

We need to be sure that the value contains a positional parameter:

  (let ((group "mydomain.foo.com")
        (match "mydomain\\.\\(foo\\|bar\\)")
        (values '((name "Daniel Dehennin")
                  (address "test@mydomain")))
        value element)
    (and (string-match match group)
         (mapcar (lambda (x)
                   (setq element (car x)
                         value (cadr x))
                   (cons element

                         (cond ((stringp value)
                                (if (and (stringp match)
                                         ;; The FIX
					 (string-match-p "\\\\[&[:digit:]]" value)
                                         (match-beginning 1))
                                    (replace-match value nil nil group)
                                  value)))))
                 values)))

=> ((name . "Daniel Dehennin") (address . "foo@mydomain.com"))

Regards.

-- 
Daniel Dehennin
Récupérer ma clef GPG:
gpg --keyserver pgp.mit.edu --recv-keys 0x6A2540D1