diff options
| -rw-r--r-- | helpful.el | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -42,6 +42,7 @@ (require 'dash) (require 's) (require 'find-func) +(require 'nadvice) (defvar-local helpful--sym nil) @@ -391,9 +392,9 @@ E.g. (x x y z y) -> ((x . 2) (y . 2) (z . 1))" (setcdr item-and-count (1+ (cdr item-and-count))) (push (cons item 1) counts))))) -(defun helpful--advice (sym) +(defun helpful--advised-p (sym) "A list of advice associated with SYM." - (advice--symbol-function sym)) + (advice--p (advice--symbol-function sym))) (defun helpful--format-reference (head ref-count position path) (-let* (((def name) head) @@ -491,7 +492,7 @@ state of the current symbol." (or (helpful--format-properties helpful--sym) "No properties.")) - (when (helpful--advice helpful--sym) + (when (helpful--advised-p helpful--sym) (insert (helpful--heading "\n\nAdvice\n") (format |