Mercurial > emacs

changeset 111844:ea38bb6f82b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/electric.el (electric-indent-post-self-insert-function): Delete trailing newlines even if we don't reindent.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 07 Dec 2010 10:36:08 -0500
parents 94c9743593b9
children 69d9367a976b
files lisp/ChangeLog lisp/electric.el
diffstat 2 files changed, 17 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Dec 07 14:10:11 2010 +0000
+++ b/lisp/ChangeLog	Tue Dec 07 10:36:08 2010 -0500
@@ -1,5 +1,15 @@
+2010-12-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* electric.el (electric-indent-post-self-insert-function):
+	Delete trailing newlines even if we don't reindent.
+
 2010-12-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* minibuffer.el (completion-at-point): Remove the `arg'.
+	* bindings.el (complete-symbol): Move back from minibuffer.el.
+
+2010-12-06  Deniz Dogan  <deniz.a.m.dogan@gmail.com>
+
 	* simple.el (just-one-space): Delete newlines for negative arg.
 
 2010-12-06  Stefan Monnier  <monnier@iro.umontreal.ca>
--- a/lisp/electric.el	Tue Dec 07 14:10:11 2010 +0000
+++ b/lisp/electric.el	Tue Dec 07 10:36:08 2010 -0500
@@ -217,15 +217,15 @@
                (not (nth 8 (save-excursion (syntax-ppss pos)))))
       ;; For newline, we want to reindent both lines and basically behave like
       ;; reindent-then-newline-and-indent (whose code we hence copied).
-      (when (and (< (1- pos) (line-beginning-position))
-                 ;; Don't reindent the previous line if the indentation
-                 ;; function is not a real one.
-                 (not (memq indent-line-function
-                            '(indent-relative indent-relative-maybe))))
+      (when (< (1- pos) (line-beginning-position))
         (let ((before (copy-marker (1- pos) t)))
           (save-excursion
-            (goto-char before)
-            (indent-according-to-mode)
+            (unless (memq indent-line-function
+                          '(indent-relative indent-relative-maybe))
+              ;; Don't reindent the previous line if the indentation function
+              ;; is not a real one.
+              (goto-char before)
+              (indent-according-to-mode))
             ;; We are at EOL before the call to indent-according-to-mode, and
             ;; after it we usually are as well, but not always.  We tried to
             ;; address it with `save-excursion' but that uses a normal marker