Refactor the trace + update code to a new function

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)