leoliu pushed a commit to branch master in repository elpa. commit 4b9c146fc82424e9e90d1632f2c0ff73fe917880 Author: Leo Liu <sdl....@gmail.com> Date: Mon Oct 14 16:29:32 2013 +0800
Fix last change to easy-kill-backward-up --- easy-kill.el | 10 ++++++++-- 1 files changed, 8 insertions(+), 2 deletions(-) diff --git a/easy-kill.el b/easy-kill.el index 37ee6c8..cb8c70b 100644 --- a/easy-kill.el +++ b/easy-kill.el @@ -350,7 +350,9 @@ Temporally activate additional key bindings as follows: (overlay-put easy-kill-candidate 'thing 'sexp) (easy-kill-thing 'sexp n)))) -;;; Extended things +;;;; Extended things + +;;; Handler for `buffer-file-name'. (defun easy-kill-on-buffer-file-name (n) "Get `buffer-file-name' or `default-directory'. @@ -365,6 +367,8 @@ party; +, full path." (_ file)))) (easy-kill-adjust-candidate 'buffer-file-name text))))) +;;; Handler for `url'. + (defun easy-kill-on-url (&optional _n) "Get url at point or from char properties. Char properties `help-echo', `shr-url' and `w3m-href-anchor' are @@ -387,13 +391,15 @@ inspected." (easy-kill-adjust-candidate 'url url) (return url))))))) +;;; Handler for `list'. + (defvar up-list-fn) ; Dynamically bound (defun easy-kill-backward-up () (let ((ppss (syntax-ppss))) (condition-case nil (progn - (funcall (or up-list-fn #'up-list) -1) + (funcall (or (bound-and-true-p up-list-fn) #'up-list) -1) ;; `up-list' may jump to another string. (when (and (nth 3 ppss) (< (point) (nth 8 ppss))) (goto-char (nth 8 ppss))))