[nongnu] elpa/paredit d80a9db 141/224: Fail early in `paredit-convolute-sexp'.

[ELPA Syncer]

branch: elpa/paredit
commit d80a9db08c434777f4bbe47390eea8ec7cbd729c
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    Fail early in `paredit-convolute-sexp'.
    
    Ignore-this: 9262a1436f4dcda20711a80a776cddea
    
    darcs-hash:20110507210933-00fcc-65b52e19c6ab91c2e8a9ed93e03ede7a70e87a14
---
 paredit.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/paredit.el b/paredit.el
index e8a794c..c8b82ca 100644
--- a/paredit.el
+++ b/paredit.el
@@ -2133,6 +2133,8 @@ Wrap the enclosing list in a new list prefixed by the 
saved text.
 With a prefix argument N, move up N lists before wrapping."
   (interactive "p")
   (paredit-lose-if-not-in-sexp 'paredit-convolute-sexp)
+  ;; Make sure we can move up before destroying anything.
+  (save-excursion (backward-up-list) (backward-up-list))
   (let (open close)                     ;++ Is this a good idea?
     (let ((prefix
            (let ((end (point)))