diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-09-08 21:14:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-09-08 21:14:25 +0000 |
| commit | fbd1209a4ab786a3f97bf73bbd894574490c9e1b (patch) | |
| tree | 3099cdad3265fcd33f0963f3a964438011e27f3a /src/minibuf.c | |
| parent | 63f4d579144e66fbe789262347bd6b53217e372d (diff) | |
| download | emacs-fbd1209a4ab786a3f97bf73bbd894574490c9e1b.tar.gz | |
(read_minibuf): Put all three properties on the same range--the whole prompt.
Diffstat (limited to 'src/minibuf.c')
| -rw-r--r-- | src/minibuf.c | 9 |
1 files 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. */ |