[Emacs-diffs] trunk r116003: * lisp/indent.el (indent-according-to-mode): Flush to column 0 in text-mode

[Stefan Monnier]

------------------------------------------------------------
revno: 116003
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2014-01-13 00:03:31 -0500
message:
  * lisp/indent.el (indent-according-to-mode): Flush to column 0 in text-mode
  after an empty line.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/indent.el                 indent.el-20091113204419-o5vbwnq5f7feedwu-230

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-12 23:34:33 +0000
+++ b/lisp/ChangeLog    2014-01-13 05:03:31 +0000
@@ -1,3 +1,8 @@
+2014-01-13  Stefan Monnier  <address@hidden>
+
+       * indent.el (indent-according-to-mode): Flush to column 0 in text-mode
+       after an empty line.
+
 2014-01-12  Stefan Monnier  <address@hidden>
 
        * net/shr.el (shr-render-region): Autoload.

=== modified file 'lisp/indent.el'
--- a/lisp/indent.el    2014-01-01 07:43:34 +0000
+++ b/lisp/indent.el    2014-01-13 05:03:31 +0000
@@ -76,9 +76,10 @@
       ;; 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))))