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 | |
| parent | d8fac734e563df1169e3d8d715cca3481dfec8ac (diff) | |
| download | emacs-acae275b2752357497a2411876b83240ce7c8aec.tar.gz emacs-acae275b2752357497a2411876b83240ce7c8aec.zip | |
; Spelling fixes
| -rw-r--r-- | ChangeLog.2 | 2 | ||||
| -rw-r--r-- | doc/misc/ChangeLog.1 | 2 | ||||
| -rw-r--r-- | etc/ERC-NEWS | 2 | ||||
| -rw-r--r-- | etc/NEWS.23 | 2 | ||||
| -rw-r--r-- | etc/TODO | 2 | ||||
| -rw-r--r-- | lisp/cedet/ede/locate.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db-typecache.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio-core.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/edt.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-backend.el | 6 | ||||
| -rw-r--r-- | lisp/international/ucs-normalize.el | 2 | ||||
| -rw-r--r-- | lisp/isearch.el | 2 | ||||
| -rw-r--r-- | lisp/language/ind-util.el | 2 | ||||
| -rw-r--r-- | lisp/mh-e/mh-search.el | 4 | ||||
| -rw-r--r-- | lisp/mh-e/mh-thread.el | 8 | ||||
| -rw-r--r-- | lisp/subr.el | 2 | ||||
| -rw-r--r-- | nt/README.W32 | 2 | ||||
| -rw-r--r-- | src/emacs.c | 2 | ||||
| -rw-r--r-- | src/lread.c | 8 |
19 files changed, 29 insertions, 29 deletions
diff --git a/ChangeLog.2 b/ChangeLog.2 index 79f44fd8bb8..42ea75f9b16 100644 --- a/ChangeLog.2 +++ b/ChangeLog.2 | |||
| @@ -15098,7 +15098,7 @@ | |||
| 15098 | * lisp/files.el: Don't allow customization of dir-locals sorting. | 15098 | * lisp/files.el: Don't allow customization of dir-locals sorting. |
| 15099 | In retrospect, this is not a good idea for the same reason that | 15099 | In retrospect, this is not a good idea for the same reason that |
| 15100 | `dir-locals-file' is a defconst, because it is important that this | 15100 | `dir-locals-file' is a defconst, because it is important that this |
| 15101 | behaviour be "uniform across different environments and users". | 15101 | behavior be "uniform across different environments and users". |
| 15102 | Sure, the user can still change the sorting with a hack, but we | 15102 | Sure, the user can still change the sorting with a hack, but we |
| 15103 | shouldn't encourage them to change it. | 15103 | shouldn't encourage them to change it. |
| 15104 | (dir-locals--all-files): Return list in the order returned by | 15104 | (dir-locals--all-files): Return list in the order returned by |
diff --git a/doc/misc/ChangeLog.1 b/doc/misc/ChangeLog.1 index eb16d4ac565..93aacb521a9 100644 --- a/doc/misc/ChangeLog.1 +++ b/doc/misc/ChangeLog.1 | |||
| @@ -5331,7 +5331,7 @@ | |||
| 5331 | 5331 | ||
| 5332 | 2010-07-09 Michael Albinus <michael.albinus@gmx.de> | 5332 | 2010-07-09 Michael Albinus <michael.albinus@gmx.de> |
| 5333 | 5333 | ||
| 5334 | * dbus.texi (Top): Introduce Index. Emphasize "nil" whereever | 5334 | * dbus.texi (Top): Introduce Index. Emphasize "nil" wherever |
| 5335 | forgotten. | 5335 | forgotten. |
| 5336 | (Type Conversion): Precise conversion of natural numbers. | 5336 | (Type Conversion): Precise conversion of natural numbers. |
| 5337 | (Errors and Events): Add "debugging" to concept index. Add variable | 5337 | (Errors and Events): Add "debugging" to concept index. Add variable |
diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS index 13827c67786..69b846884fe 100644 --- a/etc/ERC-NEWS +++ b/etc/ERC-NEWS | |||
| @@ -1077,7 +1077,7 @@ major changes for implementers, and module writers: | |||
| 1077 | corresponding hook variables. | 1077 | corresponding hook variables. |
| 1078 | 1078 | ||
| 1079 | The mapping of server commands to hook variables is no longer | 1079 | The mapping of server commands to hook variables is no longer |
| 1080 | done via `erc-event-to-hook', but through an #'equal hashtable, | 1080 | done via `erc-event-to-hook', but through an #'equal hash table, |
| 1081 | `erc-server-responses'. In order to find a hook you do: | 1081 | `erc-server-responses'. In order to find a hook you do: |
| 1082 | 1082 | ||
| 1083 | (erc-get-hook command) | 1083 | (erc-get-hook command) |
diff --git a/etc/NEWS.23 b/etc/NEWS.23 index d92bf237979..f74141db49a 100644 --- a/etc/NEWS.23 +++ b/etc/NEWS.23 | |||
| @@ -551,7 +551,7 @@ System (CLOS). It is used by the other CEDET packages. | |||
| 551 | 551 | ||
| 552 | ** js.el is a new major mode for JavaScript files. | 552 | ** js.el is a new major mode for JavaScript files. |
| 553 | 553 | ||
| 554 | ** imap-hash.el is a new library to address IMAP mailboxes as hashtables. | 554 | ** imap-hash.el is a new library to address IMAP mailboxes as hash tables. |
| 555 | 555 | ||
| 556 | 556 | ||
| 557 | * Incompatible Lisp Changes in Emacs 23.2 | 557 | * Incompatible Lisp Changes in Emacs 23.2 |
| @@ -38,7 +38,7 @@ stay within exec_byte_code. | |||
| 38 | ** Add new 'switch' byte-code | 38 | ** Add new 'switch' byte-code |
| 39 | This byte-code would take one argument from the stack (the object to test) | 39 | This byte-code would take one argument from the stack (the object to test) |
| 40 | and one argument from the constant-pool (a switch table, implemented as an | 40 | and one argument from the constant-pool (a switch table, implemented as an |
| 41 | eq-hashtable) and would jump to the "label" contained in the hashtable. | 41 | 'eq' hash table) and would jump to the "label" contained in the hash table. |
| 42 | 42 | ||
| 43 | Then add a 'case' special-form that can be compiled to this byte-code. | 43 | Then add a 'case' special-form that can be compiled to this byte-code. |
| 44 | This would behave just like cl-case, but instead of expanding to cond+eq it | 44 | This would behave just like cl-case, but instead of expanding to cond+eq it |
diff --git a/lisp/cedet/ede/locate.el b/lisp/cedet/ede/locate.el index 38d23883951..8564719c810 100644 --- a/lisp/cedet/ede/locate.el +++ b/lisp/cedet/ede/locate.el | |||
| @@ -124,12 +124,12 @@ based on `ede-locate-setup-options'." | |||
| 124 | t) | 124 | t) |
| 125 | 125 | ||
| 126 | (cl-defmethod ede-locate-flush-hash ((loc ede-locate-base)) | 126 | (cl-defmethod ede-locate-flush-hash ((loc ede-locate-base)) |
| 127 | "For LOC, flush hashtable and start from scratch." | 127 | "For LOC, flush hash table and start from scratch." |
| 128 | (oset loc hash (make-hash-table :test 'equal))) | 128 | (oset loc hash (make-hash-table :test 'equal))) |
| 129 | 129 | ||
| 130 | (cl-defmethod ede-locate-file-in-hash ((loc ede-locate-base) | 130 | (cl-defmethod ede-locate-file-in-hash ((loc ede-locate-base) |
| 131 | filestring) | 131 | filestring) |
| 132 | "For LOC, is the file FILESTRING in our hashtable?" | 132 | "For LOC, is the file FILESTRING in our hash table?" |
| 133 | (gethash filestring (oref loc hash))) | 133 | (gethash filestring (oref loc hash))) |
| 134 | 134 | ||
| 135 | (cl-defmethod ede-locate-add-file-to-hash ((loc ede-locate-base) | 135 | (cl-defmethod ede-locate-add-file-to-hash ((loc ede-locate-base) |
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el index 366af60034c..76382a30dd1 100644 --- a/lisp/cedet/semantic/db-typecache.el +++ b/lisp/cedet/semantic/db-typecache.el | |||
| @@ -56,7 +56,7 @@ | |||
| 56 | (stream :initform nil | 56 | (stream :initform nil |
| 57 | :documentation | 57 | :documentation |
| 58 | "The searchable tag stream for this cache. | 58 | "The searchable tag stream for this cache. |
| 59 | NOTE: Can I get rid of this? Use a hashtable instead?") | 59 | NOTE: Can I get rid of this? Use a hash table instead?") |
| 60 | (dependants :initform nil | 60 | (dependants :initform nil |
| 61 | :documentation | 61 | :documentation |
| 62 | "Any other object that is dependent on typecache results. | 62 | "Any other object that is dependent on typecache results. |
diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el index 223c2a69a62..5454dfcbbc4 100644 --- a/lisp/emacs-lisp/eieio-core.el +++ b/lisp/emacs-lisp/eieio-core.el | |||
| @@ -459,7 +459,7 @@ See `defclass' for more information." | |||
| 459 | (cl--slot-descriptor-initform (aref slots i))))) | 459 | (cl--slot-descriptor-initform (aref slots i))))) |
| 460 | (setf (eieio--class-class-allocation-values newc) v)) | 460 | (setf (eieio--class-class-allocation-values newc) v)) |
| 461 | 461 | ||
| 462 | ;; Attach slot symbols into a hashtable, and store the index of | 462 | ;; Attach slot symbols into a hash table, and store the index of |
| 463 | ;; this slot as the value this table. | 463 | ;; this slot as the value this table. |
| 464 | (let* ((slots (eieio--class-slots newc)) | 464 | (let* ((slots (eieio--class-slots newc)) |
| 465 | ;; (cslots (eieio--class-class-slots newc)) | 465 | ;; (cslots (eieio--class-class-slots newc)) |
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 6bda15bf98d..f408ff73106 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el | |||
| @@ -497,7 +497,7 @@ Argument NUM is the number of EOL marks to move." | |||
| 497 | ;;; of line, etc.) it takes a bit of special handling. | 497 | ;;; of line, etc.) it takes a bit of special handling. |
| 498 | ;;; | 498 | ;;; |
| 499 | ;;; The variable edt-word-entities contains a list of characters which | 499 | ;;; The variable edt-word-entities contains a list of characters which |
| 500 | ;;; are to be viewed as distinct words where ever they appear in the | 500 | ;;; are to be viewed as distinct words wherever they appear in the |
| 501 | ;;; buffer. This emulates the EDT line mode command SET ENTITY WORD. | 501 | ;;; buffer. This emulates the EDT line mode command SET ENTITY WORD. |
| 502 | 502 | ||
| 503 | 503 | ||
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index 6d508e203f4..012b5b5f3f4 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el | |||
| @@ -108,7 +108,7 @@ | |||
| 108 | ;;;; Variables and options | 108 | ;;;; Variables and options |
| 109 | 109 | ||
| 110 | (defvar erc-server-responses (make-hash-table :test #'equal) | 110 | (defvar erc-server-responses (make-hash-table :test #'equal) |
| 111 | "Hashtable mapping server responses to their handler hooks.") | 111 | "Hash table mapping server responses to their handler hooks.") |
| 112 | 112 | ||
| 113 | (cl-defstruct (erc-response (:conc-name erc-response.)) | 113 | (cl-defstruct (erc-response (:conc-name erc-response.)) |
| 114 | (unparsed "" :type string) | 114 | (unparsed "" :type string) |
| @@ -1064,7 +1064,7 @@ See also `erc-server-responses'." | |||
| 1064 | (defun erc-call-hooks (process message) | 1064 | (defun erc-call-hooks (process message) |
| 1065 | "Call hooks associated with MESSAGE in PROCESS. | 1065 | "Call hooks associated with MESSAGE in PROCESS. |
| 1066 | 1066 | ||
| 1067 | Finds hooks by looking in the `erc-server-responses' hashtable." | 1067 | Finds hooks by looking in the `erc-server-responses' hash table." |
| 1068 | (let ((hook (or (erc-get-hook (erc-response.command message)) | 1068 | (let ((hook (or (erc-get-hook (erc-response.command message)) |
| 1069 | 'erc-default-server-functions))) | 1069 | 'erc-default-server-functions))) |
| 1070 | (run-hook-with-args-until-success hook process message) | 1070 | (run-hook-with-args-until-success hook process message) |
| @@ -1220,7 +1220,7 @@ add things to `%s' instead." | |||
| 1220 | (put ',fn-name 'definition-name ',name) | 1220 | (put ',fn-name 'definition-name ',name) |
| 1221 | (put ',hook-name 'definition-name ',name) | 1221 | (put ',hook-name 'definition-name ',name) |
| 1222 | 1222 | ||
| 1223 | ;; Hashtable map of responses to hook variables | 1223 | ;; Hash table map of responses to hook variables |
| 1224 | ,@(cl-loop for response in (cons name aliases) | 1224 | ,@(cl-loop for response in (cons name aliases) |
| 1225 | for var in (cons hook-name var-alternates) | 1225 | for var in (cons hook-name var-alternates) |
| 1226 | collect `(puthash ,(format "%s" response) ',var | 1226 | collect `(puthash ,(format "%s" response) ',var |
diff --git a/lisp/international/ucs-normalize.el b/lisp/international/ucs-normalize.el index 74978ce38a3..1e247c5dba5 100644 --- a/lisp/international/ucs-normalize.el +++ b/lisp/international/ucs-normalize.el | |||
| @@ -227,7 +227,7 @@ | |||
| 227 | table)) | 227 | table)) |
| 228 | 228 | ||
| 229 | (defvar ucs-normalize-decomposition-pair-to-primary-composite nil | 229 | (defvar ucs-normalize-decomposition-pair-to-primary-composite nil |
| 230 | "Hashtable of decomposed pair to primary composite. | 230 | "Hash table of decomposed pair to primary composite. |
| 231 | Note that Hangul are excluded.") | 231 | Note that Hangul are excluded.") |
| 232 | (setq ucs-normalize-decomposition-pair-to-primary-composite | 232 | (setq ucs-normalize-decomposition-pair-to-primary-composite |
| 233 | (ucs-normalize-make-hash-table-from-alist | 233 | (ucs-normalize-make-hash-table-from-alist |
diff --git a/lisp/isearch.el b/lisp/isearch.el index 01819510a6f..ff779308051 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -562,7 +562,7 @@ The symbol property `isearch-message-prefix' put on this function | |||
| 562 | specifies the prefix string displayed in the search message. | 562 | specifies the prefix string displayed in the search message. |
| 563 | 563 | ||
| 564 | This variable is set and changed during isearch. To change the | 564 | This variable is set and changed during isearch. To change the |
| 565 | default behaviour used for searches, see `search-default-mode' | 565 | default behavior used for searches, see `search-default-mode' |
| 566 | instead.") | 566 | instead.") |
| 567 | ;; We still support setting this to t for backwards compatibility. | 567 | ;; We still support setting this to t for backwards compatibility. |
| 568 | (define-obsolete-variable-alias 'isearch-word | 568 | (define-obsolete-variable-alias 'isearch-word |
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el index deea48933c8..f7424ecd84f 100644 --- a/lisp/language/ind-util.el +++ b/lisp/language/ind-util.el | |||
| @@ -39,7 +39,7 @@ | |||
| 39 | (eval-and-compile | 39 | (eval-and-compile |
| 40 | 40 | ||
| 41 | (defun indian-regexp-of-hashtbl-keys (hashtbl) | 41 | (defun indian-regexp-of-hashtbl-keys (hashtbl) |
| 42 | "Returns the regular expression of hashtable keys." | 42 | "Return the regular expression of hash table keys." |
| 43 | (let (keys) | 43 | (let (keys) |
| 44 | (maphash (lambda (key val) (push key keys)) hashtbl) | 44 | (maphash (lambda (key val) (push key keys)) hashtbl) |
| 45 | (regexp-opt keys))) | 45 | (regexp-opt keys))) |
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el index 6e607444ad8..d5a2d779b21 100644 --- a/lisp/mh-e/mh-search.el +++ b/lisp/mh-e/mh-search.el | |||
| @@ -1859,7 +1859,7 @@ PROC is used to convert the value to actual data." | |||
| 1859 | (defun mh-index-update-maps (folder &optional origin-map) | 1859 | (defun mh-index-update-maps (folder &optional origin-map) |
| 1860 | "Annotate all as yet unannotated messages in FOLDER with their MD5 hash. | 1860 | "Annotate all as yet unannotated messages in FOLDER with their MD5 hash. |
| 1861 | As a side effect msg -> checksum map is updated. Optional | 1861 | As a side effect msg -> checksum map is updated. Optional |
| 1862 | argument ORIGIN-MAP is a hashtable which maps each message in the | 1862 | argument ORIGIN-MAP is a hash table which maps each message in the |
| 1863 | index folder to the original folder and message from whence it | 1863 | index folder to the original folder and message from whence it |
| 1864 | was copied. If present the checksum -> (origin-folder, | 1864 | was copied. If present the checksum -> (origin-folder, |
| 1865 | origin-index) map is updated too." | 1865 | origin-index) map is updated too." |
| @@ -1913,7 +1913,7 @@ origin-index) map is updated too." | |||
| 1913 | (defun mh-index-update-single-msg (msg checksum origin-map) | 1913 | (defun mh-index-update-single-msg (msg checksum origin-map) |
| 1914 | "Update various maps for one message. | 1914 | "Update various maps for one message. |
| 1915 | MSG is a index folder message, CHECKSUM its MD5 hash and | 1915 | MSG is a index folder message, CHECKSUM its MD5 hash and |
| 1916 | ORIGIN-MAP, if non-nil, a hashtable containing which maps each | 1916 | ORIGIN-MAP, if non-nil, a hash table containing which maps each |
| 1917 | message in the index folder to the folder and message that it was | 1917 | message in the index folder to the folder and message that it was |
| 1918 | copied from. The function updates the hash tables | 1918 | copied from. The function updates the hash tables |
| 1919 | `mh-index-msg-checksum-map' and `mh-index-checksum-origin-map'. | 1919 | `mh-index-msg-checksum-map' and `mh-index-checksum-origin-map'. |
diff --git a/lisp/mh-e/mh-thread.el b/lisp/mh-e/mh-thread.el index e6acdba8b30..2a37cfc9e42 100644 --- a/lisp/mh-e/mh-thread.el +++ b/lisp/mh-e/mh-thread.el | |||
| @@ -89,11 +89,11 @@ | |||
| 89 | (real-child-p t)) | 89 | (real-child-p t)) |
| 90 | 90 | ||
| 91 | (defvar mh-thread-id-hash nil | 91 | (defvar mh-thread-id-hash nil |
| 92 | "Hashtable used to canonicalize message identifiers.") | 92 | "Hash table used to canonicalize message identifiers.") |
| 93 | (make-variable-buffer-local 'mh-thread-id-hash) | 93 | (make-variable-buffer-local 'mh-thread-id-hash) |
| 94 | 94 | ||
| 95 | (defvar mh-thread-subject-hash nil | 95 | (defvar mh-thread-subject-hash nil |
| 96 | "Hashtable used to canonicalize subject strings.") | 96 | "Hash table used to canonicalize subject strings.") |
| 97 | (make-variable-buffer-local 'mh-thread-subject-hash) | 97 | (make-variable-buffer-local 'mh-thread-subject-hash) |
| 98 | 98 | ||
| 99 | (defvar mh-thread-id-table nil | 99 | (defvar mh-thread-id-table nil |
| @@ -109,11 +109,11 @@ | |||
| 109 | (make-variable-buffer-local 'mh-thread-id-index-map) | 109 | (make-variable-buffer-local 'mh-thread-id-index-map) |
| 110 | 110 | ||
| 111 | (defvar mh-thread-subject-container-hash nil | 111 | (defvar mh-thread-subject-container-hash nil |
| 112 | "Hashtable used to group messages by subject.") | 112 | "Hash table used to group messages by subject.") |
| 113 | (make-variable-buffer-local 'mh-thread-subject-container-hash) | 113 | (make-variable-buffer-local 'mh-thread-subject-container-hash) |
| 114 | 114 | ||
| 115 | (defvar mh-thread-duplicates nil | 115 | (defvar mh-thread-duplicates nil |
| 116 | "Hashtable used to associate messages with the same message identifier.") | 116 | "Hash table used to associate messages with the same message identifier.") |
| 117 | (make-variable-buffer-local 'mh-thread-duplicates) | 117 | (make-variable-buffer-local 'mh-thread-duplicates) |
| 118 | 118 | ||
| 119 | (defvar mh-thread-history () | 119 | (defvar mh-thread-history () |
diff --git a/lisp/subr.el b/lisp/subr.el index 07909b894f5..efea412af0e 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -903,7 +903,7 @@ KEY is a string or vector representing a sequence of keystrokes." | |||
| 903 | 903 | ||
| 904 | (defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix) | 904 | (defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix) |
| 905 | "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF. | 905 | "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF. |
| 906 | In other words, OLDDEF is replaced with NEWDEF where ever it appears. | 906 | In other words, OLDDEF is replaced with NEWDEF wherever it appears. |
| 907 | Alternatively, if optional fourth argument OLDMAP is specified, we redefine | 907 | Alternatively, if optional fourth argument OLDMAP is specified, we redefine |
| 908 | in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP. | 908 | in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP. |
| 909 | 909 | ||
diff --git a/nt/README.W32 b/nt/README.W32 index 4149c3b65b5..d866d9fc7a6 100644 --- a/nt/README.W32 +++ b/nt/README.W32 | |||
| @@ -50,7 +50,7 @@ See the end of the file for license conditions. | |||
| 50 | page. | 50 | page. |
| 51 | 51 | ||
| 52 | Emacs is completely portable. You can create your own shortcut to | 52 | Emacs is completely portable. You can create your own shortcut to |
| 53 | runemacs.exe and place this where ever you find it convienient, or | 53 | runemacs.exe and place this wherever you find it convenient, or |
| 54 | run it from a USB or network drive without copying or installing | 54 | run it from a USB or network drive without copying or installing |
| 55 | anything on the machine itself. | 55 | anything on the machine itself. |
| 56 | 56 | ||
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); |