aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2016-11-04 14:50:09 -0700
committerPaul Eggert2016-11-04 14:50:59 -0700
commitacae275b2752357497a2411876b83240ce7c8aec (patch)
treef933ac34ea480ea0a8071baf191cd3f30f253dcf /src
parentd8fac734e563df1169e3d8d715cca3481dfec8ac (diff)
downloademacs-acae275b2752357497a2411876b83240ce7c8aec.tar.gz
emacs-acae275b2752357497a2411876b83240ce7c8aec.zip
; Spelling fixes
Diffstat (limited to 'src')
-rw-r--r--src/emacs.c2
-rw-r--r--src/lread.c8
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);