mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-19 04:21:45 -07:00
Code Issues Projects Releases Wiki Activity

Fix comments and whitespace.

Browse source
This commit is contained in:
Juanma Barranquero 2010-07-04 15:51:05 +02:00
parent e5447b22e9
commit b8ce688b11
5 changed files with 7 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/data.c
View file

@ -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))
{

4
src/doc.c
View file

@ -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);

8
src/editfns.c
View file

@ -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 == '-')
{

4
src/keymap.c
View file

@ -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;

4
src/lread.c
View file

@ -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;