[elpa] 25/77: Fix thinko in easy-kill-backward-down

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 8777448c3611f86c252de60eb7748e0e08a41bda
Author: Leo Liu <address@hidden>
Date:   Wed Oct 9 11:54:14 2013 +0800

    Fix thinko in easy-kill-backward-down
---
 easy-kill.el |   27 +++++++++++++--------------
 1 files changed, 13 insertions(+), 14 deletions(-)

diff --git a/easy-kill.el b/easy-kill.el
index 6d37b7f..547840d 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -305,26 +305,25 @@ inspected."
   (condition-case nil
       (progn
         (easy-kill-backward-up)
-        (if (or (not bound)
-                (and (> (point) bound) (/= point (point))))
+        (if (and (or (not bound) (> (point) bound))
+                 (/= point (point)))
             (easy-kill-backward-down (point) bound)
           point))
     (scan-error point)))
 
 (defun easy-kill-bounds-of-list (n)
   (save-excursion
-    (pcase n
-      (`+ (let ((start (overlay-start easy-kill-candidate)))
-            (goto-char start)
-            (easy-kill-backward-up)
-            (when (/= start (point))
-              (cons (point) (progn (forward-sexp) (point))))))
-      (`- (let ((pt (point)))
-            (goto-char (easy-kill-backward-down
-                        (point) (overlay-start easy-kill-candidate)))
-            (when (/= pt (point))
-              (cons (point) (progn (forward-sexp 1) (point))))))
-      (_ (error "Unsupported argument `%s'" n)))))
+    (when (pcase n
+            (`+ (let ((start (overlay-start easy-kill-candidate)))
+                  (goto-char start)
+                  (easy-kill-backward-up)
+                  (/= start (point))))
+            (`- (let ((pt (point)))
+                  (goto-char (easy-kill-backward-down
+                              (point) (overlay-start easy-kill-candidate)))
+                  (/= pt (point))))
+            (_ (error "Unsupported argument `%s'" n)))
+      (cons (point) (progn (forward-sexp 1) (point))))))
 
 (defun easy-kill-on-list (n)
   (if (memq n '(+ -))