From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Sep 1999 01:12:39 +0000 (+0000)
Subject: (Fbeginning_of_line): Don't handle minibuffer prompt here.
X-Git-Tag: emacs-pretest-21.0.90~6810
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0aee588ddc19a0bbaa3ce094986b4f6a2706a243;p=emacs.git

(Fbeginning_of_line): Don't handle minibuffer prompt here.
---

diff --git a/src/cmds.c b/src/cmds.c
index 64e7eaca4f2..3e688afa995 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -163,13 +163,7 @@ If scan reaches end of buffer, stop there without error.")
   else
     CHECK_NUMBER (n, 0);
 
-  {
-    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);
-  }
+  SET_PT (XINT (Fline_beginning_position (n)));
   
   return Qnil;
 }
@@ -182,9 +176,6 @@ If scan reaches end of buffer, stop there without error.")
   (n)
      Lisp_Object n;
 {
-  register int pos;
-  register int stop;
-
   if (NILP (n))
     XSETFASTINT (n, 1);
   else