Commit b8ce688b authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

Fix comments and whitespace.

parent e5447b22
......@@ -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))
{
......
......@@ -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);
......
......@@ -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 == '-')
{
......
......@@ -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;
......
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment