aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2016-11-04 15:07:01 -0700
committerPaul Eggert2016-11-04 15:07:13 -0700
commita59f4bb5b8f1e702901d166ce44c4dcddc262b62 (patch)
treeca8433ca69a6d86cd0881c368ca3044700d57e15 /lisp
parentae0a1a890ec7b885e85cd945a21ca42fed80df3d (diff)
downloademacs-a59f4bb5b8f1e702901d166ce44c4dcddc262b62.tar.gz
emacs-a59f4bb5b8f1e702901d166ce44c4dcddc262b62.zip
; Spelling fixes
Diffstat (limited to 'lisp')
-rw-r--r--lisp/registry.el10
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.
181When CREATE is not nil, create the secondary index hashtable if needed." 181When 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