# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 935615556 0
# Node ID 3f78f1fed4e0e37b427a8d903e0630f72934719c
# Parent  c75839c09c844e30519226c6188d973a283cfb17
(Fforward_word): If in a mini-buffer and moving
backwards, stop in front of the prompt to prevent accidentially
moving into the read-only prompt.

diff -r c75839c09c84 -r 3f78f1fed4e0 src/syntax.c
--- a/src/syntax.c	Wed Aug 25 21:12:15 1999 +0000
+++ b/src/syntax.c	Wed Aug 25 21:12:36 1999 +0000
@@ -1214,6 +1214,17 @@
       SET_PT (XINT (count) > 0 ? ZV : BEGV);
       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;
+    }
+  
   SET_PT (val);
   return Qt;
 }