           (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

(defmacro radian--with-silent-load (&rest body)
  "Execute BODY, with the function `load' made silent."
  (declare (indent 0))
  `(cl-letf* ((load-orig (symbol-function #'load))
              ((symbol-function #'load)
               (lambda (file &optional noerror _nomessage &rest args)
                 (apply load-orig file noerror 'nomessage args))))
     ,@body))

(defmacro radian--with-silent-write (&rest body)
  "Execute BODY, with the function `write-region' made silent."
  (declare (indent 0))
  `(cl-letf* ((write-region-orig (symbol-function #'write-region))
              ((symbol-function #'write-region)
               (lambda (start end filename &optional append visit lockname
                              mustbenew)
                 (funcall write-region-orig start end filename append 0
                          lockname mustbenew)
                 (when (or (stringp visit) (eq visit t))
                   (setq buffer-file-name
                         (if (stringp visit)
                             visit
                           filename))
                   (set-visited-file-modtime)
                   (set-buffer-modified-p nil))))
              ((symbol-function #'message) #'ignore))
     ,@body))

(defmacro radian--with-silent-message (regexps &rest body)
  "Silencing any messages that match REGEXPS, execute BODY.

        (setq blacklist nil))
      (if (member key blacklist)
          ?n
        (radian-flet ((defun auth-source-read-char-choice (prompt choices)
                        (let ((choice (funcall auth-source-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
