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