(move-to-left-margin): Removed left-over code that

made it fail on right-justified and centered text.

1 files changed, 9 insertions, 11 deletions

diff --git a/lisp/indent.el b/lisp/indent.el
index 19786237d6d..08f90e2997f 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -110,17 +110,15 @@ If the line's indentation appears to be wrong, and this command is called
 interactively or with optional argument FORCE, it will be fixed."
   (interactive (list (prefix-numeric-value current-prefix-arg) t))
   (beginning-of-line n)
-  (let ((lm (current-left-margin)))
-    (if (memq (current-justification) '(right center))
-	(move-to-column lm)
-      (skip-chars-forward " \t"))
-    (let ((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))))))
+  (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)))))
 
 ;; This is the default indent-line-function,
 ;; used in Fundamental Mode, Text Mode, etc.