Hello,
The following code adds to one or more apostroph's a backslash only when the (first) apostroph is preceded by a lowercase letter. My two-step-solution works, but I -newLisp newbie- have doubts on it. Does someone has a better idea? Thanks in advance.
Regards,
Reinier
...............................................................
(setq mcString "C''' g''''' c' A''")
;first step
(replace "([a-g])([']+)" mcString (append $1 "\" $2) 0)
;second step
(while (find "\''" mcString)
(replace "\''" mcString "\'\'")
)
;result is ok: C''' g''''' c' A''
(println "result: " mcString)
...............................................................