diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-01-13 00:03:31 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-01-13 00:03:31 -0500 |
| commit | 6ae948d87e16588cd1c2a08d41331923e9786109 (patch) | |
| tree | d689cde76b1b0bec4834e372d67e8b677bb2f101 /lisp/indent.el | |
| parent | 7d29a37a5bcd753536311b0aa87bdbb317eed42b (diff) | |
| download | emacs-6ae948d87e16588cd1c2a08d41331923e9786109.tar.gz | |
* lisp/indent.el (indent-according-to-mode): Flush to column 0 in text-mode
after an empty line.
Diffstat (limited to 'lisp/indent.el')
| -rw-r--r-- | lisp/indent.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index 4cd669ccf37..2af5a58f6c5 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -76,9 +76,10 @@ that case, indent by aligning to the previous non-blank line." ;; indenting. Replace with something ad-hoc. (let ((column (save-excursion (beginning-of-line) - (skip-chars-backward "\n \t") - (beginning-of-line) - (current-indentation)))) + (if (bobp) 0 + (beginning-of-line 0) + (if (looking-at "[ \t]*$") 0 + (current-indentation)))))) (if (<= (current-column) (current-indentation)) (indent-line-to column) (save-excursion (indent-line-to column)))) |