Mercurial > emacs
changeset 109131:18f8e88d3829
Fix comments and whitespace.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 04 Jul 2010 15:51:05 +0200 |
| parents | cd13b432f239 |
| children | 0f3ed79830e9 |
| files | src/data.c src/doc.c src/editfns.c src/keymap.c src/lread.c |
| diffstat | 5 files changed, 7 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.c Sun Jul 04 15:41:55 2010 +0200 +++ b/src/data.c Sun Jul 04 15:51:05 2010 +0200 @@ -941,10 +941,6 @@ static void store_symval_forwarding (union Lisp_Fwd *valcontents, register Lisp_Object newval, struct buffer *buf) - /* struct Lisp_Symbol *symbol; */ - - - { switch (XFWDTYPE (valcontents)) {
--- a/src/doc.c Sun Jul 04 15:41:55 2010 +0200 +++ b/src/doc.c Sun Jul 04 15:51:05 2010 +0200 @@ -511,9 +511,7 @@ 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);
--- a/src/editfns.c Sun Jul 04 15:41:55 2010 +0200 +++ b/src/editfns.c Sun Jul 04 15:51:05 2010 +0200 @@ -1436,7 +1436,7 @@ } 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 @@ 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 @@ 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 @@ discarded[format - format_start] = 1; format++; - while (index("-+0# ", *format)) + while (index ("-+0# ", *format)) { if (*format == '-') {
--- a/src/keymap.c Sun Jul 04 15:41:55 2010 +0200 +++ b/src/keymap.c Sun Jul 04 15:51:05 2010 +0200 @@ -2088,9 +2088,7 @@ 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;
--- a/src/lread.c Sun Jul 04 15:41:55 2010 +0200 +++ b/src/lread.c Sun Jul 04 15:51:05 2010 +0200 @@ -1899,9 +1899,7 @@ 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;