leoliu pushed a commit to branch master
in repository elpa.
commit 4b9c146fc82424e9e90d1632f2c0ff73fe917880
Author: Leo Liu <[email protected]>
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))))
