diff options
| author | Paul Eggert | 2016-11-04 14:50:09 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-11-04 14:50:59 -0700 |
| commit | acae275b2752357497a2411876b83240ce7c8aec (patch) | |
| tree | f933ac34ea480ea0a8071baf191cd3f30f253dcf /src | |
| parent | d8fac734e563df1169e3d8d715cca3481dfec8ac (diff) | |
| download | emacs-acae275b2752357497a2411876b83240ce7c8aec.tar.gz emacs-acae275b2752357497a2411876b83240ce7c8aec.zip | |
; Spelling fixes
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs.c | 2 | ||||
| -rw-r--r-- | src/lread.c | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/emacs.c b/src/emacs.c index 2480dfc603a..f8d5dfa3c6e 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -1167,7 +1167,7 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem | |||
| 1167 | 1167 | ||
| 1168 | /* Called before syms_of_fileio, because it sets up Qerror_condition. */ | 1168 | /* Called before syms_of_fileio, because it sets up Qerror_condition. */ |
| 1169 | syms_of_data (); | 1169 | syms_of_data (); |
| 1170 | syms_of_fns (); /* Before syms_of_charset which uses hashtables. */ | 1170 | syms_of_fns (); /* Before syms_of_charset which uses hash tables. */ |
| 1171 | syms_of_fileio (); | 1171 | syms_of_fileio (); |
| 1172 | /* Before syms_of_coding to initialize Vgc_cons_threshold. */ | 1172 | /* Before syms_of_coding to initialize Vgc_cons_threshold. */ |
| 1173 | syms_of_alloc (); | 1173 | syms_of_alloc (); |
diff --git a/src/lread.c b/src/lread.c index 8a368806e15..0bc34b228cc 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2500,7 +2500,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 2500 | c = READCHAR; | 2500 | c = READCHAR; |
| 2501 | if (c == '(') | 2501 | if (c == '(') |
| 2502 | { | 2502 | { |
| 2503 | /* Accept extended format for hashtables (extensible to | 2503 | /* Accept extended format for hash tables (extensible to |
| 2504 | other types), e.g. | 2504 | other types), e.g. |
| 2505 | #s(hash-table size 2 test equal data (k1 v1 k2 v2)) */ | 2505 | #s(hash-table size 2 test equal data (k1 v1 k2 v2)) */ |
| 2506 | Lisp_Object tmp = read_list (0, readcharfun); | 2506 | Lisp_Object tmp = read_list (0, readcharfun); |
| @@ -2546,10 +2546,10 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 2546 | if (!NILP (params[param_count + 1])) | 2546 | if (!NILP (params[param_count + 1])) |
| 2547 | param_count += 2; | 2547 | param_count += 2; |
| 2548 | 2548 | ||
| 2549 | /* This is the hashtable data. */ | 2549 | /* This is the hash table data. */ |
| 2550 | data = Fplist_get (tmp, Qdata); | 2550 | data = Fplist_get (tmp, Qdata); |
| 2551 | 2551 | ||
| 2552 | /* Now use params to make a new hashtable and fill it. */ | 2552 | /* Now use params to make a new hash table and fill it. */ |
| 2553 | ht = Fmake_hash_table (param_count, params); | 2553 | ht = Fmake_hash_table (param_count, params); |
| 2554 | 2554 | ||
| 2555 | while (CONSP (data)) | 2555 | while (CONSP (data)) |
| @@ -2557,7 +2557,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) | |||
| 2557 | key = XCAR (data); | 2557 | key = XCAR (data); |
| 2558 | data = XCDR (data); | 2558 | data = XCDR (data); |
| 2559 | if (!CONSP (data)) | 2559 | if (!CONSP (data)) |
| 2560 | error ("Odd number of elements in hashtable data"); | 2560 | error ("Odd number of elements in hash table data"); |
| 2561 | val = XCAR (data); | 2561 | val = XCAR (data); |
| 2562 | data = XCDR (data); | 2562 | data = XCDR (data); |
| 2563 | Fputhash (key, val, ht); | 2563 | Fputhash (key, val, ht); |