commit 8651ec0e29275f6d749d23724297b413834b3178 parent 89668dd787248c7f0d35d4ab26f4a61f2efefdcb Author: Nick Drozd <nicholasdrozd@gmail.com> Date: Mon, 23 Jul 2018 10:22:52 -0500 Add helpful--make-callees-button Diffstat:
| M | helpful.el | | | 13 | ++++++++----- |
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/helpful.el b/helpful.el @@ -1532,6 +1532,13 @@ OBJ may be a symbol or a compiled function object." 'symbol sym 'callable-p callable-p)) +(defun helpful--make-callees-button (sym source) + (helpful--button + "Find callees" + 'helpful-callees-button + 'symbol sym + 'source source)) + (defun helpful--summary (sym callable-p buf pos) "Return a one sentence summary for SYM." (-let* ((primitive-p (helpful--primitive-p sym callable-p)) @@ -1881,11 +1888,7 @@ state of the current symbol." (when (and helpful--callable-p source (not primitive-p)) (insert " " - (helpful--button - "Find callees" - 'helpful-callees-button - 'symbol helpful--sym - 'source source))) + (helpful--make-callees-button helpful--sym source))) (when (helpful--advised-p helpful--sym) (helpful--insert-section-break)