(move-to-left-margin): Special case for minibuffer.

diff --git a/lisp/indent.el b/lisp/indent.el
index 2d223b05ad60e3e18df5b678b55bcef8e21a7ab4..3f423adbace0be2ba7ac5eef14d22c84adf03312 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -164,14 +164,18 @@ interactively or with optional argument FORCE, it will be fixed."
   (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.