Mercurial > emacs
changeset 13577:d88cdc4a0cfe
(move-to-left-margin): Removed left-over code that
made it fail on right-justified and centered text.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Nov 1995 22:43:35 +0000 |
| parents | 38c6a718abb8 |
| children | 85697e02a482 |
| files | lisp/indent.el |
| diffstat | 1 files changed, 9 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Fri Nov 17 22:27:47 1995 +0000 +++ b/lisp/indent.el Fri Nov 17 22:43:35 1995 +0000 @@ -110,17 +110,15 @@ 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.