Fix indentation to match style guide

[Chris Gregory]

This patch fixes these two places that did not correctly use tabs and
spaces in conjunction.

diff --git a/src/keyboard.c b/src/keyboard.c
index f2ee313..4745a7f 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2161,10 +2161,10 @@ read_event_from_main_queue (struct timespec *end_time,
       Lisp_Object last = KVAR (kb, kbd_queue);
       if (CONSP (last))
         {
-          while (CONSP (XCDR (last)))
-       last = XCDR (last);
-          if (!NILP (XCDR (last)))
-       emacs_abort ();
+         while (CONSP (XCDR (last)))
+           last = XCDR (last);
+         if (!NILP (XCDR (last)))
+           emacs_abort ();
         }
       if (!CONSP (last))
         kset_kbd_queue (kb, list1 (c));
diff --git a/src/lread.c b/src/lread.c
index 35348f1..f14c68e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2643,15 +2643,15 @@ read1 (Lisp_Object readcharfun, int *pch, bool 
first_in_list)
              ht = Fmake_hash_table (param_count, params);
 
              while (CONSP (data))
-               {
-                 key = XCAR (data);
-                 data = XCDR (data);
-                 if (!CONSP (data))
+               {
+                 key = XCAR (data);
+                 data = XCDR (data);
+                 if (!CONSP (data))
                    error ("Odd number of elements in hash table data");
-                 val = XCAR (data);
-                 data = XCDR (data);
-                 Fputhash (key, val, ht);
-               }
+                 val = XCAR (data);
+                 data = XCDR (data);
+                 Fputhash (key, val, ht);
+               }
 
              return ht;
            }