leoliu pushed a commit to branch master in repository elpa. commit 8777448c3611f86c252de60eb7748e0e08a41bda Author: Leo Liu <sdl....@gmail.com> 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 '(+ -))