Refactor the trace + update code to a new function

Author: nbfalcon

helpful.el

@@ -440,11 +440,15 @@ or disable if already enabled."
       (untrace-function sym)
     (trace-function sym)))
 
+(defun helpful--trace-1 (sym)
+  "Toggle tracing for SYM and update the *helpful* buffer."
+  (helpful--toggle-tracing sym)
+  (helpful-update))
+
 (defun helpful--trace (button)
   "Toggle tracing for the current symbol."
   (let ((sym (button-get button 'symbol)))
-    (helpful--toggle-tracing sym))
-  (helpful-update))
+    (helpful--trace-1 sym)))
 
 (define-button-type 'helpful-navigate-button
   'action #'helpful--navigate
@@ -1165,8 +1169,7 @@ buffer."
   (helpful--ensure)
   (unless helpful--callable-p
     (user-error "Cannot trace a variable"))
-  (helpful--toggle-tracing helpful--sym)
-  (helpful-update))
+  (helpful--trace-1 helpful--sym))
 
 (defun helpful-set-value ()
   (interactive)