leoliu pushed a commit to branch master
in repository elpa.
commit 8777448c3611f86c252de60eb7748e0e08a41bda
Author: Leo Liu <[email protected]>
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 '(+ -))
