From fbd1209a4ab786a3f97bf73bbd894574490c9e1b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 8 Sep 1999 21:14:25 +0000 Subject: [PATCH] (read_minibuf): Put all three properties on the same range--the whole prompt. --- src/minibuf.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index 99368824a31..b056c379d8b 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -241,6 +241,7 @@ read_minibuf (map, initial, prompt, backup_n, expflag, 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 @@ read_minibuf (map, initial, prompt, backup_n, expflag, 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), - Qread_only, Qt, Qnil); - Fput_text_property (make_number (PT - 1), make_number (Z), + 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); } /* If appropriate, copy enable-multibyte-characters into the minibuffer. */ -- 2.39.5