-#if 0 /* FSFmacs */
- /* #### This optimization won't work because of differences in
- how the start-open and end-open properties default for text
- properties. See internal_self_insert(). */
- if (n >= 2 && NILP (current_buffer->overwrite_mode))
- {
- n -= 2;
- /* The first one might want to expand an abbrev. */
- internal_self_insert (c, 1);
- /* The bulk of the copies of this char can be inserted simply.
- We don't have to handle a user-specified face specially
- because it will get inherited from the first char inserted. */
- Finsert_char (make_char (c), make_int (n), Qt, Qnil);
- /* The last one might want to auto-fill. */
- internal_self_insert (c, 0);
- }
- else
-#endif /* 0 */
- while (n > 0)
- {
- n--;
- internal_self_insert (ch, (n != 0));
- }