]> git.eshelyaron.com Git - emacs.git/commitdiff
(Fbeginning_of_line) [PROMPT_IN_BUFFER]: Set point to
authorGerd Moellmann <gerd@gnu.org>
Wed, 21 Jul 1999 21:43:52 +0000 (21:43 +0000)
committerGerd Moellmann <gerd@gnu.org>
Wed, 21 Jul 1999 21:43:52 +0000 (21:43 +0000)
end of prompt if applied to a mini-buffer and BEG reached.

src/cmds.c

index 2273aa0300283cc0b3528d0c74f7e83373d1efaa..9c2f83dc0547b3f05c2d394b6673ba620a6755f6 100644 (file)
@@ -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;
 }