[elpa] 50/77: Fix last change to easy-kill-backward-up

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

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