describe(describe-key-dispatch): Fix indentation.

atlas-engineer · Jun 25, 2024 · 1508fb1 · 1508fb1
1 parent 3e8d0b6
commit 1508fb1
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/source/describe.lisp b/source/describe.lisp
@@ -638,11 +638,9 @@ A command is a special kind of function that can be called with
   (buffer-load-internal-page-focus 'describe-bindings :buffer-id (id buffer)))
 
 (defun describe-key-dispatch (command)
-  (unwind-protect
-       (describe-command
-        :command (typecase command
-                   (symbol command)
-                   (command (name command))))
+  (unwind-protect (describe-command :command (typecase command
+                                               (symbol command)
+                                               (command (name command))))
     (setf (command-dispatcher *browser*) #'dispatch-command)
     (echo-dismiss)))