Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/obsolete/assoc.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@302 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
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.

(fn ALIST-SYMBOL KEY)
(defalias 'asort #[514 "
\300\301J!\302\303\304\305\306!\307\"\310\311%\"L\207" [sort copy-alist make-byte-code 514 "
@\300\232\207" vconcat vector [] 4 "\n\n(fn A B)"] 11 (#$ . 409)])
#@169 Make a list of a cons cell containing car of KEY and cdr of VALUE.
The returned list is suitable for concatenating with an existing
alist, via `nconc'.

(fn KEY VALUE)
(defalias 'aelement #[514 "

BC\207" [] 4 (#$ . 905)])
#@57 Return the key symbol at the head of ALIST.

(fn ALIST)
(defalias 'aheadsym #[257 "\211@@\207" [] 2 (#$ . 1134)])
#@351 Find out if a specified key-value pair is not at the head of an alist.
The alist to check is specified by ALIST and the key-value pair is the
one matching the supplied KEY.  Returns nil if ALIST is nil, or if
key-value pair is at the head of the alist.  Returns t if key-value
pair is not at the head of alist.  ALIST is not altered.

(fn ALIST KEY)
(defalias 'anot-head-p #[514 "\300!
\232?\207" [aheadsym] 4 (#$ . 1255)])
#@623 Insert 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.

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
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).

(fn ALIST-SYMBOL KEY &optional VALUE)
(defalias 'aput #[770 "\300\"\301\302\"\210J\262
\211\204L\2025\303
\"\203'\244L\2025\2034\211@\240\210\211\2025\211\207" [aelement nil asort anot-head-p] 8 (#$ . 1687)])
#@183 Delete a key-value pair from the alist.
Alist is referenced by ALIST-SYMBOL and the key-value pair to remove
is pair matching KEY.  Returns the altered alist.

(fn ALIST-SYMBOL KEY)
(defalias 'adelete #[514 "\300\"\210
J\211\204\301\202\302
\"\203\211\202
AL\207" [asort nil anot-head-p] 6 (#$ . 2507)])
#@429 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.

(fn ALIST KEY &optional KEYNIL-P)
(defalias 'aget #[770 "\301!\204\f\302\2021\303\300\"\210\304\"\203\302\2021@A\2061\211\203*\302\2021@@\2061\302)\207" [assoc--copy copy-alist nil asort anot-head-p] 6 (#$ . 2830)])
#@608 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
VALUELIST is not supplied or is nil, then each key in KEYLIST is
associated with nil.

KEYLIST and VALUELIST should have the same number of elements, but
this isn't enforced.  If VALUELIST is smaller than KEYLIST, remaining
keys are associated with nil.  If VALUELIST is larger than KEYLIST,
extra values are ignored.  Returns the created alist.

(fn ALIST-SYMBOL KEYLIST &optional VALUELIST)
(defalias 'amake #[770 "
@A@A\204\300#\210\202$\301#\210\300#\210\266J\207" [aput amake] 11 (#$ . 3464)])
(provide 'assoc)