# HG changeset patch # User Richard M. Stallman # Date 936825265 0 # Node ID 7f8ebd701925788a57d5d10b8d14658dc7391073 # Parent 9c9d13747ffbd638a35f062bb5ef28730aa14d6e (read_minibuf): Put all three properties on the same range--the whole prompt. diff -r 9c9d13747ffb -r 7f8ebd701925 src/minibuf.c --- a/src/minibuf.c Wed Sep 08 11:49:34 1999 +0000 +++ b/src/minibuf.c Wed Sep 08 21:14:25 1999 +0000 @@ -241,6 +241,7 @@ struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; Lisp_Object enable_multibyte; extern Lisp_Object Qinvisible, Qintangible, Qread_only, Qfront_sticky; + extern Lisp_Object Qrear_nonsticky; specbind (Qminibuffer_default, defalt); @@ -396,12 +397,12 @@ XSETFASTINT (current_buffer->minibuffer_prompt_length, PT); if (PT > BEG) { - Fput_text_property (make_number (BEG), make_number (PT - 1), + Fput_text_property (make_number (BEG), make_number (PT), Qfront_sticky, Qt, Qnil); - Fput_text_property (make_number (BEG), make_number (PT - 1), + Fput_text_property (make_number (BEG), make_number (PT), + Qrear_nonsticky, Qt, Qnil); + Fput_text_property (make_number (BEG), make_number (PT), Qread_only, Qt, Qnil); - Fput_text_property (make_number (PT - 1), make_number (Z), - Qrear_nonsticky, Qt, Qnil); } /* If appropriate, copy enable-multibyte-characters into the minibuffer. */