   :blackout (lisp-interaction-mode . "Lisp-Interaction"))
 
 (defun radian-reload-init ()
+  "Reload the init-file."
   (interactive)
   (message "Reloading init-file...")
   (load user-init-file nil 'nomessage)

  (bind-key "C-c C-k" #'radian-eval-buffer-or-region map))

(defun radian-find-symbol (&optional symbol)
  "Same as `xref-find-definitions' but only for Elisp symbols."
  (interactive)
  (let ((xref-backend-functions '(elisp--xref-backend))
        ;; Make this command behave the same as `find-function' and

     ,@body))

(defmacro radian--with-silent-message (regexps &rest body)
  "Execute BODY, silencing any messages that match REGEXPS.
REGEXPS is a list of strings; if `message' would display a
message string (not including the trailing newline) matching any
element of REGEXPS, nothing happens. The REGEXPS need not match
