From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 21 Jul 1999 21:43:52 +0000 (+0000)
Subject: (Fbeginning_of_line) [PROMPT_IN_BUFFER]: Set point to
X-Git-Tag: emacs-pretest-21.0.90~7426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f69f3ee03bace23944f3a21fe4cdef06c9bf9f4f;p=emacs.git

(Fbeginning_of_line) [PROMPT_IN_BUFFER]: Set point to
end of prompt if applied to a mini-buffer and BEG reached.
---

diff --git a/src/cmds.c b/src/cmds.c
index 2273aa03002..9c2f83dc054 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -163,7 +163,17 @@ If scan reaches end of buffer, stop there without error.")
   else
     CHECK_NUMBER (n, 0);
 
+#if !NO_PROMPT_IN_BUFFER
+  {
+    int pos = XFASTINT (Fline_beginning_position (n));
+    if (INTEGERP (current_buffer->minibuffer_prompt_length)
+	&& pos < XFASTINT (current_buffer->minibuffer_prompt_length))
+      pos = XFASTINT (current_buffer->minibuffer_prompt_length);
+    SET_PT (pos);
+  }
+#else
   SET_PT (XINT (Fline_beginning_position (n)));
+#endif
   return Qnil;
 }