From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 25 Aug 1999 21:12:36 +0000 (+0000)
Subject: (Fforward_word): If in a mini-buffer and moving
X-Git-Tag: emacs-pretest-21.0.90~7040
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5878ee6fc41906578910f760f098452b1880b792;p=emacs.git

(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 --git a/src/syntax.c b/src/syntax.c
index 233f7980251..71a2080836d 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -1214,6 +1214,17 @@ and nil is returned.")
       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;
 }