lispy.el (lispy--insert-or-call): use `bound-and-true-p'

qioixiy · Feb 18, 2014 · 2b04deb · 2b04deb
1 parent 758704d
commit 2b04deb
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lispy.el b/lispy.el
@@ -836,7 +836,7 @@ otherwise the whole string is unquoted."
   "Insert one space.
 Special case is (|( -> ( |(."
   (interactive)
-  (if (and (featurep 'edebug) edebug-active)
+  (if (and (bound-and-true-p edebug-active))
       (edebug-step-mode)
     (if (region-active-p)
         (progn
@@ -2355,8 +2355,7 @@ list."
               (symbol-name def) (documentation def))
      ,(interactive-form def)
      (let (cmd)
-       (cond ((and (featurep 'edebug)
-                   edebug-active
+       (cond ((and (bound-and-true-p edebug-active)
                    (= 1 (length (this-command-keys)))
                    (let ((char (aref (this-command-keys) 0)))
                      (setq cmd (or (assq char edebug-mode-map)