# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1095696572 0
# Node ID 11b507f888a6c9db0750a87dfccceef7f891ca9f
# Parent  22cfa0559b07e2fc6ac97503cbd8ed6bafb3799a
(move-to-left-margin): Special case for minibuffer.

diff -r 22cfa0559b07 -r 11b507f888a6 lisp/indent.el
--- a/lisp/indent.el	Mon Sep 20 15:59:31 2004 +0000
+++ b/lisp/indent.el	Mon Sep 20 16:09:32 2004 +0000
@@ -164,14 +164,18 @@
   (interactive (list (prefix-numeric-value current-prefix-arg) t))
   (beginning-of-line n)
   (skip-chars-forward " \t")
-  (let ((lm (current-left-margin))
-	(cc (current-column)))
-    (cond ((> cc lm)
-	   (if (> (move-to-column lm force) lm)
-	       ;; If lm is in a tab and we are not forcing, move before tab
-	       (backward-char 1)))
-	  ((and force (< cc lm))
-	   (indent-to-left-margin)))))
+  (if (minibufferp (current-buffer))
+      (if (save-excursion (beginning-of-line) (bobp))
+	  (goto-char (minibuffer-prompt-end))
+	(beginning-of-line))
+    (let ((lm (current-left-margin))
+	  (cc (current-column)))
+      (cond ((> cc lm)
+	     (if (> (move-to-column lm force) lm)
+		 ;; If lm is in a tab and we are not forcing, move before tab
+		 (backward-char 1)))
+	    ((and force (< cc lm))
+	     (indent-to-left-margin))))))
 
 ;; This used to be the default indent-line-function,
 ;; used in Fundamental Mode, Text Mode, etc.