Fix comments and whitespace.

diff --git a/src/data.c b/src/data.c
index 156c900933fbbc8780ad63e5289800b2aa98d531..f92bc7964807093bce511e6b395cd4f5a9eb35ac 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -941,10 +941,6 @@ do_symval_forwarding (register union Lisp_Fwd *valcontents)
 
 static void
 store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf)
-     /* struct Lisp_Symbol *symbol; */
-                                 
-                                 
-                        
 {
   switch (XFWDTYPE (valcontents))
     {

diff --git a/src/doc.c b/src/doc.c
index d9d79ee40727837fe8f7021b9eb2161761cd7d97..57e1bc8f0e6a59523053012f8a06a9c50899b8c1 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -511,9 +511,7 @@ aren't strings.  */)
 
 static void
 store_function_docstring (Lisp_Object fun, EMACS_INT offset)
-                     
-     /* Use EMACS_INT because we get this from pointer subtraction.  */
-                      
+/* Use EMACS_INT because we get offset from pointer subtraction.  */
 {
   fun = indirect_function (fun);
 

diff --git a/src/editfns.c b/src/editfns.c
index f318705d2cdb2a75b6d7fcedc18f9782d09ea76e..5b340644fa86f4daef85c1893da42b6a49583335 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1436,7 +1436,7 @@ get_system_name (void)
 }
 
 char *
-get_operating_system_release(void)
+get_operating_system_release (void)
 {
   if (STRINGP (Voperating_system_release))
     return (char *) SDATA (Voperating_system_release);
@@ -3592,7 +3592,7 @@ usage: (format STRING &rest OBJECTS)  */)
      string itself, will not be used.  Element NARGS, corresponding to
      no argument, *will* be assigned to in the case that a `%' and `.'
      occur after the final format specifier.  */
-  int *precision = (int *) (alloca((nargs + 1) * sizeof (int)));
+  int *precision = (int *) (alloca ((nargs + 1) * sizeof (int)));
   int longest_format;
   Lisp_Object val;
   int arg_intervals = 0;
@@ -3763,7 +3763,7 @@ usage: (format STRING &rest OBJECTS)  */)
               string will finally appear (Bug#5710). */
            actual_width = lisp_string_width (args[n], -1, NULL, NULL);
            if (precision[n] != -1)
-             actual_width = min(actual_width,precision[n]);
+             actual_width = min (actual_width, precision[n]);
          }
        /* Would get MPV otherwise, since Lisp_Int's `point' to low memory.  */
        else if (INTEGERP (args[n]) && *format != 's')
@@ -3876,7 +3876,7 @@ usage: (format STRING &rest OBJECTS)  */)
          discarded[format - format_start] = 1;
          format++;
 
-         while (index("-+0# ", *format))
+         while (index ("-+0# ", *format))
            {
              if (*format == '-')
                {

diff --git a/src/keymap.c b/src/keymap.c
index a0f1c63c14a5f26eddf25907b85271379c556ef1..c896e6ceb96ec53bbe94cffad9b59c0ba170c3ec 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2088,9 +2088,7 @@ struct accessible_keymaps_data {
 
 static void
 accessible_keymaps_1 (Lisp_Object key, Lisp_Object cmd, Lisp_Object args, void *data)
-                                
-     /* Use void* to be compatible with map_keymap_function_t.  */
-                
+/* Use void* data to be compatible with map_keymap_function_t.  */
 {
   struct accessible_keymaps_data *d = data; /* Cast! */
   Lisp_Object maps = d->maps;

diff --git a/src/lread.c b/src/lread.c
index 5e0d2d8c7720a32a96bc7c0390a384f1cb1f8297..6962485eabdcd1c2cfad860390a6bb74738f6978 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1899,9 +1899,7 @@ START and END optionally delimit a substring of STRING from which to read;
    calls. */
 static Lisp_Object
 read_internal_start (Lisp_Object stream, Lisp_Object start, Lisp_Object end)
-                        
-                        /* Only used when stream is a string. */
-                      /* Only used when stream is a string. */
+/* start, end only used when stream is a string. */
 {
   Lisp_Object retval;