Re: Improve `replace-regexp-in-string' ergonomics?

[Juri Linkov]

>> We could also consider making `regexp-replace' take a series of pairs,
>> since this is so common.  Like:
>>
>>        (org-babel-read
>>         (concat "'"
>>               (regexp-replace "'" "\""
>>                               ",[[:space:]]" " "
>>                               "\\]" ")"
>>                               "\\[" "("
>>                               results)))
>
> Otherwise, after adding replacement pairs as args of 'regexp-replace',
> replacements should be applied "simultaneously".

Such simultaneous replacement could be implemented the same way as
in mm-uu-configure that creates a composite regexp from all regexps:

(defun mm-uu-configure (&optional symbol value)
  (setq mm-uu-beginning-regexp
        (mapconcat #'mm-uu-beginning-regexp
                   (delq nil (mapcar
                              (lambda (entry)
                                (if (mm-uu-configure-p (mm-uu-type entry)
                                                       'disabled)
                                    nil entry))
                              mm-uu-type-alist))
                   "\\|")))

Then it's used like this:

      (while (re-search-forward mm-uu-beginning-regexp nil t)

In case of replacements, it should replace the found composite regexp
with the corresponding string from replacement pairs.