[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116003: * lisp/indent.el (indent-according-to-mode)
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r116003: * lisp/indent.el (indent-according-to-mode): Flush to column 0 in text-mode |
Date: |
Mon, 13 Jan 2014 05:03:36 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116003: * lisp/indent.el (indent-according-to-mode): Flush to column 0 in text-mode,
Stefan Monnier <=