# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 932593432 0
# Node ID 7730c6f39ef529da1f61f77534e0fb15a731ecad
# Parent  1c522baf1a3c55eded5a1e909508768fb2662595
(Fbeginning_of_line) [PROMPT_IN_BUFFER]: Set point to
end of prompt if applied to a mini-buffer and BEG reached.

diff -r 1c522baf1a3c -r 7730c6f39ef5 src/cmds.c
--- a/src/cmds.c	Wed Jul 21 21:43:52 1999 +0000
+++ b/src/cmds.c	Wed Jul 21 21:43:52 1999 +0000
@@ -163,7 +163,17 @@
   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;
 }