Bind M-[ to paredit-wrap-square.

2 files changed, 4 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index e52586b..bf0cd08 100644
--- a/NEWS
+++ b/NEWS
@@ -15,6 +15,7 @@ The latest version of this file is available at
 
 ** Version 24 (beta)
 
+*** New key binding: M-[ (paredit-wrap-square)
 *** C-M-f/C-M-b (paredit-forward/paredit-backward) now move out of strings.
 *** Changed M-" (paredit-meta-doublequote) to not break line, like M-).
 *** New command: paredit-meta-doublequote-and-newline has old behaviour.
diff --git a/paredit.el b/paredit.el
index a79db21..30834d5 100644
--- a/paredit.el
+++ b/paredit.el
@@ -392,6 +392,9 @@ Paredit behaves badly if parentheses are unbalanced, so exercise
    ("M-("       paredit-wrap-round
                 ("(foo |bar baz)"
                  "(foo (|bar) baz)"))
+   ("M-["       paredit-wrap-square
+                ("(foo |bar baz)"
+                 "(foo [|bar] baz)"))
    ("M-s"       paredit-splice-sexp
                 ("(foo (bar| baz) quux)"
                  "(foo bar| baz quux)"))