           (auto-revert-buffers &rest args)
         :around #'auto-revert-buffers
         "Inhibit `autorevert' for buffers not displayed in any window."
-        (cl-letf* ((buffer-list (symbol-function #'buffer-list))
-                   ((symbol-function #'buffer-list)
-                    (lambda (&rest args)
-                      (cl-remove-if-not
-                       #'get-buffer-window (apply buffer-list args)))))
+        (radian-flet ((defun buffer-list (&rest args)
+                        (cl-remove-if-not
+                         #'get-buffer-window (apply buffer-list args))))
           (apply auto-revert-buffers args)))
     (radian-defadvice radian--autorevert-only-visible (bufs)
       :filter-return #'auto-revert--polled-buffers

        (setq blacklist nil))
      (if (member key blacklist)
          ?n
        (cl-letf* ((orig-read-char-choice
                    (symbol-function #'auth-source-read-char-choice))
                   ((symbol-function #'auth-source-read-char-choice)
                    (lambda (prompt choices)
                      (let ((choice (funcall orig-read-char-choice
                                             prompt choices)))
                        (when (= choice ?N)
                          (push key blacklist)
                          (make-directory
                           (file-name-directory
                            radian--auth-source-blacklist-file)
                           'parents)
                          (with-temp-file radian--auth-source-blacklist-file
                            (print blacklist (current-buffer)))
                          (setq choice ?n))
                        choice))))
          (funcall func file add))))))

;;; Saving files

    :around #'git-gutter-fr:view-diff-infos
    "Disable the cutesy bitmap pluses and minuses from `git-gutter-fringe'.
Instead, display simply a flat colored region in the fringe."
    (radian-flet ((defun fringe-helper-insert-region
                      (beg end _bitmap &rest args)
                    (apply fringe-helper-insert-region
                           beg end 'radian--git-gutter-blank args)))
      (apply func args))))

;;;; External commands
