8193 |
(setq prompt (match-string 1)) |
(setq prompt (match-string 1)) |
8194 |
(replace-match "") |
(replace-match "") |
8195 |
(setq string (vhdl-template-field prompt nil t)) |
(setq string (vhdl-template-field prompt nil t)) |
8196 |
;; replace occurences of same prompt |
;; replace occurrences of same prompt |
8197 |
(while (re-search-forward (concat "<\\(" prompt "\\)>") end t) |
(while (re-search-forward (concat "<\\(" prompt "\\)>") end t) |
8198 |
(replace-match (or string ""))) |
(replace-match (or string ""))) |
8199 |
(goto-char position))) |
(goto-char position))) |