From d9ecc6d686c52255e764f69d6029c916cb67bc8a Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 22 Mar 2011 22:16:20 +0000
Subject: Handle scan errors in `paredit-scan-sexps-hack'.

Ignore-this: 1f0109619737b5836077f22e651dc390

Avoids dangling opening delimiters in `paredit-insert-pair'.

darcs-hash:20110322221620-00fcc-dff68effdbbb1b95f5b6d5c142e1ba4bb48bf3e5
---
 paredit.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'paredit.el')

diff --git a/paredit.el b/paredit.el
index 5c27bab..2e2fb28 100644
--- a/paredit.el
+++ b/paredit.el
@@ -757,7 +757,9 @@ If such a comment exists, delete the comment (including all leading
           (count 0))
       (catch 'exit
         (while (< count magnitude)
-          (let ((p (scan-sexps (point) direction)))
+          (let ((p
+                 (paredit-handle-sexp-errors (scan-sexps (point) direction)
+                   nil)))
             (if (not p) (throw 'exit nil))
             (goto-char p))
           (setq count (+ count 1)))))
-- 
cgit v1.2.1