452 |
(intern (concat "is13194-to-ucs-" |
(intern (concat "is13194-to-ucs-" |
453 |
(symbol-name current-repertory) "-regexp"))) |
(symbol-name current-repertory) "-regexp"))) |
454 |
(re (eval current-regexp)) |
(re (eval current-regexp)) |
455 |
(hahsh (eval current-hashtable))) |
(hash (eval current-hashtable))) |
456 |
(while (re-search-forward re nil t) |
(while (re-search-forward re nil t) |
457 |
(replace-match (gethash (match-string 0) hash "")))) |
(replace-match (gethash (match-string 0) hash "")))) |
458 |
(point-max)))) |
(point-max)))) |