[elpa] 09/13: Fix last change for the case of no thing at point

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 98a7d5e9189067679fc5b561fd571b5936eece00
Author: Leo Liu <address@hidden>
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))