* lisp/electric.el (electric-indent-mode): Fix last change (too optimistic).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e79af3ae2e8013717abc30667e6a758b8152ed76..e6f1bc55bf228ce2e3f569ffd5f1a0d8a36b497b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-11-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * electric.el (electric-indent-mode): Fix last change (too optimistic).
+
        * emacs-lisp/bytecomp.el: Silence obsolete warnings more reliably.
        (byte-compile-global-not-obsolete-vars): New var.
        (byte-compile-check-variable, byte-compile-make-obsolete-variable):

diff --git a/lisp/electric.el b/lisp/electric.el
index 69acb773648e7cddccc34cabe51db23086c0a225..657b577bb1ebaff2cbd00de2b2de228816facc4e 100644 (file)
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -260,15 +260,23 @@ reindentation is triggered whenever you insert a character listed
 in `electric-indent-chars'."
   :global t
   :group 'electricity
-  (if electric-indent-mode
-      (add-hook 'post-self-insert-hook
-                #'electric-indent-post-self-insert-function
-                ;; post-self-insert-hooks interact in non-trivial ways.
-                ;; It turns out that electric-indent-mode generally works
-                ;; better last.
-                'append)
-    (remove-hook 'post-self-insert-hook
-                 #'electric-indent-post-self-insert-function)))
+  (if (not electric-indent-mode)
+      (remove-hook 'post-self-insert-hook
+                   #'electric-indent-post-self-insert-function)
+    ;; post-self-insert-hooks interact in non-trivial ways.
+    ;; It turns out that electric-indent-mode generally works better if run
+    ;; late, but still before blink-paren.
+    (add-hook 'post-self-insert-hook
+              #'electric-indent-post-self-insert-function
+              'append)
+    ;; FIXME: Ugly!
+    (let ((bp (memq #'blink-paren-post-self-insert-function
+                    (default-value 'post-self-insert-hook))))
+      (when (memq #'electric-indent-post-self-insert-function bp)
+        (setcar bp #'electric-indent-post-self-insert-function)
+        (setcdr bp (cons #'blink-paren-post-self-insert-function
+                         (delq #'electric-indent-post-self-insert-function
+                               (cdr bp))))))))
 
 ;; Electric pairing.