412 |
Also compose particular scripts if `utf-8-compose-scripts' is non-nil." |
Also compose particular scripts if `utf-8-compose-scripts' is non-nil." |
413 |
(save-excursion |
(save-excursion |
414 |
(while (and (skip-chars-forward |
(while (and (skip-chars-forward |
415 |
(eval-and-compile ; missing optimization |
(eval-when-compile ; missing optimization |
416 |
(string-as-multibyte "^\341-\377"))) |
(string-as-multibyte "^\341-\377"))) |
417 |
(not (eobp))) |
(not (eobp))) |
418 |
(forward-char (utf-8-compose)))) |
(forward-char (utf-8-compose)))) |