summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/assoc.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2008-11-01 01:24:33 +0000
committerJuanma Barranquero <lekktu@gmail.com>2008-11-01 01:24:33 +0000
commit6cda144ffe7e8da08b15430072f3b112967d5281 (patch)
treeb1427bb1647e69581099a031db5321e6dc3b4b78 /lisp/emacs-lisp/assoc.el
parent322ca65006295d1d7d405188fa324f66b4d3ec17 (diff)
downloademacs-6cda144ffe7e8da08b15430072f3b112967d5281.tar.gz
Fix typos in docstrings.
* cus-edit.el (customize-apropos-options, custom-comment) (custom-comment-tag, custom-face-edit-attribute-tag): Fix typos in docstrings. (custom-buffer-done-kill): Remove * from defcustom docstring. (custom-file): Fix typo in doc of defcustom choice. * frame.el (display-visual-class): Fix typo in docstring. (initial-frame-alist, minibuffer-frame-alist, pop-up-frame-alist) (special-display-frame-alist, show-trailing-whitespace) (auto-hscroll-mode, blink-cursor-delay, blink-cursor-interval) (display-hourglass, hourglass-delay, cursor-in-non-selected-windows): Remove * from defcustom docstrings. * md4.el (md4-buffer): Fix typo in docstring. (md4, md4-64): Doc fixes. (md4-pack-int32): Reflow docstring. * paths.el (rmail-file-name): Remove * from defcustom docstring. (prune-directory-list, gnus-nntp-service): Fix typos in docstrings. * rect.el (open-rectangle): Reflow docstring. (spaces-string): Fix docstring typo. Use "?\s" instead of "? ". * select.el (x-get-cut-buffer): Fix typo in docstring. * timezone.el (timezone-zone-to-minute, timezone-time-from-absolute) (timezone-time-zone-from-absolute, timezone-leap-year-p): Fix typos in docstrings. * emacs-lisp/assoc.el (asort, aelement, aput, aget, amake): Fix typos in docstrings.
Diffstat (limited to 'lisp/emacs-lisp/assoc.el')
-rw-r--r--lisp/emacs-lisp/assoc.el18
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/assoc.el b/lisp/emacs-lisp/assoc.el
index 1f9eb8f2c54..4c3117dbbfa 100644
--- a/lisp/emacs-lisp/assoc.el
+++ b/lisp/emacs-lisp/assoc.el
@@ -30,7 +30,7 @@
(defun asort (alist-symbol key)
"Move a specified key-value pair to the head of an alist.
-The alist is referenced by ALIST-SYMBOL. Key-value pair to move to
+The alist is referenced by ALIST-SYMBOL. Key-value pair to move to
head is one matching KEY. Returns the sorted list and doesn't affect
the order of any other key-value pair. Side effect sets alist to new
sorted list."
@@ -40,7 +40,7 @@ sorted list."
(defun aelement (key value)
- "Makes a list of a cons cell containing car of KEY and cdr of VALUE.
+ "Make a list of a cons cell containing car of KEY and cdr of VALUE.
The returned list is suitable as an element of an alist."
(list (cons key value)))
@@ -61,14 +61,14 @@ pair is not at the head of alist. ALIST is not altered."
(defun aput (alist-symbol key &optional value)
"Inserts a key-value pair into an alist.
-The alist is referenced by ALIST-SYMBOL. The key-value pair is made
-from KEY and optionally, VALUE. Returns the altered alist or nil if
+The alist is referenced by ALIST-SYMBOL. The key-value pair is made
+from KEY and optionally, VALUE. Returns the altered alist or nil if
ALIST is nil.
If the key-value pair referenced by KEY can be found in the alist, and
VALUE is supplied non-nil, then the value of KEY will be set to VALUE.
If VALUE is not supplied, or is nil, the key-value pair will not be
-modified, but will be moved to the head of the alist. If the key-value
+modified, but will be moved to the head of the alist. If the key-value
pair cannot be found in the alist, it will be inserted into the head
of the alist (with value nil if VALUE is nil or not supplied)."
(let ((elem (aelement key value))
@@ -93,14 +93,14 @@ is pair matching KEY. Returns the altered alist."
(defun aget (alist key &optional keynil-p)
- "Returns the value in ALIST that is associated with KEY.
+ "Return the value in ALIST that is associated with KEY.
Optional KEYNIL-P describes what to do if the value associated with
KEY is nil. If KEYNIL-P is not supplied or is nil, and the value is
nil, then KEY is returned. If KEYNIL-P is non-nil, then nil would be
returned.
If no key-value pair matching KEY could be found in ALIST, or ALIST is
-nil then nil is returned. ALIST is not altered."
+nil then nil is returned. ALIST is not altered."
(let ((copy (copy-alist alist)))
(cond ((null alist) nil)
((progn (asort 'copy key)
@@ -114,8 +114,8 @@ nil then nil is returned. ALIST is not altered."
(defun amake (alist-symbol keylist &optional valuelist)
"Make an association list.
The association list is attached to the alist referenced by
-ALIST-SYMBOL. Each element in the KEYLIST becomes a key and is
-associated with the value in VALUELIST with the same index. If
+ALIST-SYMBOL. Each element in the KEYLIST becomes a key and is
+associated with the value in VALUELIST with the same index. If
VALUELIST is not supplied or is nil, then each key in KEYLIST is
associated with nil.