[elpa] 23/77: Use parse-partial-sexp in easy-kill-bounds-of-list

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit f4c634a8b46eabf9125ee7525d5a7fb04fe01cd3
Author: Leo Liu <address@hidden>
Date:   Tue Oct 8 23:48:41 2013 +0800

    Use parse-partial-sexp in easy-kill-bounds-of-list
    
    Use ignore-errors for less noise.
---
 easy-kill.el |   20 +++++++++-----------
 1 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/easy-kill.el b/easy-kill.el
index 8e56de4..82baa79 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -299,18 +299,16 @@ inspected."
   (save-excursion
     (pcase n
       (`+ (goto-char (overlay-start easy-kill-candidate))
-          (with-demoted-errors (up-list -1))
-          (with-demoted-errors
+          (ignore-errors
+            (up-list -1)
             (cons (point) (progn (forward-sexp) (point)))))
-      (`- (let ((bound (or (cdr (bounds-of-thing-at-point 'sexp)) (point))))
-            (goto-char (overlay-start easy-kill-candidate))
-            (with-demoted-errors
-              (down-list 1)
-              (while (< (point) bound) (forward-sexp 1)))
-            (when (>= (point) bound)
-              (let ((end (point)))
-                (with-demoted-errors
-                  (cons (progn (forward-sexp -1) (point)) end))))))
+      (`- (let ((depth (car (parse-partial-sexp
+                             (overlay-start easy-kill-candidate) (point)))))
+            (if (> depth 1)
+                (ignore-errors
+                  (goto-char (scan-lists (point) -1 (1- depth)))
+                  (cons (point) (progn (forward-sexp 1) (point))))
+              (bounds-of-thing-at-point 'sexp))))
       (_ (error "Unsupported argument `%s'" n)))))
 
 (defun easy-kill-on-list (n)