comparison src/minibuf.c @ 24918:5784771d1cca

(read_minibuf): Set the multibyteness of the minibuffer before inserting `initial' string.
author Richard M. Stallman <rms@gnu.org>
date Fri, 02 Jul 1999 12:15:14 +0000
parents c7a91c0586da
children 1c522baf1a3c
comparison
equal deleted inserted replaced
24917:600578f35004 24918:5784771d1cca
368 specbind (Qinhibit_read_only, Qt); 368 specbind (Qinhibit_read_only, Qt);
369 Ferase_buffer (); 369 Ferase_buffer ();
370 unbind_to (count1, Qnil); 370 unbind_to (count1, Qnil);
371 } 371 }
372 372
373 /* If appropriate, copy enable-multibyte-characters into the minibuffer. */
374 if (inherit_input_method)
375 current_buffer->enable_multibyte_characters = enable_multibyte;
376
373 /* Put in the initial input. */ 377 /* Put in the initial input. */
374 if (!NILP (initial)) 378 if (!NILP (initial))
375 { 379 {
376 Finsert (1, &initial); 380 Finsert (1, &initial);
377 if (INTEGERP (backup_n)) 381 if (INTEGERP (backup_n))
385 current_buffer->keymap = map; 389 current_buffer->keymap = map;
386 390
387 /* Turn on an input method stored in INPUT_METHOD if any. */ 391 /* Turn on an input method stored in INPUT_METHOD if any. */
388 if (STRINGP (input_method) && !NILP (Ffboundp (Qactivate_input_method))) 392 if (STRINGP (input_method) && !NILP (Ffboundp (Qactivate_input_method)))
389 call1 (Qactivate_input_method, input_method); 393 call1 (Qactivate_input_method, input_method);
390
391 /* If appropriate, copy enable-multibyte-characters into the minibuffer. */
392 if (inherit_input_method)
393 current_buffer->enable_multibyte_characters = enable_multibyte;
394 394
395 if (!NILP (current_buffer->enable_multibyte_characters) 395 if (!NILP (current_buffer->enable_multibyte_characters)
396 && ! STRING_MULTIBYTE (minibuf_prompt)) 396 && ! STRING_MULTIBYTE (minibuf_prompt))
397 minibuf_prompt = Fstring_make_multibyte (minibuf_prompt); 397 minibuf_prompt = Fstring_make_multibyte (minibuf_prompt);
398 398