leoliu pushed a commit to branch master
in repository elpa.
commit 98a7d5e9189067679fc5b561fd571b5936eece00
Author: Leo Liu <[email protected]>
Date: Sat Apr 12 18:14:16 2014 +0800
Fix last change for the case of no thing at point
---
easy-kill.el | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/easy-kill.el b/easy-kill.el
index 924ea91..8cb3450 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -157,6 +157,7 @@ The value is the function's symbol if non-nil."
(defun easy-kill-pair-to-list (pair)
(pcase pair
+ (`nil nil)
(`(,beg . ,end) (list beg end))
(_ (signal 'wrong-type-argument (list pair "Not a dot pair")))))
@@ -335,7 +336,8 @@ candidate property instead."
(when (and (easy-kill-get thing) (/= n 0))
(let* ((step (if (cl-minusp n) -1 +1))
(thing (easy-kill-get thing))
- (bounds1 (easy-kill-pair-to-list (bounds-of-thing-at-point thing)))
+ (bounds1 (or (easy-kill-pair-to-list (bounds-of-thing-at-point
thing))
+ (list (point) (point))))
(start (easy-kill-get start))
(end (easy-kill-get end))
(front (or (car (cl-set-difference (list end start) bounds1))
