[Emacs-diffs] /srv/bzr/emacs/trunk r102881: * lisp/electric.el (electric-indent-post-self-insert-function):

[Stefan Monnier]

------------------------------------------------------------
revno: 102881
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-01-17 21:11:51 -0500
message:
  * lisp/electric.el (electric-indent-post-self-insert-function):
  Don't auto-indent for indent-to-left-margin, it's too often
  counter-productive.
modified:
  lisp/ChangeLog
  lisp/electric.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-16 20:41:25 +0000
+++ b/lisp/ChangeLog    2011-01-18 02:11:51 +0000
@@ -1,3 +1,9 @@
+2011-01-18  Stefan Monnier  <address@hidden>
+
+       * electric.el (electric-indent-post-self-insert-function):
+       Don't auto-indent for indent-to-left-margin, it's too often
+       counter-productive.
+
 2011-01-16  Tassilo Horn  <address@hidden>
 
        * strokes.el (strokes-read-stroke): Re-fill strokes buffer with
@@ -54,12 +60,12 @@
 
 2011-01-15  Kenichi Handa  <address@hidden>
 
-       * mail/rmailmm.el (rmail-mime-insert-header): Set
-       rmail-mime-coding-system to a cons whose car is the last coding
+       * mail/rmailmm.el (rmail-mime-insert-header):
+       Set rmail-mime-coding-system to a cons whose car is the last coding
        system used to decode the header.
        (rmail-mime-find-header-encoding): New function.
-       (rmail-mime-insert-decoded-text): Override
-       rmail-mime-coding-system if it is a cons.
+       (rmail-mime-insert-decoded-text):
+       Override rmail-mime-coding-system if it is a cons.
        (rmail-show-mime): If only a header part was decoded, find the
        coding system while ignoring mm-charset-override-alist.
 
@@ -72,8 +78,8 @@
        * mail/rmailmm.el (rmail-mime-next-item)
        (rmail-mime-previous-item): Delete them.
        (rmail-mime-shown-mode): Recursively call for children.
-       (rmail-mime-hidden-mode): Delete the 2nd arg TOP.  Callers
-       changed.
+       (rmail-mime-hidden-mode): Delete the 2nd arg TOP.
+       Callers changed.
        (rmail-mime-raw-mode): Recursively call for children.
        (rmail-mode-map): Change mapping of tab and backtab to
        forward-button and backward-button respectively.
@@ -82,7 +88,7 @@
        (rmail-mime-update-tagline): New function.
        (rmail-mime-insert-text): Call rmail-mime-update-tagline if the
        body display is changed.
-       (rmail-mime-toggle-button): Renamed from rmail-mime-image.
+       (rmail-mime-toggle-button): Rename from rmail-mime-image.
        (rmail-mime-image): Delete this button type.
        (rmail-mime-toggle): New button type.
        (rmail-mime-insert-bulk): Call rmail-mime-update-tagline if the
@@ -329,8 +335,8 @@
        menus.  Add menu item for customize-themes.
 
        * cus-theme.el (customize-themes):
-       * emacs-lisp/package.el (package--list-packages): Use
-       switch-to-buffer.
+       * emacs-lisp/package.el (package--list-packages):
+       Use switch-to-buffer.
 
 2011-01-11  Johan Bockgård  <address@hidden>
 

=== modified file 'lisp/electric.el'
--- a/lisp/electric.el  2011-01-15 23:16:57 +0000
+++ b/lisp/electric.el  2011-01-18 02:11:51 +0000
@@ -221,7 +221,8 @@
         (let ((before (copy-marker (1- pos) t)))
           (save-excursion
             (unless (memq indent-line-function
-                          '(indent-relative indent-relative-maybe))
+                          '(indent-relative indent-to-left-margin
+                            indent-relative-maybe))
               ;; Don't reindent the previous line if the indentation function
               ;; is not a real one.
               (goto-char before)
@@ -235,7 +236,8 @@
             ;; Remove the trailing whitespace after indentation because
             ;; indentation may (re)introduce the whitespace.
             (delete-horizontal-space t))))
-      (indent-according-to-mode))))
+      (unless (memq indent-line-function '(indent-to-left-margin))
+        (indent-according-to-mode)))))
 
 ;;;###autoload
 (define-minor-mode electric-indent-mode