       (TeX-load-style-file file)
     :around #'TeX-load-style-file
     "Inhibit the \"Loading **/auto/*.el (source)...\" messages."
-    (cl-letf* ((load (symbol-function #'load))
-               ((symbol-function #'load)
-                (lambda (file &optional
-                              noerror _nomessage
-                              nosuffix must-suffix)
-                  (funcall
-                   load file noerror 'nomessage nosuffix must-suffix))))
+    (radian-flet ((defun load (file &optional
+                                    noerror _nomessage
+                                    nosuffix must-suffix)
+                    (funcall
+                     load file noerror 'nomessage nosuffix must-suffix)))
       (funcall TeX-load-style-file file)))
 
   (radian-defadvice radian--advice-inhibit-tex-removing-duplicates-message

      (orig-fun &rest args)
    :around #'lsp-ui-sideline-apply-code-actions
    "Apply code fix immediately if only one is possible."
    (cl-letf* ((orig-completing-read (symbol-function #'completing-read))
               ((symbol-function #'completing-read)
                (lambda (prompt collection &rest args)
                  (if (= (safe-length collection) 1)
                      (car collection)
                    (apply orig-completing-read prompt collection args)))))
      (apply orig-fun args)))

  ;; Don't show symbol definitions in the sideline. They are pretty

  (declare (indent 1))
  (when (stringp regexps)
    (setq regexps (list regexps)))
  `(radian-flet ((defun message (format &rest args)
                   (let ((str (apply #'format format args)))
                     ;; Can't use an unnamed block because during
                     ;; byte-compilation, some idiot loads `cl', which
                     ;; sticks an advice onto `dolist' that makes it
                     ;; behave like `cl-dolist' (i.e., wrap it in
                     ;; another unnamed block) and therefore breaks
                     ;; this code.
                     (cl-block done
                       (dolist (regexp ',regexps)
                         (when (or (null regexp) (string-match-p regexp str))
                           (cl-return-from done)))
                       (funcall message "%s" str)))))
     ,@body))

(defun radian--advice-silence-messages (func &rest args)
