Reindent in `paredit-open-round' &c. like `paredit-wrap-round' &c.

Ignore-this: 13da51d89ea973b30048035bea3ac499

This way, M-3 ( works mostly like M-3 M-(.  (They still behave
differently with respect to `paredit-yank-pop', though.)

darcs-hash:20110322204957-00fcc-3cbe3616018abf120000169ad818b1d86de9bdcb

1 files changed, 2 insertions, 1 deletions

diff --git a/paredit.el b/paredit.el
index d86bf25..5c27bab 100644
--- a/paredit.el
+++ b/paredit.el
@@ -629,7 +629,8 @@ If in a character literal, do nothing.  This prevents changing what was
                     (paredit-in-comment-p))
                 (insert ,open))
                ((not (paredit-in-char-p))
-                (paredit-insert-pair n ,open ,close 'goto-char))))
+                (paredit-insert-pair n ,open ,close 'goto-char)
+                (save-excursion (backward-up-list) (indent-sexp)))))
        (defun ,(paredit-conc-name "paredit-close-" name) ()
          ,(concat "Move past one closing delimiter and reindent.
 \(Agnostic to the specific closing delimiter.)