documentation_emacs_test/source/lispref/lists.texi.fr.po

# SOME DESCRIPTIVE TITLE
# Copyright (C) YEAR Free Software Foundation, Inc.
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"POT-Creation-Date: 2021-11-07 12:11+0900\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"

#. type: chapter
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:6 /Users/suzume/Documents/Repositories/Projet
#: OmegaT de Documentation Emacs - Sources/doc/lispref/lists.texi:7
#, no-wrap
msgid "Lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:8
#, no-wrap
msgid "lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:9
#, no-wrap
msgid "element (of list)"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:16
msgid ""
"A @dfn{list} represents a sequence of zero or more elements (which may be "
"any Lisp objects).  The important difference between lists and vectors is "
"that two or more lists can share part of their structure; in addition, you "
"can insert or delete elements in a list without copying the whole list."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:29
#, no-wrap
msgid "Cons Cells"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "How lists are made out of cons cells."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:88
#, no-wrap
msgid "List-related Predicates"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "Is this object a list? Comparing two lists."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:176
#, no-wrap
msgid "List Elements"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "Extracting the pieces of a list."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:431
#, no-wrap
msgid "Building Lists"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "Creating list structure."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:743
#, no-wrap
msgid "List Variables"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "Modifying lists stored in variables."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:880
#, no-wrap
msgid "Modifying Lists"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "Storing new pieces into an existing list."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1225
#, no-wrap
msgid "Sets And Lists"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "A list can represent a finite mathematical set."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1500
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1501
#, no-wrap
msgid "Association Lists"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "A list can represent a finite relation or mapping."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1848
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1849
#, no-wrap
msgid "Property Lists"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:27
msgid "A list of paired elements."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:30
#, no-wrap
msgid "Lists and Cons Cells"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:31
#, no-wrap
msgid "lists and cons cells"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:40
msgid ""
"Lists in Lisp are not a primitive data type; they are built up from "
"@dfn{cons cells} (@pxref{Cons Cell Type}).  A cons cell is a data object "
"that represents an ordered pair.  That is, it has two slots, and each slot "
"@dfn{holds}, or @dfn{refers to}, some Lisp object.  One slot is known as the "
"@sc{car}, and the other is known as the @sc{cdr}.  (These names are "
"traditional; see @ref{Cons Cell Type}.)  @sc{cdr} is pronounced "
"``could-er''."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:43
msgid ""
"We say that ``the @sc{car} of this cons cell is'' whatever object its "
"@sc{car} slot currently holds, and likewise for the @sc{cdr}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:52
msgid ""
"A list is a series of cons cells chained together, so that each cell refers "
"to the next one.  There is one cons cell for each element of the list.  By "
"convention, the @sc{car}s of the cons cells hold the elements of the list, "
"and the @sc{cdr}s are used to chain the list (this asymmetry between "
"@sc{car} and @sc{cdr} is entirely a matter of convention; at the level of "
"cons cells, the @sc{car} and @sc{cdr} slots have similar properties).  "
"Hence, the @sc{cdr} slot of each cons cell in a list refers to the following "
"cons cell."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:53
#, no-wrap
msgid "proper list"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:54
#, no-wrap
msgid "true list"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:63
msgid ""
"Also by convention, the @sc{cdr} of the last cons cell in a list is "
"@code{nil}.  We call such a @code{nil}-terminated structure a @dfn{proper "
"list}@footnote{It is sometimes also referred to as a @dfn{true list}, but we "
"generally do not use this terminology in this manual.}.  In Emacs Lisp, the "
"symbol @code{nil} is both a symbol and a list with no elements.  For "
"convenience, the symbol @code{nil} is considered to have @code{nil} as its "
"@sc{cdr} (and also as its @sc{car})."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:67
msgid ""
"Hence, the @sc{cdr} of a proper list is always a proper list.  The @sc{cdr} "
"of a nonempty proper list is a proper list containing all the elements "
"except the first."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:68
#, no-wrap
msgid "dotted list"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:69
#, no-wrap
msgid "circular list"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:76
msgid ""
"If the @sc{cdr} of a list's last cons cell is some value other than "
"@code{nil}, we call the structure a @dfn{dotted list}, since its printed "
"representation would use dotted pair notation (@pxref{Dotted Pair "
"Notation}).  There is one other possibility: some cons cell's @sc{cdr} could "
"point to one of the previous cons cells in the list.  We call that structure "
"a @dfn{circular list}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:83
msgid ""
"For some purposes, it does not matter whether a list is proper, circular or "
"dotted.  If a program doesn't look far enough down the list to see the "
"@sc{cdr} of the final cons cell, it won't care.  However, some functions "
"that operate on lists demand proper lists and signal errors if given a "
"dotted list.  Most functions that try to find the end of a list enter "
"infinite loops if given a circular list."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:84
#, no-wrap
msgid "list structure"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:87
msgid ""
"Because most cons cells are used as part of lists, we refer to any structure "
"made out of cons cells as a @dfn{list structure}."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:89
#, no-wrap
msgid "Predicates on Lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:90
#, no-wrap
msgid "predicates for lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:91
#, no-wrap
msgid "list predicates"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:98
msgid ""
"The following predicates test whether a Lisp object is an atom, whether it "
"is a cons cell or is a list, or whether it is the distinguished object "
"@code{nil}.  (Many of these predicates can be defined in terms of the "
"others, but they are used so often that it is worth having them.)"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:99
#, no-wrap
msgid "consp object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:102
msgid ""
"This function returns @code{t} if @var{object} is a cons cell, @code{nil} "
"otherwise.  @code{nil} is not a cons cell, although it @emph{is} a list."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:104
#, no-wrap
msgid "atom object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:109
msgid ""
"This function returns @code{t} if @var{object} is an atom, @code{nil} "
"otherwise.  All objects except cons cells are atoms.  The symbol @code{nil} "
"is an atom and is also a list; it is the only Lisp object that is both."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:112
#, no-wrap
msgid "(atom @var{object}) @equiv{} (not (consp @var{object}))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:115
#, no-wrap
msgid "listp object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:118
msgid ""
"This function returns @code{t} if @var{object} is a cons cell or "
"@code{nil}.  Otherwise, it returns @code{nil}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:123
#, no-wrap
msgid ""
"(listp '(1))\n"
"     @result{} t\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:127
#, no-wrap
msgid ""
"(listp '())\n"
"     @result{} t\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:131
#, no-wrap
msgid "nlistp object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:134
msgid ""
"This function is the opposite of @code{listp}: it returns @code{t} if "
"@var{object} is not a list.  Otherwise, it returns @code{nil}."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:137
#, no-wrap
msgid "(listp @var{object}) @equiv{} (not (nlistp @var{object}))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:140
#, no-wrap
msgid "null object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:146
msgid ""
"This function returns @code{t} if @var{object} is @code{nil}, and returns "
"@code{nil} otherwise.  This function is identical to @code{not}, but as a "
"matter of clarity we use @code{null} when @var{object} is considered a list "
"and @code{not} when it is considered a truth value (see @code{not} in "
"@ref{Combining Conditions})."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:151
#, no-wrap
msgid ""
"(null '(1))\n"
"     @result{} nil\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:155
#, no-wrap
msgid ""
"(null '())\n"
"     @result{} t\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:159
#, no-wrap
msgid "proper-list-p object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:163
msgid ""
"This function returns the length of @var{object} if it is a proper list, "
"@code{nil} otherwise (@pxref{Cons Cells}).  In addition to satisfying "
"@code{listp}, a proper list is neither circular nor dotted."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:168
#, no-wrap
msgid ""
"(proper-list-p '(a b c))\n"
"    @result{} 3\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:172
#, no-wrap
msgid ""
"(proper-list-p '(a b . c))\n"
"    @result{} nil\n"
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:177
#, no-wrap
msgid "Accessing Elements of Lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:178
#, no-wrap
msgid "list elements"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:180
#, no-wrap
msgid "car cons-cell"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:184
msgid ""
"This function returns the value referred to by the first slot of the cons "
"cell @var{cons-cell}.  In other words, it returns the @sc{car} of "
"@var{cons-cell}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:188
msgid ""
"As a special case, if @var{cons-cell} is @code{nil}, this function returns "
"@code{nil}.  Therefore, any list is a valid argument.  An error is signaled "
"if the argument is not a cons cell or @code{nil}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:193
#, no-wrap
msgid ""
"(car '(a b c))\n"
"     @result{} a\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:197
#, no-wrap
msgid ""
"(car '())\n"
"     @result{} nil\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:201
#, no-wrap
msgid "cdr cons-cell"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:205
msgid ""
"This function returns the value referred to by the second slot of the cons "
"cell @var{cons-cell}.  In other words, it returns the @sc{cdr} of "
"@var{cons-cell}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:209
msgid ""
"As a special case, if @var{cons-cell} is @code{nil}, this function returns "
"@code{nil}; therefore, any list is a valid argument.  An error is signaled "
"if the argument is not a cons cell or @code{nil}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:214
#, no-wrap
msgid ""
"(cdr '(a b c))\n"
"     @result{} (b c)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:218
#, no-wrap
msgid ""
"(cdr '())\n"
"     @result{} nil\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:222
#, no-wrap
msgid "car-safe object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:227
msgid ""
"This function lets you take the @sc{car} of a cons cell while avoiding "
"errors for other data types.  It returns the @sc{car} of @var{object} if "
"@var{object} is a cons cell, @code{nil} otherwise.  This is in contrast to "
"@code{car}, which signals an error if @var{object} is not a list."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:236
#, no-wrap
msgid ""
"(car-safe @var{object})\n"
"@equiv{}\n"
"(let ((x @var{object}))\n"
"  (if (consp x)\n"
"      (car x)\n"
"    nil))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:240
#, no-wrap
msgid "cdr-safe object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:246
msgid ""
"This function lets you take the @sc{cdr} of a cons cell while avoiding "
"errors for other data types.  It returns the @sc{cdr} of @var{object} if "
"@var{object} is a cons cell, @code{nil} otherwise.  This is in contrast to "
"@code{cdr}, which signals an error if @var{object} is not a list."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:255
#, no-wrap
msgid ""
"(cdr-safe @var{object})\n"
"@equiv{}\n"
"(let ((x @var{object}))\n"
"  (if (consp x)\n"
"      (cdr x)\n"
"    nil))\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:259
#, no-wrap
msgid "pop listname"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:265
msgid ""
"This macro provides a convenient way to examine the @sc{car} of a list, and "
"take it off the list, all at once.  It operates on the list stored in "
"@var{listname}.  It removes the first element from the list, saves the "
"@sc{cdr} into @var{listname}, then returns the removed element."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:269
msgid ""
"In the simplest case, @var{listname} is an unquoted symbol naming a list; in "
"that case, this macro is equivalent to @w{@code{(prog1 (car listname) (setq "
"listname (cdr listname)))}}."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:277
#, no-wrap
msgid ""
"x\n"
"     @result{} (a b c)\n"
"(pop x)\n"
"     @result{} a\n"
"x\n"
"     @result{} (b c)\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:282
msgid ""
"More generally, @var{listname} can be a generalized variable.  In that case, "
"this macro saves into @var{listname} using @code{setf}.  @xref{Generalized "
"Variables}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:285
msgid ""
"For the @code{push} macro, which adds an element to a list, @xref{List "
"Variables}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:287
#, no-wrap
msgid "nth n list"
msgstr ""

#. type: anchor{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:293
msgid "Definition of nth"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:293
msgid ""
"This function returns the @var{n}th element of @var{list}.  Elements are "
"numbered starting with zero, so the @sc{car} of @var{list} is element number "
"zero.  If the length of @var{list} is @var{n} or less, the value is "
"@code{nil}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:303
#, no-wrap
msgid ""
"(nth 2 '(1 2 3 4))\n"
"     @result{} 3\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:307
#, no-wrap
msgid ""
"(nth 10 '(1 2 3 4))\n"
"     @result{} nil\n"
"\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:309
#, no-wrap
msgid "(nth n x) @equiv{} (car (nthcdr n x))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:315
msgid ""
"The function @code{elt} is similar, but applies to any kind of sequence.  "
"For historical reasons, it takes its arguments in the opposite order.  "
"@xref{Sequence Functions}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:317
#, no-wrap
msgid "nthcdr n list"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:321
msgid ""
"This function returns the @var{n}th @sc{cdr} of @var{list}.  In other words, "
"it skips past the first @var{n} links of @var{list} and returns what "
"follows."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:326
msgid ""
"If @var{n} is zero, @code{nthcdr} returns all of @var{list}.  If the length "
"of @var{list} is @var{n} or less, @code{nthcdr} returns @code{nil}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:331
#, no-wrap
msgid ""
"(nthcdr 1 '(1 2 3 4))\n"
"     @result{} (2 3 4)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:335
#, no-wrap
msgid ""
"(nthcdr 10 '(1 2 3 4))\n"
"     @result{} nil\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:339
#, no-wrap
msgid ""
"(nthcdr 0 '(1 2 3 4))\n"
"     @result{} (1 2 3 4)\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:343
#, no-wrap
msgid "last list &optional n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:349
msgid ""
"This function returns the last link of @var{list}.  The @code{car} of this "
"link is the list's last element.  If @var{list} is null, @code{nil} is "
"returned.  If @var{n} is non-@code{nil}, the @var{n}th-to-last link is "
"returned instead, or the whole of @var{list} if @var{n} is bigger than "
"@var{list}'s length."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:351
#, no-wrap
msgid "safe-length list"
msgstr ""

#. type: anchor{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:357
msgid "Definition of safe-length"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:357
msgid ""
"This function returns the length of @var{list}, with no risk of either an "
"error or an infinite loop.  It generally returns the number of distinct cons "
"cells in the list.  However, for circular lists, the value is just an upper "
"bound; it is often too large."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:360
msgid ""
"If @var{list} is not @code{nil} or a cons cell, @code{safe-length} returns "
"0."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:365
msgid ""
"The most common way to compute the length of a list, when you are not "
"worried that it may be circular, is with @code{length}.  @xref{Sequence "
"Functions}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:366
#, no-wrap
msgid "caar cons-cell"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:368
msgid "This is the same as @code{(car (car @var{cons-cell}))}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:370
#, no-wrap
msgid "cadr cons-cell"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:373
msgid ""
"This is the same as @code{(car (cdr @var{cons-cell}))} or @code{(nth 1 "
"@var{cons-cell})}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:375
#, no-wrap
msgid "cdar cons-cell"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:377
msgid "This is the same as @code{(cdr (car @var{cons-cell}))}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:379
#, no-wrap
msgid "cddr cons-cell"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:382
msgid ""
"This is the same as @code{(cdr (cdr @var{cons-cell}))} or @code{(nthcdr 2 "
"@var{cons-cell})}."
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:384
#, no-wrap
msgid "caaar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:385
#, no-wrap
msgid "caadr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:386
#, no-wrap
msgid "cadar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:387
#, no-wrap
msgid "caddr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:388
#, no-wrap
msgid "cdaar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:389
#, no-wrap
msgid "cdadr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:390
#, no-wrap
msgid "cddar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:391
#, no-wrap
msgid "cdddr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:392
#, no-wrap
msgid "caaaar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:393
#, no-wrap
msgid "caaadr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:394
#, no-wrap
msgid "caadar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:395
#, no-wrap
msgid "caaddr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:396
#, no-wrap
msgid "cadaar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:397
#, no-wrap
msgid "cadadr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:398
#, no-wrap
msgid "caddar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:399
#, no-wrap
msgid "cadddr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:400
#, no-wrap
msgid "cdaaar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:401
#, no-wrap
msgid "cdaadr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:402
#, no-wrap
msgid "cdadar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:403
#, no-wrap
msgid "cdaddr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:404
#, no-wrap
msgid "cddaar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:405
#, no-wrap
msgid "cddadr"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:406
#, no-wrap
msgid "cdddar"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:407
#, no-wrap
msgid "cddddr"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:416
msgid ""
"In addition to the above, 24 additional compositions of @code{car} and "
"@code{cdr} are defined as @code{c@var{xxx}r} and @code{c@var{xxxx}r}, where "
"each @code{@var{x}} is either @code{a} or @code{d}.  @code{cadr}, "
"@code{caddr}, and @code{cadddr} pick out the second, third or fourth "
"elements of a list, respectively.  @file{cl-lib} provides the same under the "
"names @code{cl-second}, @code{cl-third}, and @code{cl-fourth}.  @xref{List "
"Functions,,, cl, Common Lisp Extensions}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:417
#, no-wrap
msgid "butlast x &optional n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:423
msgid ""
"This function returns the list @var{x} with the last element, or the last "
"@var{n} elements, removed.  If @var{n} is greater than zero it makes a copy "
"of the list so as not to damage the original list.  In general, "
"@code{(append (butlast @var{x} @var{n})  (last @var{x} @var{n}))} will "
"return a list equal to @var{x}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:425
#, no-wrap
msgid "nbutlast x &optional n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:429
msgid ""
"This is a version of @code{butlast} that works by destructively modifying "
"the @code{cdr} of the appropriate element, rather than making a copy of the "
"list."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:432
#, no-wrap
msgid "Building Cons Cells and Lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:433
#, no-wrap
msgid "cons cells"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:434
#, no-wrap
msgid "building lists"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:440
msgid ""
"Many functions build lists, as lists reside at the very heart of Lisp.  "
"@code{cons} is the fundamental list-building function; however, it is "
"interesting to note that @code{list} is used more times in the source code "
"for Emacs than @code{cons}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:441
#, no-wrap
msgid "cons object1 object2"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:447
msgid ""
"This function is the most basic function for building new list structure.  "
"It creates a new cons cell, making @var{object1} the @sc{car}, and "
"@var{object2} the @sc{cdr}.  It then returns the new cons cell.  The "
"arguments @var{object1} and @var{object2} may be any Lisp objects, but most "
"often @var{object2} is a list."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:452
#, no-wrap
msgid ""
"(cons 1 '(2))\n"
"     @result{} (1 2)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:456
#, no-wrap
msgid ""
"(cons 1 '())\n"
"     @result{} (1)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:460
#, no-wrap
msgid ""
"(cons 1 2)\n"
"     @result{} (1 . 2)\n"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:463
#, no-wrap
msgid "consing"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:475
msgid ""
"@code{cons} is often used to add a single element to the front of a list.  "
"This is called @dfn{consing the element onto the list}.  @footnote{There is "
"no strictly equivalent way to add an element to the end of a list.  You can "
"use @code{(append @var{listname} (list @var{newelt}))}, which creates a "
"whole new list by copying @var{listname} and adding @var{newelt} to its "
"end.  Or you can use @code{(nconc @var{listname} (list @var{newelt}))}, "
"which modifies @var{listname} by following all the @sc{cdr}s and then "
"replacing the terminating @code{nil}.  Compare this to adding an element to "
"the beginning of a list with @code{cons}, which neither copies nor modifies "
"the list.} For example:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:478
#, no-wrap
msgid "(setq list (cons newelt list))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:483
msgid ""
"Note that there is no conflict between the variable named @code{list} used "
"in this example and the function named @code{list} described below; any "
"symbol can serve both purposes."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:485
#, no-wrap
msgid "list &rest objects"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:489
msgid ""
"This function creates a list with @var{objects} as its elements.  The "
"resulting list is always @code{nil}-terminated.  If no @var{objects} are "
"given, the empty list is returned."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:494
#, no-wrap
msgid ""
"(list 1 2 3 4 5)\n"
"     @result{} (1 2 3 4 5)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:498
#, no-wrap
msgid ""
"(list 1 2 '(3 4 5) 'foo)\n"
"     @result{} (1 2 (3 4 5) foo)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:502
#, no-wrap
msgid ""
"(list)\n"
"     @result{} nil\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:506
#, no-wrap
msgid "make-list length object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:510
msgid ""
"This function creates a list of @var{length} elements, in which each element "
"is @var{object}.  Compare @code{make-list} with @code{make-string} "
"(@pxref{Creating Strings})."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:515
#, no-wrap
msgid ""
"(make-list 3 'pigs)\n"
"     @result{} (pigs pigs pigs)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:519
#, no-wrap
msgid ""
"(make-list 0 'pigs)\n"
"     @result{} nil\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:525
#, no-wrap
msgid ""
"(setq l (make-list 3 '(a b)))\n"
"     @result{} ((a b) (a b) (a b))\n"
"(eq (car l) (cadr l))\n"
"     @result{} t\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:529
#, no-wrap
msgid "append &rest sequences"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:530
#, no-wrap
msgid "copying lists"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:537
msgid ""
"This function returns a list containing all the elements of "
"@var{sequences}.  The @var{sequences} may be lists, vectors, bool-vectors, "
"or strings, but the last one should usually be a list.  All arguments except "
"the last one are copied, so none of the arguments is altered.  (See "
"@code{nconc} in @ref{Rearrangement}, for a way to join lists with no "
"copying.)"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:545
msgid ""
"More generally, the final argument to @code{append} may be any Lisp object.  "
"The final argument is not copied or converted; it becomes the @sc{cdr} of "
"the last cons cell in the new list.  If the final argument is itself a list, "
"then its elements become in effect elements of the result list.  If the "
"final element is not a list, the result is a dotted list since its final "
"@sc{cdr} is not @code{nil} as required in a proper list (@pxref{Cons "
"Cells})."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:548
msgid "Here is an example of using @code{append}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:555
#, no-wrap
msgid ""
"(setq trees '(pine oak))\n"
"     @result{} (pine oak)\n"
"(setq more-trees (append '(maple birch) trees))\n"
"     @result{} (maple birch pine oak)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:562
#, no-wrap
msgid ""
"trees\n"
"     @result{} (pine oak)\n"
"more-trees\n"
"     @result{} (maple birch pine oak)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:566
#, no-wrap
msgid ""
"(eq trees (cdr (cdr more-trees)))\n"
"     @result{} t\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:574
msgid ""
"You can see how @code{append} works by looking at a box diagram.  The "
"variable @code{trees} is set to the list @code{(pine oak)} and then the "
"variable @code{more-trees} is set to the list @code{(maple birch pine "
"oak)}.  However, the variable @code{trees} continues to refer to the "
"original list:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:585
#, no-wrap
msgid ""
"more-trees                trees\n"
"|                           |\n"
"|     --- ---      --- ---   -> --- ---      --- ---\n"
" --> |   |   |--> |   |   |--> |   |   |--> |   |   |--> nil\n"
"      --- ---      --- ---      --- ---      --- ---\n"
"       |            |            |            |\n"
"       |            |            |            |\n"
"        --> maple    -->birch     --> pine     --> oak\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:591
msgid ""
"An empty sequence contributes nothing to the value returned by "
"@code{append}.  As a consequence of this, a final @code{nil} argument forces "
"a copy of the previous argument:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:596
#, no-wrap
msgid ""
"trees\n"
"     @result{} (pine oak)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:600
#, no-wrap
msgid ""
"(setq wood (append trees nil))\n"
"     @result{} (pine oak)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:604
#, no-wrap
msgid ""
"wood\n"
"     @result{} (pine oak)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:608
#, no-wrap
msgid ""
"(eq wood trees)\n"
"     @result{} nil\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:614
msgid ""
"This once was the usual way to copy a list, before the function "
"@code{copy-sequence} was invented.  @xref{Sequences Arrays Vectors}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:616
msgid "Here we show the use of vectors and strings as arguments to @code{append}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:621
#, no-wrap
msgid ""
"(append [a b] \"cd\" nil)\n"
"     @result{} (a b 99 100)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:626
msgid ""
"With the help of @code{apply} (@pxref{Calling Functions}), we can append all "
"the lists in a list of lists:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:631
#, no-wrap
msgid ""
"(apply 'append '((a b c) nil (x y z) nil))\n"
"     @result{} (a b c x y z)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:635
msgid "If no @var{sequences} are given, @code{nil} is returned:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:640
#, no-wrap
msgid ""
"(append)\n"
"     @result{} nil\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:644
msgid "Here are some examples where the final argument is not a list:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:650
#, no-wrap
msgid ""
"(append '(x y) 'z)\n"
"     @result{} (x y . z)\n"
"(append '(x y) [z])\n"
"     @result{} (x y . [z])\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:657
msgid ""
"The second example shows that when the final argument is a sequence but not "
"a list, the sequence's elements do not become elements of the resulting "
"list.  Instead, the sequence becomes the final @sc{cdr}, like any other "
"non-list final argument."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:658
#, no-wrap
msgid "copy-tree tree &optional vecp"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:663
msgid ""
"This function returns a copy of the tree @var{tree}.  If @var{tree} is a "
"cons cell, this makes a new cons cell with the same @sc{car} and @sc{cdr}, "
"then recursively copies the @sc{car} and @sc{cdr} in the same way."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:668
msgid ""
"Normally, when @var{tree} is anything other than a cons cell, "
"@code{copy-tree} simply returns @var{tree}.  However, if @var{vecp} is "
"non-@code{nil}, it copies vectors too (and operates recursively on their "
"elements)."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:670
#, no-wrap
msgid "flatten-tree tree"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:675
msgid ""
"This function returns a ``flattened'' copy of @var{tree}, that is, a list "
"containing all the non-@code{nil} terminal nodes, or leaves, of the tree of "
"cons cells rooted at @var{tree}.  Leaves in the returned list are in the "
"same order as in @var{tree}."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:680
#, no-wrap
msgid ""
"(flatten-tree '(1 (2 . 3) nil (4 5 (6)) 7))\n"
"    @result{}(1 2 3 4 5 6 7)\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:682
#, no-wrap
msgid "ensure-list object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:686
msgid ""
"This function returns @var{object} as a list.  If @var{object} is already a "
"list, the function returns it; otherwise, the function returns a one-element "
"list containing @var{object}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:689
msgid ""
"This is usually useful if you have a variable that may or may not be a list, "
"and you can then say, for instance:"
msgstr ""

#. type: lisp
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:693
#, no-wrap
msgid ""
"(dolist (elem (ensure-list foo))\n"
"  (princ elem))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:696
#, no-wrap
msgid "number-sequence from &optional to separation"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:705
msgid ""
"This function returns a list of numbers starting with @var{from} and "
"incrementing by @var{separation}, and ending at or just before @var{to}.  "
"@var{separation} can be positive or negative and defaults to 1.  If @var{to} "
"is @code{nil} or numerically equal to @var{from}, the value is the "
"one-element list @code{(@var{from})}.  If @var{to} is less than @var{from} "
"with a positive @var{separation}, or greater than @var{from} with a negative "
"@var{separation}, the value is @code{nil} because those arguments specify an "
"empty sequence."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:709
msgid ""
"If @var{separation} is 0 and @var{to} is neither @code{nil} nor numerically "
"equal to @var{from}, @code{number-sequence} signals an error, since those "
"arguments specify an infinite sequence."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:722
msgid ""
"All arguments are numbers.  Floating-point arguments can be tricky, because "
"floating-point arithmetic is inexact.  For instance, depending on the "
"machine, it may quite well happen that @code{(number-sequence 0.4 0.6 0.2)} "
"returns the one element list @code{(0.4)}, whereas @code{(number-sequence "
"0.4 0.8 0.2)} returns a list with three elements.  The @var{n}th element of "
"the list is computed by the exact formula @code{(+ @var{from} (* @var{n} "
"@var{separation}))}.  Thus, if one wants to make sure that @var{to} is "
"included in the list, one can pass an expression of this exact type for "
"@var{to}.  Alternatively, one can replace @var{to} with a slightly larger "
"value (or a slightly more negative value if @var{separation} is negative)."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:724
msgid "Some examples:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:740
#, no-wrap
msgid ""
"(number-sequence 4 9)\n"
"     @result{} (4 5 6 7 8 9)\n"
"(number-sequence 9 4 -1)\n"
"     @result{} (9 8 7 6 5 4)\n"
"(number-sequence 9 4 -2)\n"
"     @result{} (9 7 5)\n"
"(number-sequence 8)\n"
"     @result{} (8)\n"
"(number-sequence 8 5)\n"
"     @result{} nil\n"
"(number-sequence 5 8 -1)\n"
"     @result{} nil\n"
"(number-sequence 1.5 6 2)\n"
"     @result{} (1.5 3.5 5.5)\n"
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:744
#, no-wrap
msgid "Modifying List Variables"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:745
#, no-wrap
msgid "modify a list"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:746
#, no-wrap
msgid "list modification"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:750
msgid ""
"These functions, and one macro, provide convenient ways to modify a list "
"which is stored in a variable."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:751
#, no-wrap
msgid "push element listname"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:757
msgid ""
"This macro creates a new list whose @sc{car} is @var{element} and whose "
"@sc{cdr} is the list specified by @var{listname}, and saves that list in "
"@var{listname}.  In the simplest case, @var{listname} is an unquoted symbol "
"naming a list, and this macro is equivalent to @w{@code{(setq @var{listname} "
"(cons @var{element} @var{listname}))}}."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:765
#, no-wrap
msgid ""
"(setq l '(a b))\n"
"     @result{} (a b)\n"
"(push 'c l)\n"
"     @result{} (c a b)\n"
"l\n"
"     @result{} (c a b)\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:771
msgid ""
"More generally, @code{listname} can be a generalized variable.  In that "
"case, this macro does the equivalent of @w{@code{(setf @var{listname} (cons "
"@var{element} @var{listname}))}}.  @xref{Generalized Variables}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:774
msgid ""
"For the @code{pop} macro, which removes the first element from a list, "
"@xref{List Elements}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:777
msgid "Two functions modify lists that are the values of variables."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:778
#, no-wrap
msgid "add-to-list symbol element &optional append compare-fn"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:786
msgid ""
"This function sets the variable @var{symbol} by consing @var{element} onto "
"the old value, if @var{element} is not already a member of that value.  It "
"returns the resulting list, whether updated or not.  The value of "
"@var{symbol} had better be a list already before the call.  "
"@code{add-to-list} uses @var{compare-fn} to compare @var{element} against "
"existing list members; if @var{compare-fn} is @code{nil}, it uses "
"@code{equal}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:790
msgid ""
"Normally, if @var{element} is added, it is added to the front of "
"@var{symbol}, but if the optional argument @var{append} is non-@code{nil}, "
"it is added at the end."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:794
msgid ""
"The argument @var{symbol} is not implicitly quoted; @code{add-to-list} is an "
"ordinary function, like @code{set} and unlike @code{setq}.  Quote the "
"argument yourself if that is what you want."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:797
msgid "Do not use this function when @var{symbol} refers to a lexical variable."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:800
msgid "Here's a scenario showing how to use @code{add-to-list}:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:804
#, no-wrap
msgid ""
"(setq foo '(a b))\n"
"     @result{} (a b)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:807
#, no-wrap
msgid ""
"(add-to-list 'foo 'c)     ;; @r{Add @code{c}.}\n"
"     @result{} (c a b)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:810
#, no-wrap
msgid ""
"(add-to-list 'foo 'b)     ;; @r{No effect.}\n"
"     @result{} (c a b)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:813
#, no-wrap
msgid ""
"foo                       ;; @r{@code{foo} was changed.}\n"
"     @result{} (c a b)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:817
msgid ""
"An equivalent expression for @code{(add-to-list '@var{var} @var{value})} is "
"this:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:822
#, no-wrap
msgid ""
"(if (member @var{value} @var{var})\n"
"    @var{var}\n"
"  (setq @var{var} (cons @var{value} @var{var})))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:824
#, no-wrap
msgid "add-to-ordered-list symbol element &optional order"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:831
msgid ""
"This function sets the variable @var{symbol} by inserting @var{element} into "
"the old value, which must be a list, at the position specified by "
"@var{order}.  If @var{element} is already a member of the list, its position "
"in the list is adjusted according to @var{order}.  Membership is tested "
"using @code{eq}.  This function returns the resulting list, whether updated "
"or not."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:834
msgid ""
"The @var{order} is typically a number (integer or float), and the elements "
"of the list are sorted in non-decreasing numerical order."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:839
msgid ""
"@var{order} may also be omitted or @code{nil}.  Then the numeric order of "
"@var{element} stays unchanged if it already has one; otherwise, "
"@var{element} has no numeric order.  Elements without a numeric list order "
"are placed at the end of the list, in no particular order."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:842
msgid ""
"Any other value for @var{order} removes the numeric order of @var{element} "
"if it already has one; otherwise, it is equivalent to @code{nil}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:846
msgid ""
"The argument @var{symbol} is not implicitly quoted; "
"@code{add-to-ordered-list} is an ordinary function, like @code{set} and "
"unlike @code{setq}.  Quote the argument yourself if necessary."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:850
msgid ""
"The ordering information is stored in a hash table on @var{symbol}'s "
"@code{list-order} property.  @var{symbol} cannot refer to a lexical "
"variable."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:853
msgid "Here's a scenario showing how to use @code{add-to-ordered-list}:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:857
#, no-wrap
msgid ""
"(setq foo '())\n"
"     @result{} nil\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:860
#, no-wrap
msgid ""
"(add-to-ordered-list 'foo 'a 1)     ;; @r{Add @code{a}.}\n"
"     @result{} (a)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:863
#, no-wrap
msgid ""
"(add-to-ordered-list 'foo 'c 3)     ;; @r{Add @code{c}.}\n"
"     @result{} (a c)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:866
#, no-wrap
msgid ""
"(add-to-ordered-list 'foo 'b 2)     ;; @r{Add @code{b}.}\n"
"     @result{} (a b c)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:869
#, no-wrap
msgid ""
"(add-to-ordered-list 'foo 'b 4)     ;; @r{Move @code{b}.}\n"
"     @result{} (a c b)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:872
#, no-wrap
msgid ""
"(add-to-ordered-list 'foo 'd)       ;; @r{Append @code{d}.}\n"
"     @result{} (a c b d)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:875
#, no-wrap
msgid ""
"(add-to-ordered-list 'foo 'e)       ;; @r{Add @code{e}}.\n"
"     @result{} (a c b e d)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:878
#, no-wrap
msgid ""
"foo                       ;; @r{@code{foo} was changed.}\n"
"     @result{} (a c b e d)\n"
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:881
#, no-wrap
msgid "Modifying Existing List Structure"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:882
#, no-wrap
msgid "destructive list operations"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:883
#, no-wrap
msgid "mutable lists"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:892
msgid ""
"You can modify the @sc{car} and @sc{cdr} contents of a cons cell with the "
"primitives @code{setcar} and @code{setcdr}.  These are destructive "
"operations because they change existing list structure.  Destructive "
"operations should be applied only to mutable lists, that is, lists "
"constructed via @code{cons}, @code{list} or similar operations.  Lists "
"created by quoting are part of the program and should not be changed by "
"destructive operations.  @xref{Mutability}."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:893
#, no-wrap
msgid "CL note---@code{rplaca} vs @code{setcar}"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:895
#, no-wrap
msgid "rplaca"
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:896
#, no-wrap
msgid "rplacd"
msgstr ""

#. type: quotation
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:902
msgid ""
"@b{Common Lisp note:} Common Lisp uses functions @code{rplaca} and "
"@code{rplacd} to alter list structure; they change structure the same way as "
"@code{setcar} and @code{setcdr}, but the Common Lisp functions return the "
"cons cell while @code{setcar} and @code{setcdr} return the new @sc{car} or "
"@sc{cdr}."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:909
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:911
#, no-wrap
msgid "Setcar"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:909
msgid "Replacing an element in a list."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:909
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1018
#, no-wrap
msgid "Setcdr"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:909
msgid ""
"Replacing part of the list backbone.  This can be used to remove or add "
"elements."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:909
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1120
#, no-wrap
msgid "Rearrangement"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:909
msgid "Reordering the elements in a list; combining lists."
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:912
#, no-wrap
msgid "Altering List Elements with @code{setcar}"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:913
#, no-wrap
msgid "replace list element"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:914
#, no-wrap
msgid "list, replace element"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:919
msgid ""
"Changing the @sc{car} of a cons cell is done with @code{setcar}.  When used "
"on a list, @code{setcar} replaces one element of a list with a different "
"element."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:920
#, no-wrap
msgid "setcar cons object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:925
msgid ""
"This function stores @var{object} as the new @sc{car} of @var{cons}, "
"replacing its previous @sc{car}.  In other words, it changes the @sc{car} "
"slot of @var{cons} to refer to @var{object}.  It returns the value "
"@var{object}.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:930
#, no-wrap
msgid ""
"(setq x (list 1 2))\n"
"     @result{} (1 2)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:934
#, no-wrap
msgid ""
"(setcar x 4)\n"
"     @result{} 4\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:938
#, no-wrap
msgid ""
"x\n"
"     @result{} (4 2)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:945
msgid ""
"When a cons cell is part of the shared structure of several lists, storing a "
"new @sc{car} into the cons changes one element of each of these lists.  Here "
"is an example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:953
#, no-wrap
msgid ""
";; @r{Create two lists that are partly shared.}\n"
"(setq x1 (list 'a 'b 'c))\n"
"     @result{} (a b c)\n"
"(setq x2 (cons 'z (cdr x1)))\n"
"     @result{} (z b c)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:963
#, no-wrap
msgid ""
";; @r{Replace the @sc{car} of a shared link.}\n"
"(setcar (cdr x1) 'foo)\n"
"     @result{} foo\n"
"x1                           ; @r{Both lists are changed.}\n"
"     @result{} (a foo c)\n"
"x2\n"
"     @result{} (z foo c)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:973
#, no-wrap
msgid ""
";; @r{Replace the @sc{car} of a link that is not shared.}\n"
"(setcar x1 'baz)\n"
"     @result{} baz\n"
"x1                           ; @r{Only one list is changed.}\n"
"     @result{} (baz foo c)\n"
"x2\n"
"     @result{} (z foo c)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:979
msgid ""
"Here is a graphical depiction of the shared structure of the two lists in "
"the variables @code{x1} and @code{x2}, showing why replacing @code{b} "
"changes them both:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:995
#, no-wrap
msgid ""
"        --- ---        --- ---      --- ---\n"
"x1---> |   |   |----> |   |   |--> |   |   |--> nil\n"
"        --- ---        --- ---      --- ---\n"
"         |        -->   |            |\n"
"         |       |      |            |\n"
"          --> a  |       --> b        --> c\n"
"                 |\n"
"       --- ---   |\n"
"x2--> |   |   |--\n"
"       --- ---\n"
"        |\n"
"        |\n"
"         --> z\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:999
msgid "Here is an alternative form of box diagram, showing the same relationship:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1015
#, no-wrap
msgid ""
"x1:\n"
" --------------       --------------       --------------\n"
"| car   | cdr  |     | car   | cdr  |     | car   | cdr  |\n"
"|   a   |   o------->|   b   |   o------->|   c   |  nil |\n"
"|       |      |  -->|       |      |     |       |      |\n"
" --------------  |    --------------       --------------\n"
"                 |\n"
"x2:              |\n"
" --------------  |\n"
"| car   | cdr  | |\n"
"|   z   |   o----\n"
"|       |      |\n"
" --------------\n"
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1019
#, no-wrap
msgid "Altering the CDR of a List"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1020
#, no-wrap
msgid "replace part of list"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1023
msgid "The lowest-level primitive for modifying a @sc{cdr} is @code{setcdr}:"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1024
#, no-wrap
msgid "setcdr cons object"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1029
msgid ""
"This function stores @var{object} as the new @sc{cdr} of @var{cons}, "
"replacing its previous @sc{cdr}.  In other words, it changes the @sc{cdr} "
"slot of @var{cons} to refer to @var{object}.  It returns the value "
"@var{object}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1036
msgid ""
"Here is an example of replacing the @sc{cdr} of a list with a different "
"list.  All but the first element of the list are removed in favor of a "
"different sequence of elements.  The first element is unchanged, because it "
"resides in the @sc{car} of the list, and is not reached via the @sc{cdr}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1041
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1154
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1174
#, no-wrap
msgid ""
"(setq x (list 1 2 3))\n"
"     @result{} (1 2 3)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1045
#, no-wrap
msgid ""
"(setcdr x '(4))\n"
"     @result{} (4)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1049
#, no-wrap
msgid ""
"x\n"
"     @result{} (1 4)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1056
msgid ""
"You can delete elements from the middle of a list by altering the @sc{cdr}s "
"of the cons cells in the list.  For example, here we delete the second "
"element, @code{b}, from the list @code{(a b c)}, by changing the @sc{cdr} of "
"the first cons cell:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1065
#, no-wrap
msgid ""
"(setq x1 (list 'a 'b 'c))\n"
"     @result{} (a b c)\n"
"(setcdr x1 (cdr (cdr x1)))\n"
"     @result{} (c)\n"
"x1\n"
"     @result{} (a c)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1069
msgid "Here is the result in box notation:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1079
#, no-wrap
msgid ""
"                   --------------------\n"
"                  |                    |\n"
" --------------   |   --------------   |    --------------\n"
"| car   | cdr  |  |  | car   | cdr  |   -->| car   | cdr  |\n"
"|   a   |   o-----   |   b   |   o-------->|   c   |  nil |\n"
"|       |      |     |       |      |      |       |      |\n"
" --------------       --------------        --------------\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1086
msgid ""
"The second cons cell, which previously held the element @code{b}, still "
"exists and its @sc{car} is still @code{b}, but it no longer forms part of "
"this list."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1088
msgid "It is equally easy to insert a new element by changing @sc{cdr}s:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1097
#, no-wrap
msgid ""
"(setq x1 (list 'a 'b 'c))\n"
"     @result{} (a b c)\n"
"(setcdr x1 (cons 'd (cdr x1)))\n"
"     @result{} (d b c)\n"
"x1\n"
"     @result{} (a d b c)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1101
msgid "Here is this result in box notation:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1117
#, no-wrap
msgid ""
" --------------        -------------       -------------\n"
"| car  | cdr   |      | car  | cdr  |     | car  | cdr  |\n"
"|   a  |   o   |   -->|   b  |   o------->|   c  |  nil |\n"
"|      |   |   |  |   |      |      |     |      |      |\n"
" --------- | --   |    -------------       -------------\n"
"           |      |\n"
"     -----         --------\n"
"    |                      |\n"
"    |    ---------------   |\n"
"    |   | car   | cdr   |  |\n"
"     -->|   d   |   o------\n"
"        |       |       |\n"
"         ---------------\n"
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1121
#, no-wrap
msgid "Functions that Rearrange Lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1122
#, no-wrap
msgid "rearrangement of lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1123
#, no-wrap
msgid "reordering, of elements in lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1124
#, no-wrap
msgid "modification of lists"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1131
msgid ""
"Here are some functions that rearrange lists destructively by modifying the "
"@sc{cdr}s of their component cons cells.  These functions are destructive "
"because they chew up the original lists passed to them as arguments, "
"relinking their cons cells to form a new list that is the returned value."
msgstr ""

#. type: ifnottex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1135
msgid ""
"See @code{delq}, in @ref{Sets And Lists}, for another function that modifies "
"cons cells."
msgstr ""

#. type: iftex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1139
msgid ""
"The function @code{delq} in the following section is another example of "
"destructive list manipulation."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1141
#, no-wrap
msgid "nconc &rest lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1142
#, no-wrap
msgid "concatenating lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1143
#, no-wrap
msgid "joining lists"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1149
msgid ""
"This function returns a list containing all the elements of @var{lists}.  "
"Unlike @code{append} (@pxref{Building Lists}), the @var{lists} are "
"@emph{not} copied.  Instead, the last @sc{cdr} of each of the @var{lists} is "
"changed to refer to the following list.  The last of the @var{lists} is not "
"altered.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1158
#, no-wrap
msgid ""
"(nconc x '(4 5))\n"
"     @result{} (1 2 3 4 5)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1162
#, no-wrap
msgid ""
"x\n"
"     @result{} (1 2 3 4 5)\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1169
msgid ""
"Since the last argument of @code{nconc} is not itself modified, it is "
"reasonable to use a constant list, such as @code{'(4 5)}, as in the above "
"example.  For the same reason, the last argument need not be a list:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1178
#, no-wrap
msgid ""
"(nconc x 'z)\n"
"     @result{} (1 2 3 . z)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1182
#, no-wrap
msgid ""
"x\n"
"     @result{} (1 2 3 . z)\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1187
msgid "However, the other arguments (all but the last) should be mutable lists."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1193
msgid ""
"A common pitfall is to use a constant list as a non-last argument to "
"@code{nconc}.  If you do this, the resulting behavior is undefined "
"(@pxref{Self-Evaluating Forms}).  It is possible that your program will "
"change each time you run it! Here is what might happen (though this is not "
"guaranteed to happen):"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1198
#, no-wrap
msgid ""
"(defun add-foo (x)            ; @r{We want this function to add}\n"
"  (nconc '(foo) x))           ;   @r{@code{foo} to the front of its arg.}\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1203
#, no-wrap
msgid ""
"(symbol-function 'add-foo)\n"
"     @result{} (lambda (x) (nconc '(foo) x))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1208
#, no-wrap
msgid ""
"(setq xx (add-foo '(1 2)))    ; @r{It seems to work.}\n"
"     @result{} (foo 1 2)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1212
#, no-wrap
msgid ""
"(setq xy (add-foo '(3 4)))    ; @r{What happened?}\n"
"     @result{} (foo 1 2 3 4)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1216
#, no-wrap
msgid ""
"(eq xx xy)\n"
"     @result{} t\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1221
#, no-wrap
msgid ""
"(symbol-function 'add-foo)\n"
"     @result{} (lambda (x) (nconc '(foo 1 2 3 4) x))\n"
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1226
#, no-wrap
msgid "Using Lists as Sets"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1227
#, no-wrap
msgid "lists as sets"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1228
#, no-wrap
msgid "sets"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1237
msgid ""
"A list can represent an unordered mathematical set---simply consider a value "
"an element of a set if it appears in the list, and ignore the order of the "
"list.  To form the union of two sets, use @code{append} (as long as you "
"don't mind having duplicate elements).  You can remove @code{equal} "
"duplicates using @code{delete-dups} or @code{seq-uniq}.  Other useful "
"functions for sets include @code{memq} and @code{delq}, and their "
"@code{equal} versions, @code{member} and @code{delete}."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1238
#, no-wrap
msgid "CL note---lack @code{union}, @code{intersection}"
msgstr ""

#. type: quotation
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1244
msgid ""
"@b{Common Lisp note:} Common Lisp has functions @code{union} (which avoids "
"duplicate elements) and @code{intersection} for set operations.  In Emacs "
"Lisp, variants of these facilities are provided by the @file{cl-lib} "
"library.  @xref{Lists as Sets,,,cl,Common Lisp Extensions}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1246
#, no-wrap
msgid "memq object list"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1247
#, no-wrap
msgid "membership in a list"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1253
msgid ""
"This function tests to see whether @var{object} is a member of @var{list}.  "
"If it is, @code{memq} returns a list starting with the first occurrence of "
"@var{object}.  Otherwise, it returns @code{nil}.  The letter @samp{q} in "
"@code{memq} says that it uses @code{eq} to compare @var{object} against the "
"elements of the list.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1258
#, no-wrap
msgid ""
"(memq 'b '(a b c b a))\n"
"     @result{} (b c b a)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1262
#, no-wrap
msgid ""
"(memq '(2) '((1) (2)))    ; @r{The two @code{(2)}s need not be @code{eq}.}\n"
"     @result{} @r{Unspecified; might be @code{nil} or @code{((2))}.}\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1266
#, no-wrap
msgid "delq object list"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1267
#, no-wrap
msgid "deleting list elements"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1273
msgid ""
"This function destructively removes all elements @code{eq} to @var{object} "
"from @var{list}, and returns the resulting list.  The letter @samp{q} in "
"@code{delq} says that it uses @code{eq} to compare @var{object} against the "
"elements of the list, like @code{memq} and @code{remq}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1277
msgid ""
"Typically, when you invoke @code{delq}, you should use the return value by "
"assigning it to the variable which held the original list.  The reason for "
"this is explained below."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1282
msgid ""
"The @code{delq} function deletes elements from the front of the list by "
"simply advancing down the list, and returning a sublist that starts after "
"those elements.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1286
#, no-wrap
msgid "(delq 'a '(a b c)) @equiv{} (cdr '(a b c))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1292
msgid ""
"When an element to be deleted appears in the middle of the list, removing it "
"involves changing the @sc{cdr}s (@pxref{Setcdr})."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1297
#, no-wrap
msgid ""
"(setq sample-list (list 'a 'b 'c '(4)))\n"
"     @result{} (a b c (4))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1301
#, no-wrap
msgid ""
"(delq 'a sample-list)\n"
"     @result{} (b c (4))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1305
#, no-wrap
msgid ""
"sample-list\n"
"     @result{} (a b c (4))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1309
#, no-wrap
msgid ""
"(delq 'c sample-list)\n"
"     @result{} (a b (4))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1313
#, no-wrap
msgid ""
"sample-list\n"
"     @result{} (a b (4))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1323
msgid ""
"Note that @code{(delq 'c sample-list)} modifies @code{sample-list} to splice "
"out the third element, but @code{(delq 'a sample-list)} does not splice "
"anything---it just returns a shorter list.  Don't assume that a variable "
"which formerly held the argument @var{list} now has fewer elements, or that "
"it still holds the original list! Instead, save the result of @code{delq} "
"and use that.  Most often we store the result back into the variable that "
"held the original list:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1326
#, no-wrap
msgid "(setq flowers (delq 'rose flowers))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1330
msgid ""
"In the following example, the @code{(list 4)} that @code{delq} attempts to "
"match and the @code{(4)} in the @code{sample-list} are @code{equal} but not "
"@code{eq}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1335
#, no-wrap
msgid ""
"(delq (list 4) sample-list)\n"
"     @result{} (a c (4))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1340
msgid ""
"If you want to delete elements that are @code{equal} to a given value, use "
"@code{delete} (see below)."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1341
#, no-wrap
msgid "remq object list"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1346
msgid ""
"This function returns a copy of @var{list}, with all elements removed which "
"are @code{eq} to @var{object}.  The letter @samp{q} in @code{remq} says that "
"it uses @code{eq} to compare @var{object} against the elements of "
"@code{list}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1351
#, no-wrap
msgid ""
"(setq sample-list (list 'a 'b 'c 'a 'b 'c))\n"
"     @result{} (a b c a b c)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1355
#, no-wrap
msgid ""
"(remq 'a sample-list)\n"
"     @result{} (b c b c)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1359
#, no-wrap
msgid ""
"sample-list\n"
"     @result{} (a b c a b c)\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1363
#, no-wrap
msgid "memql object list"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1369
msgid ""
"The function @code{memql} tests to see whether @var{object} is a member of "
"@var{list}, comparing members with @var{object} using @code{eql}, so "
"floating-point elements are compared by value.  If @var{object} is a member, "
"@code{memql} returns a list starting with its first occurrence in "
"@var{list}.  Otherwise, it returns @code{nil}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1371
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1395
msgid "Compare this with @code{memq}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1376
#, no-wrap
msgid ""
"(memql 1.2 '(1.1 1.2 1.3))  ; @r{@code{1.2} and @code{1.2} are "
"@code{eql}.}\n"
"     @result{} (1.2 1.3)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1380
#, no-wrap
msgid ""
"(memq 1.2 '(1.1 1.2 1.3))  ; @r{The two @code{1.2}s need not be "
"@code{eq}.}\n"
"     @result{} @r{Unspecified; might be @code{nil} or @code{(1.2 1.3)}.}\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1387
msgid ""
"The following three functions are like @code{memq}, @code{delq} and "
"@code{remq}, but use @code{equal} rather than @code{eq} to compare "
"elements.  @xref{Equality Predicates}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1388
#, no-wrap
msgid "member object list"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1393
msgid ""
"The function @code{member} tests to see whether @var{object} is a member of "
"@var{list}, comparing members with @var{object} using @code{equal}.  If "
"@var{object} is a member, @code{member} returns a list starting with its "
"first occurrence in @var{list}.  Otherwise, it returns @code{nil}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1400
#, no-wrap
msgid ""
"(member '(2) '((1) (2)))  ; @r{@code{(2)} and @code{(2)} are "
"@code{equal}.}\n"
"     @result{} ((2))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1404
#, no-wrap
msgid ""
"(memq '(2) '((1) (2)))    ; @r{The two @code{(2)}s need not be @code{eq}.}\n"
"     @result{} @r{Unspecified; might be @code{nil} or @code{(2)}.}\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1409
#, no-wrap
msgid ""
";; @r{Two strings with the same contents are @code{equal}.}\n"
"(member \"foo\" '(\"foo\" \"bar\"))\n"
"     @result{} (\"foo\" \"bar\")\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1413
#, no-wrap
msgid "delete object sequence"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1416
msgid ""
"This function removes all elements @code{equal} to @var{object} from "
"@var{sequence}, and returns the resulting sequence."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1423
msgid ""
"If @var{sequence} is a list, @code{delete} is to @code{delq} as "
"@code{member} is to @code{memq}: it uses @code{equal} to compare elements "
"with @var{object}, like @code{member}; when it finds an element that "
"matches, it cuts the element out just as @code{delq} would.  As with "
"@code{delq}, you should typically use the return value by assigning it to "
"the variable which held the original list."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1427
msgid ""
"If @code{sequence} is a vector or string, @code{delete} returns a copy of "
"@code{sequence} with all elements @code{equal} to @code{object} removed."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1429
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1679
msgid "For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1439
#, no-wrap
msgid ""
"(setq l (list '(2) '(1) '(2)))\n"
"(delete '(2) l)\n"
"     @result{} ((1))\n"
"l\n"
"     @result{} ((2) (1))\n"
";; @r{If you want to change @code{l} reliably,}\n"
";; @r{write @code{(setq l (delete '(2) l))}.}\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1448
#, no-wrap
msgid ""
"(setq l (list '(2) '(1) '(2)))\n"
"(delete '(1) l)\n"
"     @result{} ((2) (2))\n"
"l\n"
"     @result{} ((2) (2))\n"
";; @r{In this case, it makes no difference whether you set @code{l},}\n"
";; @r{but you should do so for the sake of the other case.}\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1452
#, no-wrap
msgid ""
"(delete '(2) [(2) (1) (2)])\n"
"     @result{} [(1)]\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1456
#, no-wrap
msgid "remove object sequence"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1460
msgid ""
"This function is the non-destructive counterpart of @code{delete}.  It "
"returns a copy of @code{sequence}, a list, vector, or string, with elements "
"@code{equal} to @code{object} removed.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1465
#, no-wrap
msgid ""
"(remove '(2) '((2) (1) (2)))\n"
"     @result{} ((1))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1469
#, no-wrap
msgid ""
"(remove '(2) [(2) (1) (2)])\n"
"     @result{} [(1)]\n"
msgstr ""

#. type: quotation
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1478
msgid ""
"@b{Common Lisp note:} The functions @code{member}, @code{delete} and "
"@code{remove} in GNU Emacs Lisp are derived from Maclisp, not Common Lisp.  "
"The Common Lisp versions do not use @code{equal} to compare elements."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1480
#, no-wrap
msgid "member-ignore-case object list"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1486
msgid ""
"This function is like @code{member}, except that @var{object} should be a "
"string and that it ignores differences in letter-case and text "
"representation: upper-case and lower-case letters are treated as equal, and "
"unibyte strings are converted to multibyte prior to comparison."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1488
#, no-wrap
msgid "delete-dups list"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1494
msgid ""
"This function destructively removes all @code{equal} duplicates from "
"@var{list}, stores the result in @var{list} and returns it.  Of several "
"@code{equal} occurrences of an element in @var{list}, @code{delete-dups} "
"keeps the first one.  See @code{seq-uniq} for non-destructive operation "
"(@pxref{Sequence Functions})."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1499
msgid ""
"See also the function @code{add-to-list}, in @ref{List Variables}, for a way "
"to add an element to a list stored in a variable and used as a set."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1502
#, no-wrap
msgid "association list"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1503
#, no-wrap
msgid "alist"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1512
msgid ""
"An @dfn{association list}, or @dfn{alist} for short, records a mapping from "
"keys to values.  It is a list of cons cells called @dfn{associations}: the "
"@sc{car} of each cons cell is the @dfn{key}, and the @sc{cdr} is the "
"@dfn{associated value}.@footnote{This usage of ``key'' is not related to the "
"term ``key sequence''; it means a value used to look up an item in a table.  "
"In this case, the table is the alist, and the alist associations are the "
"items.}"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1516
msgid ""
"Here is an example of an alist.  The key @code{pine} is associated with the "
"value @code{cones}; the key @code{oak} is associated with @code{acorns}; and "
"the key @code{maple} is associated with @code{seeds}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1522
#, no-wrap
msgid ""
"((pine . cones)\n"
" (oak . acorns)\n"
" (maple . seeds))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1530
msgid ""
"Both the values and the keys in an alist may be any Lisp objects.  For "
"example, in the following alist, the symbol @code{a} is associated with the "
"number @code{1}, and the string @code{\"b\"} is associated with the "
"@emph{list} @code{(2 3)}, which is the @sc{cdr} of the alist element:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1533
#, no-wrap
msgid "((a . 1) (\"b\" 2 3))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1538
msgid ""
"Sometimes it is better to design an alist to store the associated value in "
"the @sc{car} of the @sc{cdr} of the element.  Here is an example of such an "
"alist:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1541
#, no-wrap
msgid "((rose red) (lily white) (buttercup yellow))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1551
msgid ""
"Here we regard @code{red} as the value associated with @code{rose}.  One "
"advantage of this kind of alist is that you can store other related "
"information---even a list of other items---in the @sc{cdr} of the @sc{cdr}.  "
"One disadvantage is that you cannot use @code{rassq} (see below) to find the "
"element containing a given value.  When neither of these considerations is "
"important, the choice is a matter of taste, as long as you are consistent "
"about it for any given alist."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1555
msgid ""
"The same alist shown above could be regarded as having the associated value "
"in the @sc{cdr} of the element; the value associated with @code{rose} would "
"be the list @code{(red)}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1561
msgid ""
"Association lists are often used to record information that you might "
"otherwise keep on a stack, since new associations may be added easily to the "
"front of the list.  When searching an association list for an association "
"with a given key, the first one found is returned, if there is more than "
"one."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1566
msgid ""
"In Emacs Lisp, it is @emph{not} an error if an element of an association "
"list is not a cons cell.  The alist search functions simply ignore such "
"elements.  Many other versions of Lisp signal errors in such cases."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1571
msgid ""
"Note that property lists are similar to association lists in several "
"respects.  A property list behaves like an association list in which each "
"key can occur only once.  @xref{Property Lists}, for a comparison of "
"property lists and association lists."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1572
#, no-wrap
msgid "assoc key alist &optional testfn"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1581
msgid ""
"This function returns the first association for @var{key} in @var{alist}, "
"comparing @var{key} against the alist elements using @var{testfn} if it is a "
"function, and @code{equal} otherwise (@pxref{Equality Predicates}).  If "
"@var{testfn} is a function, it is called with two arguments: the @sc{car} of "
"an element from @var{alist} and @var{key}.  The function returns @code{nil} "
"if no association in @var{alist} has a @sc{car} equal to @var{key}, as "
"tested by @var{testfn}.  For example:"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1591
#, no-wrap
msgid ""
"(setq trees '((pine . cones) (oak . acorns) (maple . seeds)))\n"
"     @result{} ((pine . cones) (oak . acorns) (maple . seeds))\n"
"(assoc 'oak trees)\n"
"     @result{} (oak . acorns)\n"
"(cdr (assoc 'oak trees))\n"
"     @result{} acorns\n"
"(assoc 'birch trees)\n"
"     @result{} nil\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1594
msgid "Here is another example, in which the keys and values are not symbols:"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1600
#, no-wrap
msgid ""
"(setq needles-per-cluster\n"
"      '((2 \"Austrian Pine\" \"Red Pine\")\n"
"        (3 \"Pitch Pine\")\n"
"        (5 \"White Pine\")))\n"
"\n"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1605
#, no-wrap
msgid ""
"(cdr (assoc 3 needles-per-cluster))\n"
"     @result{} (\"Pitch Pine\")\n"
"(cdr (assoc 2 needles-per-cluster))\n"
"     @result{} (\"Austrian Pine\" \"Red Pine\")\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1611
msgid ""
"The function @code{assoc-string} is much like @code{assoc} except that it "
"ignores certain differences between strings.  @xref{Text Comparison}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1612
#, no-wrap
msgid "rassoc value alist"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1616
msgid ""
"This function returns the first association with value @var{value} in "
"@var{alist}.  It returns @code{nil} if no association in @var{alist} has a "
"@sc{cdr} @code{equal} to @var{value}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1620
msgid ""
"@code{rassoc} is like @code{assoc} except that it compares the @sc{cdr} of "
"each @var{alist} association instead of the @sc{car}.  You can think of this "
"as reverse @code{assoc}, finding the key for a given value."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1622
#, no-wrap
msgid "assq key alist"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1630
msgid ""
"This function is like @code{assoc} in that it returns the first association "
"for @var{key} in @var{alist}, but it makes the comparison using @code{eq}.  "
"@code{assq} returns @code{nil} if no association in @var{alist} has a "
"@sc{car} @code{eq} to @var{key}.  This function is used more often than "
"@code{assoc}, since @code{eq} is faster than @code{equal} and most alists "
"use symbols as keys.  @xref{Equality Predicates}."
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1636
#, no-wrap
msgid ""
"(setq trees '((pine . cones) (oak . acorns) (maple . seeds)))\n"
"     @result{} ((pine . cones) (oak . acorns) (maple . seeds))\n"
"(assq 'pine trees)\n"
"     @result{} (pine . cones)\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1640
msgid ""
"On the other hand, @code{assq} is not usually useful in alists where the "
"keys may not be symbols:"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1645
#, no-wrap
msgid ""
"(setq leaves\n"
"      '((\"simple leaves\" . oak)\n"
"        (\"compound leaves\" . horsechestnut)))\n"
"\n"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1650
#, no-wrap
msgid ""
"(assq \"simple leaves\" leaves)\n"
"     @result{} @r{Unspecified; might be @code{nil} or @code{(\"simple "
"leaves\" . oak)}.}\n"
"(assoc \"simple leaves\" leaves)\n"
"     @result{} (\"simple leaves\" . oak)\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1653
#, no-wrap
msgid "alist-get key alist &optional default remove testfn"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1661
msgid ""
"This function is similar to @code{assq}.  It finds the first association "
"@w{@code{(@var{key} . @var{value})}} by comparing @var{key} with @var{alist} "
"elements, and, if found, returns the @var{value} of that association.  If no "
"association is found, the function returns @var{default}.  Comparison of "
"@var{key} against @var{alist} elements uses the function specified by "
"@var{testfn}, defaulting to @code{eq}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1667
msgid ""
"This is a generalized variable (@pxref{Generalized Variables})  that can be "
"used to change a value with @code{setf}.  When using it to set a value, "
"optional argument @var{remove} non-@code{nil} means to remove @var{key}'s "
"association from @var{alist} if the new value is @code{eql} to "
"@var{default}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1669
#, no-wrap
msgid "rassq value alist"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1673
msgid ""
"This function returns the first association with value @var{value} in "
"@var{alist}.  It returns @code{nil} if no association in @var{alist} has a "
"@sc{cdr} @code{eq} to @var{value}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1677
msgid ""
"@code{rassq} is like @code{assq} except that it compares the @sc{cdr} of "
"each @var{alist} association instead of the @sc{car}.  You can think of this "
"as reverse @code{assq}, finding the key for a given value."
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1682
#, no-wrap
msgid ""
"(setq trees '((pine . cones) (oak . acorns) (maple . seeds)))\n"
"\n"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1687
#, no-wrap
msgid ""
"(rassq 'acorns trees)\n"
"     @result{} (oak . acorns)\n"
"(rassq 'spores trees)\n"
"     @result{} nil\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1691
msgid ""
"@code{rassq} cannot search for a value stored in the @sc{car} of the "
"@sc{cdr} of an element:"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1694
#, no-wrap
msgid ""
"(setq colors '((rose red) (lily white) (buttercup yellow)))\n"
"\n"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1697
#, no-wrap
msgid ""
"(rassq 'white colors)\n"
"     @result{} nil\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1702
msgid ""
"In this case, the @sc{cdr} of the association @code{(lily white)} is not the "
"symbol @code{white}, but rather the list @code{(white)}.  This becomes "
"clearer if the association is written in dotted pair notation:"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1705
#, no-wrap
msgid "(lily white) @equiv{} (lily . (white))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1708
#, no-wrap
msgid "assoc-default key alist &optional test default"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1717
msgid ""
"This function searches @var{alist} for a match for @var{key}.  For each "
"element of @var{alist}, it compares the element (if it is an atom) or the "
"element's @sc{car} (if it is a cons) against @var{key}, by calling "
"@var{test} with two arguments: the element or its @sc{car}, and @var{key}.  "
"The arguments are passed in that order so that you can get useful results "
"using @code{string-match} with an alist that contains regular expressions "
"(@pxref{Regexp Search}).  If @var{test} is omitted or @code{nil}, "
"@code{equal} is used for comparison."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1722
msgid ""
"If an alist element matches @var{key} by this criterion, then "
"@code{assoc-default} returns a value based on this element.  If the element "
"is a cons, then the value is the element's @sc{cdr}.  Otherwise, the return "
"value is @var{default}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1725
msgid ""
"If no alist element matches @var{key}, @code{assoc-default} returns "
"@code{nil}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1727
#, no-wrap
msgid "copy-alist alist"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1728
#, no-wrap
msgid "copying alists"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1732
msgid ""
"This function returns a two-level deep copy of @var{alist}: it creates a new "
"copy of each association, so that you can alter the associations of the new "
"alist without changing the old one."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1738
#, no-wrap
msgid ""
"(setq needles-per-cluster\n"
"      '((2 . (\"Austrian Pine\" \"Red Pine\"))\n"
"        (3 . (\"Pitch Pine\"))\n"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1744
#, no-wrap
msgid ""
"        (5 . (\"White Pine\"))))\n"
"@result{}\n"
"((2 \"Austrian Pine\" \"Red Pine\")\n"
" (3 \"Pitch Pine\")\n"
" (5 \"White Pine\"))\n"
"\n"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1750
#, no-wrap
msgid ""
"(setq copy (copy-alist needles-per-cluster))\n"
"@result{}\n"
"((2 \"Austrian Pine\" \"Red Pine\")\n"
" (3 \"Pitch Pine\")\n"
" (5 \"White Pine\"))\n"
"\n"
msgstr ""

#. type: smallexample
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1759
#, no-wrap
msgid ""
"(eq needles-per-cluster copy)\n"
"     @result{} nil\n"
"(equal needles-per-cluster copy)\n"
"     @result{} t\n"
"(eq (car needles-per-cluster) (car copy))\n"
"     @result{} nil\n"
"(cdr (car (cdr needles-per-cluster)))\n"
"     @result{} (\"Pitch Pine\")\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1763
#, no-wrap
msgid ""
"(eq (cdr (car (cdr needles-per-cluster)))\n"
"    (cdr (car (cdr copy))))\n"
"     @result{} t\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1768
msgid ""
"This example shows how @code{copy-alist} makes it possible to change the "
"associations of one copy without affecting the other:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1774
#, no-wrap
msgid ""
"(setcdr (assq 3 copy) '(\"Martian Vacuum Pine\"))\n"
"(cdr (assq 3 needles-per-cluster))\n"
"     @result{} (\"Pitch Pine\")\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1778
#, no-wrap
msgid "assq-delete-all key alist"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1785
msgid ""
"This function deletes from @var{alist} all the elements whose @sc{car} is "
"@code{eq} to @var{key}, much as if you used @code{delq} to delete each such "
"element one by one.  It returns the shortened alist, and often modifies the "
"original list structure of @var{alist}.  For correct results, use the return "
"value of @code{assq-delete-all} rather than looking at the saved value of "
"@var{alist}."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1793
#, no-wrap
msgid ""
"(setq alist (list '(foo 1) '(bar 2) '(foo 3) '(lose 4)))\n"
"     @result{} ((foo 1) (bar 2) (foo 3) (lose 4))\n"
"(assq-delete-all 'foo alist)\n"
"     @result{} ((bar 2) (lose 4))\n"
"alist\n"
"     @result{} ((foo 1) (bar 2) (lose 4))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1796
#, no-wrap
msgid "assoc-delete-all key alist &optional test"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1802
msgid ""
"This function is like @code{assq-delete-all} except that it accepts an "
"optional argument @var{test}, a predicate function to compare the keys in "
"@var{alist}.  If omitted or @code{nil}, @var{test} defaults to "
"@code{equal}.  As @code{assq-delete-all}, this function often modifies the "
"original list structure of @var{alist}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1804
#, no-wrap
msgid "rassq-delete-all value alist"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1811
msgid ""
"This function deletes from @var{alist} all the elements whose @sc{cdr} is "
"@code{eq} to @var{value}.  It returns the shortened alist, and often "
"modifies the original list structure of @var{alist}.  "
"@code{rassq-delete-all} is like @code{assq-delete-all} except that it "
"compares the @sc{cdr} of each @var{alist} association instead of the "
"@sc{car}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1813
#, no-wrap
msgid "let-alist alist body"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1818
msgid ""
"Creates a binding for each symbol used as keys the association list "
"@var{alist}, prefixed with dot.  This can be useful when accessing several "
"items in the same association list, and it's best understood through a "
"simple example:"
msgstr ""

#. type: lisp
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1825
#, no-wrap
msgid ""
"(setq colors '((rose . red) (lily . white) (buttercup . yellow)))\n"
"(let-alist colors\n"
"  (if (eq .rose 'red)\n"
"      .lily))\n"
"     @result{} white\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1832
msgid ""
"The @var{body} is inspected at compilation time, and only the symbols that "
"appear in @var{body} with a @samp{.} as the first character in the symbol "
"name will be bound.  Finding the keys is done with @code{assq}, and the "
"@code{cdr} of the return value of this @code{assq} is assigned as the value "
"for the binding."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1834
msgid "Nested association lists is supported:"
msgstr ""

#. type: lisp
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1841
#, no-wrap
msgid ""
"(setq colors '((rose . red) (lily (belladonna . yellow) (brindisi "
". pink))))\n"
"(let-alist colors\n"
"  (if (eq .rose 'red)\n"
"      .lily.belladonna))\n"
"     @result{} yellow\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1846
msgid ""
"Nesting @code{let-alist} inside each other is allowed, but the code in the "
"inner @code{let-alist} can't access the variables bound by the outer "
"@code{let-alist}."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1850
#, no-wrap
msgid "property list"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1851
#, no-wrap
msgid "plist"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1857
msgid ""
"A @dfn{property list} (@dfn{plist} for short) is a list of paired elements.  "
"Each of the pairs associates a property name (usually a symbol) with a "
"property or value.  Here is an example of a property list:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1860
#, no-wrap
msgid "(pine cones numbers (1 2 3) color \"blue\")\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1867
msgid ""
"This property list associates @code{pine} with @code{cones}, @code{numbers} "
"with @code{(1 2 3)}, and @code{color} with @code{\"blue\"}.  The property "
"names and values can be any Lisp objects, but the names are usually symbols "
"(as they are in this example)."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1873
msgid ""
"Property lists are used in several contexts.  For instance, the function "
"@code{put-text-property} takes an argument which is a property list, "
"specifying text properties and associated values which are to be applied to "
"text in a string or buffer.  @xref{Text Properties}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1878
msgid ""
"Another prominent use of property lists is for storing symbol properties.  "
"Every symbol possesses a list of properties, used to record miscellaneous "
"information about the symbol; these properties are stored in the form of a "
"property list.  @xref{Symbol Properties}."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1883
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1885
#, no-wrap
msgid "Plists and Alists"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1883
msgid "Comparison of the advantages of property lists and association lists."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1883
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1920
#, no-wrap
msgid "Plist Access"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1883
msgid "Accessing property lists stored elsewhere."
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1886
#, no-wrap
msgid "Property Lists and Association Lists"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1887
#, no-wrap
msgid "plist vs. alist"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1888
#, no-wrap
msgid "alist vs. plist"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1890
#, no-wrap
msgid "property lists vs association lists"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1895
msgid ""
"Association lists (@pxref{Association Lists}) are very similar to property "
"lists.  In contrast to association lists, the order of the pairs in the "
"property list is not significant, since the property names must be distinct."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1908
msgid ""
"Property lists are better than association lists for attaching information "
"to various Lisp function names or variables.  If your program keeps all such "
"information in one association list, it will typically need to search that "
"entire list each time it checks for an association for a particular Lisp "
"function name or variable, which could be slow.  By contrast, if you keep "
"the same information in the property lists of the function names or "
"variables themselves, each search will scan only the length of one property "
"list, which is usually short.  This is why the documentation for a variable "
"is recorded in a property named @code{variable-documentation}.  The byte "
"compiler likewise uses properties to record those functions needing special "
"treatment."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1919
msgid ""
"However, association lists have their own advantages.  Depending on your "
"application, it may be faster to add an association to the front of an "
"association list than to update a property.  All properties for a symbol are "
"stored in the same property list, so there is a possibility of a conflict "
"between different uses of a property name.  (For this reason, it is a good "
"idea to choose property names that are probably unique, such as by beginning "
"the property name with the program's usual name-prefix for variables and "
"functions.)  An association list may be used like a stack where associations "
"are pushed on the front of the list and later discarded; this is not "
"possible with a property list."
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1921
#, no-wrap
msgid "Property Lists Outside Symbols"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1922
#, no-wrap
msgid "plist access"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1923
#, no-wrap
msgid "accessing plist properties"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1927
msgid ""
"The following functions can be used to manipulate property lists.  They all "
"compare property names using @code{eq}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1928
#, no-wrap
msgid "plist-get plist property"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1933
msgid ""
"This returns the value of the @var{property} property stored in the property "
"list @var{plist}.  It accepts a malformed @var{plist} argument.  If "
"@var{property} is not found in the @var{plist}, it returns @code{nil}.  For "
"example,"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1943
#, no-wrap
msgid ""
"(plist-get '(foo 4) 'foo)\n"
"     @result{} 4\n"
"(plist-get '(foo 4 bad) 'foo)\n"
"     @result{} 4\n"
"(plist-get '(foo 4 bad) 'bad)\n"
"     @result{} nil\n"
"(plist-get '(foo 4 bad) 'bar)\n"
"     @result{} nil\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1946
#, no-wrap
msgid "plist-put plist property value"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1952
msgid ""
"This stores @var{value} as the value of the @var{property} property in the "
"property list @var{plist}.  It may modify @var{plist} destructively, or it "
"may construct a new list structure without altering the old.  The function "
"returns the modified property list, so you can store that back in the place "
"where you got @var{plist}.  For example,"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1960
#, no-wrap
msgid ""
"(setq my-plist (list 'bar t 'foo 4))\n"
"     @result{} (bar t foo 4)\n"
"(setq my-plist (plist-put my-plist 'foo 69))\n"
"     @result{} (bar t foo 69)\n"
"(setq my-plist (plist-put my-plist 'quux '(a)))\n"
"     @result{} (bar t foo 69 quux (a))\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1963
#, no-wrap
msgid "lax-plist-get plist property"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1966
msgid ""
"Like @code{plist-get} except that it compares properties using @code{equal} "
"instead of @code{eq}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1968
#, no-wrap
msgid "lax-plist-put plist property value"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1971
msgid ""
"Like @code{plist-put} except that it compares properties using @code{equal} "
"instead of @code{eq}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1973
#, no-wrap
msgid "plist-member plist property"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/lists.texi:1979
msgid ""
"This returns non-@code{nil} if @var{plist} contains the given "
"@var{property}.  Unlike @code{plist-get}, this allows you to distinguish "
"between a missing property and a property with the value @code{nil}.  The "
"value is actually the tail of @var{plist} whose @code{car} is "
"@var{property}."
msgstr ""