diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-09-05 00:45:08 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-09-05 00:45:08 +0000 |
| commit | 9735b9ce6fcdc1bcad88b8884bc8c9eab9fd1622 (patch) | |
| tree | 52adeb668549f23953127974271e9ea203c692b6 /src/lread.c | |
| parent | 73d854cdd53f391afeef974862a27d5fe77338da (diff) | |
| download | emacs-9735b9ce6fcdc1bcad88b8884bc8c9eab9fd1622.tar.gz | |
Fix whitespace.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/lread.c b/src/lread.c index ee4659ffd47..10bc4ad3c5e 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2042,7 +2042,7 @@ read_escape (readcharfun, stringp) int stringp; { register int c = READCHAR; - /* \u allows up to four hex digits, \U up to eight. Default to the + /* \u allows up to four hex digits, \U up to eight. Default to the behavior for \u, and change this value in the case that \U is seen. */ int unicode_hex_count = 4; @@ -2216,7 +2216,7 @@ read_escape (readcharfun, stringp) unicode_hex_count = 8; case 'u': - /* A Unicode escape. We only permit them in strings and characters, + /* A Unicode escape. We only permit them in strings and characters, not arbitrarily in the source code, as in some other languages. */ { unsigned int i = 0; @@ -2369,15 +2369,15 @@ read1 (readcharfun, pch, first_in_list) Lisp_Object val = Qnil; /* The size is 2 * number of allowed keywords to make-hash-table. */ - Lisp_Object params[10]; + Lisp_Object params[10]; Lisp_Object ht; Lisp_Object key = Qnil; int param_count = 0; - + if (!EQ (head, Qhash_table)) error ("Invalid extended read marker at head of #s list " "(only hash-table allowed)"); - + tmp = CDR_SAFE (tmp); /* This is repetitive but fast and simple. */ @@ -2411,7 +2411,7 @@ read1 (readcharfun, pch, first_in_list) /* Now use params to make a new hashtable and fill it. */ ht = Fmake_hash_table (param_count, params); - + while (CONSP (data)) { key = XCAR (data); @@ -2422,7 +2422,7 @@ read1 (readcharfun, pch, first_in_list) data = XCDR (data); Fputhash (key, val, ht); } - + return ht; } } @@ -2652,7 +2652,7 @@ read1 (readcharfun, pch, first_in_list) Lisp_Object placeholder; Lisp_Object cell; - placeholder = Fcons(Qnil, Qnil); + placeholder = Fcons (Qnil, Qnil); cell = Fcons (make_number (n), placeholder); read_objects = Fcons (cell, read_objects); @@ -3239,7 +3239,7 @@ substitute_in_interval (interval, arg) Lisp_Object object = Fcar (arg); Lisp_Object placeholder = Fcdr (arg); - SUBSTITUTE(interval->plist, interval->plist = true_value); + SUBSTITUTE (interval->plist, interval->plist = true_value); } @@ -4180,7 +4180,7 @@ init_lread () } #endif -#if (!(defined(WINDOWSNT) || (defined(HAVE_NS)))) +#if (!(defined (WINDOWSNT) || (defined (HAVE_NS)))) /* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is almost never correct, thereby causing a warning to be printed out that confuses users. Since PATH_LOADSEARCH is always overridden by the |