diff options
| author | Paul Eggert | 2016-11-04 15:07:01 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-11-04 15:07:13 -0700 |
| commit | a59f4bb5b8f1e702901d166ce44c4dcddc262b62 (patch) | |
| tree | ca8433ca69a6d86cd0881c368ca3044700d57e15 /lisp | |
| parent | ae0a1a890ec7b885e85cd945a21ca42fed80df3d (diff) | |
| download | emacs-a59f4bb5b8f1e702901d166ce44c4dcddc262b62.tar.gz emacs-a59f4bb5b8f1e702901d166ce44c4dcddc262b62.zip | |
; Spelling fixes
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/registry.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/registry.el b/lisp/registry.el index e8bc6f5545a..3aaa8e87ea0 100644 --- a/lisp/registry.el +++ b/lisp/registry.el | |||
| @@ -35,11 +35,11 @@ | |||
| 35 | 35 | ||
| 36 | ;; tracked: a list of symbols | 36 | ;; tracked: a list of symbols |
| 37 | 37 | ||
| 38 | ;; tracker: a hashtable tuned for 100 symbols to track (you should | 38 | ;; tracker: a hash table tuned for 100 symbols to track (you should |
| 39 | ;; only access this with the :lookup2-function and the | 39 | ;; only access this with the :lookup2-function and the |
| 40 | ;; :lookup2+-function) | 40 | ;; :lookup2+-function) |
| 41 | 41 | ||
| 42 | ;; data: a hashtable with default size 10K and resize threshold 2.0 | 42 | ;; data: a hash table with default size 10K and resize threshold 2.0 |
| 43 | ;; (this reflects the expected usage so override it if you know better) | 43 | ;; (this reflects the expected usage so override it if you know better) |
| 44 | 44 | ||
| 45 | ;; ...plus methods to do all the work: `registry-search', | 45 | ;; ...plus methods to do all the work: `registry-search', |
| @@ -124,10 +124,10 @@ | |||
| 124 | :documentation "The precious fields, a list of symbols.") | 124 | :documentation "The precious fields, a list of symbols.") |
| 125 | (tracker :initarg :tracker | 125 | (tracker :initarg :tracker |
| 126 | :type hash-table | 126 | :type hash-table |
| 127 | :documentation "The field tracking hashtable.") | 127 | :documentation "The field tracking hash table.") |
| 128 | (data :initarg :data | 128 | (data :initarg :data |
| 129 | :type hash-table | 129 | :type hash-table |
| 130 | :documentation "The data hashtable."))) | 130 | :documentation "The data hash table."))) |
| 131 | 131 | ||
| 132 | (cl-defmethod initialize-instance :before ((this registry-db) slots) | 132 | (cl-defmethod initialize-instance :before ((this registry-db) slots) |
| 133 | "Check whether a registry object needs to be upgraded." | 133 | "Check whether a registry object needs to be upgraded." |
| @@ -178,7 +178,7 @@ Returns an alist of the key followed by the entry in a list, not a cons cell." | |||
| 178 | (cl-defmethod registry-lookup-secondary ((db registry-db) tracksym | 178 | (cl-defmethod registry-lookup-secondary ((db registry-db) tracksym |
| 179 | &optional create) | 179 | &optional create) |
| 180 | "Search for TRACKSYM in the registry-db THIS. | 180 | "Search for TRACKSYM in the registry-db THIS. |
| 181 | When CREATE is not nil, create the secondary index hashtable if needed." | 181 | When CREATE is not nil, create the secondary index hash table if needed." |
| 182 | (let ((h (gethash tracksym (oref db tracker)))) | 182 | (let ((h (gethash tracksym (oref db tracker)))) |
| 183 | (if h | 183 | (if h |
| 184 | h | 184 | h |