From 792658bfacf42fb2a2aae936cf2923b9c56e1283 Mon Sep 17 00:00:00 2001
From: sakurawald <sakurawald@gmail.com>
Date: Mon, 9 Dec 2024 17:52:29 +0800
Subject: [PATCH] revert the indentation.

---
 extensions/vi-mode/commands.lisp | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/extensions/vi-mode/commands.lisp b/extensions/vi-mode/commands.lisp
index a8106edb9..5d9c0a432 100644
--- a/extensions/vi-mode/commands.lisp
+++ b/extensions/vi-mode/commands.lisp
@@ -404,10 +404,10 @@ Move the cursor to the first non-blank character of the line."
                          (max 0
                               (min (1- (length (line-string (current-point)))) pos))))
         (:block
-            (move-to-line (current-point) (min (line-number-at-point start)
-                                               (line-number-at-point end)))
-          (move-to-column (current-point) (min column-start
-                                               column-end))))
+         (move-to-line (current-point) (min (line-number-at-point start)
+                                            (line-number-at-point end)))
+         (move-to-column (current-point) (min column-start
+                                              column-end))))
       ;; After 'dw' or 'dW', move to the first non-blank char
       (when (and (this-motion-command)
                  (member (command-name (this-motion-command))
@@ -508,10 +508,10 @@ Move the cursor to the first non-blank character of the line."
   (yank-region start end :type type)
   (case type
     (:block
-        (move-to-line (current-point) (min (line-number-at-point start)
-                                           (line-number-at-point end)))
-      (move-to-column (current-point) (min (point-column start)
-                                           (point-column end))))
+     (move-to-line (current-point) (min (line-number-at-point start)
+                                        (line-number-at-point end)))
+     (move-to-column (current-point) (min (point-column start)
+                                          (point-column end))))
     (:line
      (move-to-column start (point-charpos (current-point)))
      (move-point (current-point) start))
@@ -801,9 +801,9 @@ on the same line or at eol if there are none."
            (move-point point p)))
        (lambda (point regex &optional limit-point)
          (lem/isearch::search-forward-regexp
-          point
-          (ignore-errors (ppcre:create-scanner regex :case-insensitive-mode case-insensitive))
-          limit-point))
+               point
+               (ignore-errors (ppcre:create-scanner regex :case-insensitive-mode case-insensitive))
+               limit-point))
        (lambda (point regex &optional limit-point)
          (lem/isearch::search-backward-regexp
           point
@@ -928,7 +928,7 @@ on the same line or at eol if there are none."
                                         (string c)
                                         limit)
                   unless result
-                  do (return nil)
+                    do (return nil)
                   finally (return t))
         (character-offset p offset)
         (move-point (current-point) p)))))