[elpa] 39/77: Fix doc and buglets in last change

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 9752842b9db1cf6f27518a7ed1d67a36259083f3
Author: Leo Liu <address@hidden>
Date:   Fri Oct 11 13:09:20 2013 +0800

    Fix doc and buglets in last change
---
 README.rst   |   10 ++++++----
 easy-kill.el |    7 ++++---
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/README.rst b/README.rst
index 9192264..0c8b565 100644
--- a/README.rst
+++ b/README.rst
@@ -2,9 +2,11 @@
  Kill Things Easily in Emacs
 =============================
  
-``easy-kill`` let users kill things at point without moving point. Its
-goal is to be a drop-in replacement for ``kill-ring-save``. It tries
-in order:
+Commands ``easy-kill`` and ``easy-mark`` let users kill/mark things at
+point easily.
+
+``easy-kill`` is a drop-in replacement for ``kill-ring-save``. It
+tries in order:
 
 #. current region if active
 #. url at point (snarf char properties ``help-echo``, ``shr-url``,
@@ -12,7 +14,7 @@ in order:
 #. email at point
 #. current line
 
-Keys (customisable) immediately following ``M-w``:
+Keys (customisable) immediately following ``easy-kill``:
 
 #. ``w`` -> word at point
 #. ``s`` -> sexp at point
diff --git a/easy-kill.el b/easy-kill.el
index 3f22f17..04cb42c 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -196,8 +196,8 @@ candidate property instead."
                            (forward-thing thing direction)
                            (when (<= (point) start)
                              (forward-thing thing 1)
-                             (return)))
-                         (point)))))
+                             (return))))
+                       (point))))
         (when (/= end new-end)
           (easy-kill-adjust-candidate thing nil new-end)
           t)))))
@@ -298,6 +298,7 @@ Temporally activate additional key bindings as follows:
 
 ;;;###autoload
 (defun easy-mark (&optional n)
+  "Like `easy-kill' (which see) but for marking."
   (interactive "p")
   (setq easy-kill-mark t)
   (easy-kill-init-candidate n)
@@ -322,7 +323,7 @@ party; +, full path."
   "Get url at point or from char properties.
 Char properties `help-echo', `shr-url' and `w3m-href-anchor' are
 inspected."
-  (if (bounds-of-thing-at-point 'url)
+  (if (or easy-kill-mark (bounds-of-thing-at-point 'url))
       (easy-kill-thing 'url nil nil t)
     (let ((get-url (lambda (text)
                      (when (stringp text)