mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 11:33:09 -08:00
Code Issues Projects Releases Wiki Activity

(Fforward_word): Stop at a mini-buffer prompt end

Browse source 
in both directions.  Extend documentation.
This commit is contained in:
Gerd Moellmann 1999-09-02 20:35:55 +00:00
parent 7ec44ec68f
commit ce1dc5105e
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/syntax.c
View file

@ -1227,7 +1227,7 @@ and nil is returned.")
(count)
Lisp_Object count;
{
int val;
int val, prompt_end;
CHECK_NUMBER (count, 0);
if (!(val = scan_words (PT, XINT (count))))
@ -1236,16 +1236,15 @@ and nil is returned.")
return Qnil;
}
/* If in a mini-buffer and moving backwards, stop in front of the
prompt if we are currently in front of it. This prevents
accidentially moving into the read-only prompt. */
if (INTEGERP (current_buffer->minibuffer_prompt_length))
{
int prompt_end = XFASTINT (current_buffer->minibuffer_prompt_length);
if (PT > prompt_end && val < prompt_end)
val = prompt_end;
}
/* If in a mini-buffer and moving backwards, stop at the end of the
prompt. This prevents accidentially moving into the read-only
prompt. */
if (INTEGERP (current_buffer->minibuffer_prompt_length)
&& (prompt_end = XINT (current_buffer->minibuffer_prompt_length),
((PT > prompt_end && val < prompt_end)
|| (PT < prompt_end && val > prompt_end))))
val = prompt_end;
SET_PT (val);
return Qt;
}