From d80a9db08c434777f4bbe47390eea8ec7cbd729c Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 7 May 2011 21:09:33 +0000
Subject: Fail early in `paredit-convolute-sexp'.

Ignore-this: 9262a1436f4dcda20711a80a776cddea

darcs-hash:20110507210933-00fcc-65b52e19c6ab91c2e8a9ed93e03ede7a70e87a14
---
 paredit.el | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'paredit.el')

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)))
-- 
cgit v1.2.1