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) ...@@ -941,10 +941,6 @@ do_symval_forwarding (register union Lisp_Fwd *valcontents)
static void static void
store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf) store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf)
/* struct Lisp_Symbol *symbol; */
{ {
switch (XFWDTYPE (valcontents)) switch (XFWDTYPE (valcontents))
{ {
......
...@@ -511,9 +511,7 @@ aren't strings. */) ...@@ -511,9 +511,7 @@ aren't strings. */)
static void static void
store_function_docstring (Lisp_Object fun, EMACS_INT offset) store_function_docstring (Lisp_Object fun, EMACS_INT offset)
/* Use EMACS_INT because we get offset from pointer subtraction. */
/* Use EMACS_INT because we get this from pointer subtraction. */
{ {
fun = indirect_function (fun); fun = indirect_function (fun);
......
...@@ -1436,7 +1436,7 @@ get_system_name (void) ...@@ -1436,7 +1436,7 @@ get_system_name (void)
} }
char * char *
get_operating_system_release(void) get_operating_system_release (void)
{ {
if (STRINGP (Voperating_system_release)) if (STRINGP (Voperating_system_release))
return (char *) SDATA (Voperating_system_release); return (char *) SDATA (Voperating_system_release);
...@@ -3592,7 +3592,7 @@ usage: (format STRING &rest OBJECTS) */) ...@@ -3592,7 +3592,7 @@ usage: (format STRING &rest OBJECTS) */)
string itself, will not be used. Element NARGS, corresponding to string itself, will not be used. Element NARGS, corresponding to
no argument, *will* be assigned to in the case that a `%' and `.' no argument, *will* be assigned to in the case that a `%' and `.'
occur after the final format specifier. */ 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; int longest_format;
Lisp_Object val; Lisp_Object val;
int arg_intervals = 0; int arg_intervals = 0;
...@@ -3763,7 +3763,7 @@ usage: (format STRING &rest OBJECTS) */) ...@@ -3763,7 +3763,7 @@ usage: (format STRING &rest OBJECTS) */)
string will finally appear (Bug#5710). */ string will finally appear (Bug#5710). */
actual_width = lisp_string_width (args[n], -1, NULL, NULL); actual_width = lisp_string_width (args[n], -1, NULL, NULL);
if (precision[n] != -1) 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. */ /* Would get MPV otherwise, since Lisp_Int's `point' to low memory. */
else if (INTEGERP (args[n]) && *format != 's') else if (INTEGERP (args[n]) && *format != 's')
...@@ -3876,7 +3876,7 @@ usage: (format STRING &rest OBJECTS) */) ...@@ -3876,7 +3876,7 @@ usage: (format STRING &rest OBJECTS) */)
discarded[format - format_start] = 1; discarded[format - format_start] = 1;
format++; format++;
while (index("-+0# ", *format)) while (index ("-+0# ", *format))
{ {
if (*format == '-') if (*format == '-')
{ {
......
...@@ -2088,9 +2088,7 @@ struct accessible_keymaps_data { ...@@ -2088,9 +2088,7 @@ struct accessible_keymaps_data {
static void static void
accessible_keymaps_1 (Lisp_Object key, Lisp_Object cmd, Lisp_Object args, void *data) accessible_keymaps_1 (Lisp_Object key, Lisp_Object cmd, Lisp_Object args, void *data)
/* Use void* data to be compatible with map_keymap_function_t. */
/* Use void* to be compatible with map_keymap_function_t. */
{ {
struct accessible_keymaps_data *d = data; /* Cast! */ struct accessible_keymaps_data *d = data; /* Cast! */
Lisp_Object maps = d->maps; Lisp_Object maps = d->maps;
......
...@@ -1899,9 +1899,7 @@ START and END optionally delimit a substring of STRING from which to read; ...@@ -1899,9 +1899,7 @@ START and END optionally delimit a substring of STRING from which to read;
calls. */ calls. */
static Lisp_Object static Lisp_Object
read_internal_start (Lisp_Object stream, Lisp_Object start, Lisp_Object end) read_internal_start (Lisp_Object stream, Lisp_Object start, Lisp_Object end)
/* start, end only used when stream is a string. */
/* Only used when stream is a string. */
/* Only used when stream is a string. */
{ {
Lisp_Object retval; 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