documentation_emacs_test/source/lispref/control.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/control.texi:6
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:7
#, no-wrap
msgid "Control Structures"
msgstr ""

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

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:9
#, no-wrap
msgid "forms for control structures"
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:17
msgid ""
"A Lisp program consists of a set of @dfn{expressions}, or @dfn{forms} "
"(@pxref{Forms}).  We control the order of execution of these forms by "
"enclosing them in @dfn{control structures}.  Control structures are special "
"forms which control when, whether, or how many times to execute the forms "
"they contain."
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:27
msgid ""
"The simplest order of execution is sequential execution: first form @var{a}, "
"then form @var{b}, and so on.  This is what happens when you write several "
"forms in succession in the body of a function, or at top level in a file of "
"Lisp code---the forms are executed in the order written.  We call this "
"@dfn{textual order}.  For example, if a function body consists of two forms "
"@var{a} and @var{b}, evaluation of the function evaluates first @var{a} and "
"then @var{b}.  The result of evaluating @var{b} becomes the value of the "
"function."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:30
msgid ""
"Explicit control structures make possible an order of execution other than "
"sequential."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:37
msgid ""
"Emacs Lisp provides several kinds of control structure, including other "
"varieties of sequencing, conditionals, iteration, and (controlled)  "
"jumps---all discussed below.  The built-in control structures are special "
"forms since their subforms are not necessarily evaluated or not evaluated "
"sequentially.  You can use macros to define your own control structure "
"constructs (@pxref{Macros})."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:48
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:49
#, no-wrap
msgid "Sequencing"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
msgid "Evaluation in textual order."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:148
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:149
#, no-wrap
msgid "Conditionals"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
msgid "@code{if}, @code{cond}, @code{when}, @code{unless}."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:297
#, no-wrap
msgid "Combining Conditions"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
msgid "@code{and}, @code{or}, @code{not}, and friends."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:431
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:432
#, no-wrap
msgid "Pattern-Matching Conditional"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
msgid "How to use @code{pcase} and friends."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1329
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1330
#, no-wrap
msgid "Iteration"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
msgid "@code{while} loops."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1421
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1422
#, no-wrap
msgid "Generators"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
msgid "Generic sequences and coroutines."
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1539
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1540
#, no-wrap
msgid "Nonlocal Exits"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:46
msgid "Jumping out of a sequence."
msgstr ""

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

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

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:52
#, no-wrap
msgid "forms for sequential execution"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:59
msgid ""
"Evaluating forms in the order they appear is the most common way control "
"passes from one form to another.  In some contexts, such as in a function "
"body, this happens automatically.  Elsewhere you must use a control "
"structure construct to do this: @code{progn}, the simplest control construct "
"of Lisp."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:61
msgid "A @code{progn} special form looks like this:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:65
#, no-wrap
msgid "(progn @var{a} @var{b} @var{c} @dots{})\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:73
msgid ""
"and it says to execute the forms @var{a}, @var{b}, @var{c}, and so on, in "
"that order.  These forms are called the @dfn{body} of the @code{progn} "
"form.  The value of the last form in the body becomes the value of the "
"entire @code{progn}.  @code{(progn)} returns @code{nil}."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:74
#, no-wrap
msgid "implicit @code{progn}"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:85
msgid ""
"In the early days of Lisp, @code{progn} was the only way to execute two or "
"more forms in succession and use the value of the last of them.  But "
"programmers found they often needed to use a @code{progn} in the body of a "
"function, where (at that time) only one form was allowed.  So the body of a "
"function was made into an implicit @code{progn}: several forms are allowed "
"just as in the body of an actual @code{progn}.  Many other control "
"structures likewise contain an implicit @code{progn}.  As a result, "
"@code{progn} is not used as much as it was many years ago.  It is needed now "
"most often inside an @code{unwind-protect}, @code{and}, @code{or}, or in the "
"@var{then}-part of an @code{if}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:86
#, no-wrap
msgid "progn forms@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:89
msgid ""
"This special form evaluates all of the @var{forms}, in textual order, "
"returning the result of the final form."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:99
#, no-wrap
msgid ""
"(progn (print \"The first form\")\n"
"       (print \"The second form\")\n"
"       (print \"The third form\"))\n"
"     @print{} \"The first form\"\n"
"     @print{} \"The second form\"\n"
"     @print{} \"The third form\"\n"
"@result{} \"The third form\"\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:105
msgid ""
"Two other constructs likewise evaluate a series of forms but return "
"different values:"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:106
#, no-wrap
msgid "prog1 form1 forms@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:109
msgid ""
"This special form evaluates @var{form1} and all of the @var{forms}, in "
"textual order, returning the result of @var{form1}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:119
#, no-wrap
msgid ""
"(prog1 (print \"The first form\")\n"
"       (print \"The second form\")\n"
"       (print \"The third form\"))\n"
"     @print{} \"The first form\"\n"
"     @print{} \"The second form\"\n"
"     @print{} \"The third form\"\n"
"@result{} \"The first form\"\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:124
msgid ""
"Here is a way to remove the first element from a list in the variable "
"@code{x}, then return the value of that former element:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:127
#, no-wrap
msgid "(prog1 (car x) (setq x (cdr x)))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:130
#, no-wrap
msgid "prog2 form1 form2 forms@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:134
msgid ""
"This special form evaluates @var{form1}, @var{form2}, and all of the "
"following @var{forms}, in textual order, returning the result of "
"@var{form2}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:144
#, no-wrap
msgid ""
"(prog2 (print \"The first form\")\n"
"       (print \"The second form\")\n"
"       (print \"The third form\"))\n"
"     @print{} \"The first form\"\n"
"     @print{} \"The second form\"\n"
"     @print{} \"The third form\"\n"
"@result{} \"The second form\"\n"
msgstr ""

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

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:159
msgid ""
"Conditional control structures choose among alternatives.  Emacs Lisp has "
"five conditional forms: @code{if}, which is much the same as in other "
"languages; @code{when} and @code{unless}, which are variants of @code{if}; "
"@code{cond}, which is a generalized case statement; and @code{pcase}, which "
"is a generalization of @code{cond} (@pxref{Pattern-Matching Conditional})."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:160
#, no-wrap
msgid "if condition then-form else-forms@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:167
msgid ""
"@code{if} chooses between the @var{then-form} and the @var{else-forms} based "
"on the value of @var{condition}.  If the evaluated @var{condition} is "
"non-@code{nil}, @var{then-form} is evaluated and the result returned.  "
"Otherwise, the @var{else-forms} are evaluated in textual order, and the "
"value of the last one is returned.  (The @var{else} part of @code{if} is an "
"example of an implicit @code{progn}.  @xref{Sequencing}.)"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:170
msgid ""
"If @var{condition} has the value @code{nil}, and no @var{else-forms} are "
"given, @code{if} returns @code{nil}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:174
msgid ""
"@code{if} is a special form because the branch that is not selected is never "
"evaluated---it is ignored.  Thus, in this example, @code{true} is not "
"printed because @code{print} is never called:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:181
#, no-wrap
msgid ""
"(if nil\n"
"    (print 'true)\n"
"  'very-false)\n"
"@result{} very-false\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:185
#, no-wrap
msgid "when condition then-forms@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:188
msgid ""
"This is a variant of @code{if} where there are no @var{else-forms}, and "
"possibly several @var{then-forms}.  In particular,"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:191
#, no-wrap
msgid "(when @var{condition} @var{a} @var{b} @var{c})\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:195
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:210
msgid "is entirely equivalent to"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:198
#, no-wrap
msgid "(if @var{condition} (progn @var{a} @var{b} @var{c}) nil)\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:201
#, no-wrap
msgid "unless condition forms@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:203
msgid "This is a variant of @code{if} where there is no @var{then-form}:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:206
#, no-wrap
msgid "(unless @var{condition} @var{a} @var{b} @var{c})\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:214
#, no-wrap
msgid ""
"(if @var{condition} nil\n"
"   @var{a} @var{b} @var{c})\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:217
#, no-wrap
msgid "cond clause@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:222
msgid ""
"@code{cond} chooses among an arbitrary number of alternatives.  Each "
"@var{clause} in the @code{cond} must be a list.  The @sc{car} of this list "
"is the @var{condition}; the remaining elements, if any, the "
"@var{body-forms}.  Thus, a clause looks like this:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:225
#, no-wrap
msgid "(@var{condition} @var{body-forms}@dots{})\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:232
msgid ""
"@code{cond} tries the clauses in textual order, by evaluating the "
"@var{condition} of each clause.  If the value of @var{condition} is "
"non-@code{nil}, the clause succeeds; then @code{cond} evaluates its "
"@var{body-forms}, and returns the value of the last of @var{body-forms}.  "
"Any remaining clauses are ignored."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:235
msgid ""
"If the value of @var{condition} is @code{nil}, the clause fails, so the "
"@code{cond} moves on to the following clause, trying its @var{condition}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:237
msgid "A clause may also look like this:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:240
#, no-wrap
msgid "(@var{condition})\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:245
msgid ""
"Then, if @var{condition} is non-@code{nil} when tested, the @code{cond} form "
"returns the value of @var{condition}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:248
msgid ""
"If every @var{condition} evaluates to @code{nil}, so that every clause "
"fails, @code{cond} returns @code{nil}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:252
msgid ""
"The following example has four clauses, which test for the cases where the "
"value of @code{x} is a number, string, buffer and symbol, respectively:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:261
#, no-wrap
msgid ""
"(cond ((numberp x) x)\n"
"      ((stringp x) x)\n"
"      ((bufferp x)\n"
"       (setq temporary-hack x) ; @r{multiple body-forms}\n"
"       (buffer-name x))        ; @r{in one clause}\n"
"      ((symbolp x) (symbol-value x)))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:270
msgid ""
"Often we want to execute the last clause whenever none of the previous "
"clauses was successful.  To do this, we use @code{t} as the @var{condition} "
"of the last clause, like this: @code{(t @var{body-forms})}.  The form "
"@code{t} evaluates to @code{t}, which is never @code{nil}, so this clause "
"never fails, provided the @code{cond} gets to it at all.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:277
#, no-wrap
msgid ""
"(setq a 5)\n"
"(cond ((eq a 'hack) 'foo)\n"
"      (t \"default\"))\n"
"@result{} \"default\"\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:283
msgid ""
"This @code{cond} expression returns @code{foo} if the value of @code{a} is "
"@code{hack}, and returns the string @code{\"default\"} otherwise."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:288
msgid ""
"Any conditional construct can be expressed with @code{cond} or with "
"@code{if}.  Therefore, the choice between them is a matter of style.  For "
"example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:294
#, no-wrap
msgid ""
"(if @var{a} @var{b} @var{c})\n"
"@equiv{}\n"
"(cond (@var{a} @var{b}) (t @var{c}))\n"
msgstr ""

#. type: section
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:298
#, no-wrap
msgid "Constructs for Combining Conditions"
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:305
msgid ""
"This section describes constructs that are often used together with "
"@code{if} and @code{cond} to express complicated conditions.  The constructs "
"@code{and} and @code{or} can also be used individually as kinds of multiple "
"conditional constructs."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:306
#, no-wrap
msgid "not condition"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:311
msgid ""
"This function tests for the falsehood of @var{condition}.  It returns "
"@code{t} if @var{condition} is @code{nil}, and @code{nil} otherwise.  The "
"function @code{not} is identical to @code{null}, and we recommend using the "
"name @code{null} if you are testing for an empty list."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:313
#, no-wrap
msgid "and conditions@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:317
msgid ""
"The @code{and} special form tests whether all the @var{conditions} are "
"true.  It works by evaluating the @var{conditions} one by one in the order "
"written."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:322
msgid ""
"If any of the @var{conditions} evaluates to @code{nil}, then the result of "
"the @code{and} must be @code{nil} regardless of the remaining "
"@var{conditions}; so @code{and} returns @code{nil} right away, ignoring the "
"remaining @var{conditions}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:328
msgid ""
"If all the @var{conditions} turn out non-@code{nil}, then the value of the "
"last of them becomes the value of the @code{and} form.  Just @code{(and)}, "
"with no @var{conditions}, returns @code{t}, appropriate because all the "
"@var{conditions} turned out non-@code{nil}.  (Think about it; which one did "
"not?)"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:333
msgid ""
"Here is an example.  The first condition returns the integer 1, which is not "
"@code{nil}.  Similarly, the second condition returns the integer 2, which is "
"not @code{nil}.  The third condition is @code{nil}, so the remaining "
"condition is never evaluated."
msgstr ""

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

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:344
msgid "Here is a more realistic example of using @code{and}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:349
#, no-wrap
msgid ""
"(if (and (consp foo) (eq (car foo) 'x))\n"
"    (message \"foo is a list starting with x\"))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:355
msgid ""
"Note that @code{(car foo)} is not executed if @code{(consp foo)} returns "
"@code{nil}, thus avoiding an error."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:358
msgid ""
"@code{and} expressions can also be written using either @code{if} or "
"@code{cond}.  Here's how:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:366
#, no-wrap
msgid ""
"(and @var{arg1} @var{arg2} @var{arg3})\n"
"@equiv{}\n"
"(if @var{arg1} (if @var{arg2} @var{arg3}))\n"
"@equiv{}\n"
"(cond (@var{arg1} (cond (@var{arg2} @var{arg3}))))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:370
#, no-wrap
msgid "or conditions@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:374
msgid ""
"The @code{or} special form tests whether at least one of the "
"@var{conditions} is true.  It works by evaluating all the @var{conditions} "
"one by one in the order written."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:379
msgid ""
"If any of the @var{conditions} evaluates to a non-@code{nil} value, then the "
"result of the @code{or} must be non-@code{nil}; so @code{or} returns right "
"away, ignoring the remaining @var{conditions}.  The value it returns is the "
"non-@code{nil} value of the condition just evaluated."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:385
msgid ""
"If all the @var{conditions} turn out @code{nil}, then the @code{or} "
"expression returns @code{nil}.  Just @code{(or)}, with no @var{conditions}, "
"returns @code{nil}, appropriate because all the @var{conditions} turned out "
"@code{nil}.  (Think about it; which one did not?)"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:388
msgid ""
"For example, this expression tests whether @code{x} is either @code{nil} or "
"the integer zero:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:391
#, no-wrap
msgid "(or (eq x nil) (eq x 0))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:395
msgid ""
"Like the @code{and} construct, @code{or} can be written in terms of "
"@code{cond}.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:403
#, no-wrap
msgid ""
"(or @var{arg1} @var{arg2} @var{arg3})\n"
"@equiv{}\n"
"(cond (@var{arg1})\n"
"      (@var{arg2})\n"
"      (@var{arg3}))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:407
msgid "You could almost write @code{or} in terms of @code{if}, but not quite:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:413
#, no-wrap
msgid ""
"(if @var{arg1} @var{arg1}\n"
"  (if @var{arg2} @var{arg2}\n"
"    @var{arg3}))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:420
msgid ""
"This is not completely equivalent because it can evaluate @var{arg1} or "
"@var{arg2} twice.  By contrast, @code{(or @var{arg1} @var{arg2} @var{arg3})} "
"never evaluates any argument more than once."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:422
#, no-wrap
msgid "xor condition1 condition2"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:427
msgid ""
"This function returns the boolean exclusive-or of @var{condition1} and "
"@var{condition2}.  That is, @code{xor} returns @code{nil} if either both "
"arguments are @code{nil}, or both are non-@code{nil}.  Otherwise, it returns "
"the value of that argument which is non-@code{nil}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:429
msgid "Note that in contrast to @code{or}, both arguments are always evaluated."
msgstr ""

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

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:434
#, no-wrap
msgid "pattern matching, programming style"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:443
msgid ""
"Aside from the four basic conditional forms, Emacs Lisp also has a "
"pattern-matching conditional form, the @code{pcase} macro, a hybrid of "
"@code{cond} and @code{cl-case} (@pxref{Conditionals,,,cl,Common Lisp "
"Extensions})  that overcomes their limitations and introduces the "
"@dfn{pattern matching programming style}.  The limitations that @code{pcase} "
"overcomes are:"
msgstr ""

#. type: itemize
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:451
msgid ""
"The @code{cond} form chooses among alternatives by evaluating the predicate "
"@var{condition} of each of its clauses (@pxref{Conditionals}).  The primary "
"limitation is that variables let-bound in @var{condition} are not available "
"to the clause's @var{body-forms}."
msgstr ""

#. type: itemize
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:456
msgid ""
"Another annoyance (more an inconvenience than a limitation)  is that when a "
"series of @var{condition} predicates implement equality tests, there is a "
"lot of repeated code.  (@code{cl-case} solves this inconvenience.)"
msgstr ""

#. type: itemize
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:461
msgid ""
"The @code{cl-case} macro chooses among alternatives by evaluating the "
"equality of its first argument against a set of specific values."
msgstr ""

#. type: itemize
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:463
msgid "Its limitations are two-fold:"
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:467
msgid "The equality tests use @code{eql}."
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:469
msgid "The values must be known and written in advance."
msgstr ""

#. type: itemize
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:475
msgid ""
"These render @code{cl-case} unsuitable for strings or compound data "
"structures (e.g., lists or vectors).  (@code{cond} doesn't have these "
"limitations, but it has others, see above.)"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:485
msgid ""
"Conceptually, the @code{pcase} macro borrows the first-arg focus of "
"@code{cl-case} and the clause-processing flow of @code{cond}, replacing "
"@var{condition} with a generalization of the equality test which is a "
"variant of @dfn{pattern matching}, and adding facilities so that you can "
"concisely express a clause's predicate, and arrange to share let-bindings "
"between a clause's predicate and @var{body-forms}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:490
msgid ""
"The concise expression of a predicate is known as a @dfn{pattern}.  When the "
"predicate, called on the value of the first arg, returns non-@code{nil}, we "
"say that ``the pattern matches the value'' (or sometimes ``the value matches "
"the pattern'')."
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
msgid "The @code{pcase} macro: pcase Macro"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
msgid "Includes examples and caveats."
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
msgid "Extending @code{pcase}: Extending pcase"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
msgid "Define new kinds of patterns."
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
msgid "Backquote-Style Patterns: Backquote Patterns"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
msgid "Structural patterns matching."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1217
#, no-wrap
msgid "Destructuring with pcase Patterns"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:496
msgid "Using pcase patterns to extract subfields."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:498
#, no-wrap
msgid "pcase Macro"
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:499
#, no-wrap
msgid "The @code{pcase} macro"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:502
msgid "For background, @xref{Pattern-Matching Conditional}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:503
#, no-wrap
msgid "pcase expression &rest clauses"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:506
msgid ""
"Each clause in @var{clauses} has the form: @w{@code{(@var{pattern} "
"@var{body-forms}@dots{})}}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:510
msgid ""
"Evaluate @var{expression} to determine its value, @var{expval}.  Find the "
"first clause in @var{clauses} whose @var{pattern} matches @var{expval} and "
"pass control to that clause's @var{body-forms}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:514
msgid ""
"If there is a match, the value of @code{pcase} is the value of the last of "
"@var{body-forms} in the successful clause.  Otherwise, @code{pcase} "
"evaluates to @code{nil}."
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:520
msgid ""
"Each @var{pattern} has to be a @dfn{pcase pattern}, which can use either one "
"of the core patterns defined below, or one of the patterns defined via "
"@code{pcase-defmacro} (@pxref{Extending pcase})."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:525
msgid ""
"The rest of this subsection describes different forms of core patterns, "
"presents some examples, and concludes with important caveats on using the "
"let-binding facility provided by some pattern forms.  A core pattern can "
"have the following forms:"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:528
#, no-wrap
msgid "_"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:531
msgid ""
"Matches any @var{expval}.  This is also known as @dfn{don't care} or "
"@dfn{wildcard}."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:532
#, no-wrap
msgid "'@var{val}"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:535
msgid ""
"Matches if @var{expval} equals @var{val}.  The comparison is done as if by "
"@code{equal} (@pxref{Equality Predicates})."
msgstr ""

#. type: var{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:536
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1140
#, no-wrap
msgid "keyword"
msgstr ""

#. type: var{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:537
#, no-wrap
msgid "integer"
msgstr ""

#. type: var{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:538
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1142
#, no-wrap
msgid "string"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:542
msgid ""
"Matches if @var{expval} equals the literal object.  This is a special case "
"of @code{'@var{val}}, above, possible because literal objects of these types "
"are self-quoting."
msgstr ""

#. type: var{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:543
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1139
#, no-wrap
msgid "symbol"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:547
msgid ""
"Matches any @var{expval}, and additionally let-binds @var{symbol} to "
"@var{expval}, such that this binding is available to @var{body-forms} "
"(@pxref{Dynamic Binding})."
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:552
msgid ""
"If @var{symbol} is part of a sequencing pattern @var{seqpat} (e.g., by using "
"@code{and}, below), the binding is also available to the portion of "
"@var{seqpat} following the appearance of @var{symbol}.  This usage has some "
"caveats, see @ref{pcase-symbol-caveats,,caveats}."
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:557
msgid ""
"Two symbols to avoid are @code{t}, which behaves like @code{_} (above) and "
"is deprecated, and @code{nil}, which signals an error.  Likewise, it makes "
"no sense to bind keyword symbols (@pxref{Constant Variables})."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:558
#, no-wrap
msgid "(cl-type @var{type})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:562
msgid ""
"Matches if @var{expval} is of type @var{type}, which is a type descriptor as "
"accepted by @code{cl-typep} (@pxref{Type Predicates,,,cl,Common Lisp "
"Extensions}).  Examples:"
msgstr ""

#. type: lisp
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:566
#, no-wrap
msgid ""
"(cl-type integer)\n"
"(cl-type (integer 0 10))\n"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:568
#, no-wrap
msgid "(pred @var{function})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:573
msgid ""
"Matches if the predicate @var{function} returns non-@code{nil} when called "
"on @var{expval}.  The test can be negated with the syntax @code{(pred (not "
"@var{function}))}.  The predicate @var{function} can have one of the "
"following forms:"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:575
#, no-wrap
msgid "function name (a symbol)"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:577
msgid "Call the named function with one argument, @var{expval}."
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:579
msgid "Example: @code{integerp}"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:580
#, no-wrap
msgid "lambda expression"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:583
msgid ""
"Call the anonymous function with one argument, @var{expval} (@pxref{Lambda "
"Expressions})."
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:585
msgid "Example: @code{(lambda (n) (= 42 n))}"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:586
#, no-wrap
msgid "function call with @var{n} args"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:590
msgid ""
"Call the function (the first element of the function call)  with @var{n} "
"arguments (the other elements) and an additional @var{n}+1-th argument that "
"is @var{expval}."
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:594
msgid ""
"Example: @code{(= 42)}@* In this example, the function is @code{=}, @var{n} "
"is one, and the actual function call becomes: @w{@code{(= 42 "
"@var{expval})}}."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:596
#, no-wrap
msgid "(app @var{function} @var{pattern})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:602
msgid ""
"Matches if @var{function} called on @var{expval} returns a value that "
"matches @var{pattern}.  @var{function} can take one of the forms described "
"for @code{pred}, above.  Unlike @code{pred}, however, @code{app} tests the "
"result against @var{pattern}, rather than against a boolean truth value."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:603
#, no-wrap
msgid "(guard @var{boolean-expression})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:605
msgid "Matches if @var{boolean-expression} evaluates to non-@code{nil}."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:606
#, no-wrap
msgid "(let @var{pattern} @var{expr})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:610
msgid ""
"Evaluates @var{expr} to get @var{exprval} and matches if @var{exprval} "
"matches @var{pattern}.  (It is called @code{let} because @var{pattern} can "
"bind symbols to values using @var{symbol}.)"
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:619
msgid ""
"A @dfn{sequencing pattern} (also known as @var{seqpat}) is a pattern that "
"processes its sub-pattern arguments in sequence.  There are two for "
"@code{pcase}: @code{and} and @code{or}.  They behave in a similar manner to "
"the special forms that share their name (@pxref{Combining Conditions}), but "
"instead of processing values, they process sub-patterns."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:621
#, no-wrap
msgid "(and @var{pattern1}@dots{})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:626
msgid ""
"Attempts to match @var{pattern1}@dots{}, in order, until one of them fails "
"to match.  In that case, @code{and} likewise fails to match, and the rest of "
"the sub-patterns are not tested.  If all sub-patterns match, @code{and} "
"matches."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:627
#, no-wrap
msgid "(or @var{pattern1} @var{pattern2}@dots{})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:631
msgid ""
"Attempts to match @var{pattern1}, @var{pattern2}, @dots{}, in order, until "
"one of them succeeds.  In that case, @code{or} likewise matches, and the "
"rest of the sub-patterns are not tested."
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:637
msgid ""
"To present a consistent environment (@pxref{Intro Eval})  to "
"@var{body-forms} (thus avoiding an evaluation error on match), the set of "
"variables bound by the pattern is the union of the variables bound by each "
"sub-pattern.  If a variable is not bound by the sub-pattern that matched, "
"then it is bound to @code{nil}."
msgstr ""

#. type: anchor{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:640
msgid "rx in pcase"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:640
#, no-wrap
msgid "(rx @var{rx-expr}@dots{})"
msgstr ""

#. type: ifnottex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:644
msgid ""
"Matches strings against the regexp @var{rx-expr}@dots{}, using the @code{rx} "
"regexp notation (@pxref{Rx Notation}), as if by @code{string-match}."
msgstr ""

#. type: ifnottex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:647
msgid ""
"In addition to the usual @code{rx} syntax, @var{rx-expr}@dots{} can contain "
"the following constructs:"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:649
#, no-wrap
msgid "(let @var{ref} @var{rx-expr}@dots{})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:654
msgid ""
"Bind the symbol @var{ref} to a submatch that matches "
"@var{rx-expr}@enddots{}.  @var{ref} is bound in @var{body-forms} to the "
"string of the submatch or nil, but can also be used in @code{backref}."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:655
#, no-wrap
msgid "(backref @var{ref})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:659
msgid ""
"Like the standard @code{backref} construct, but @var{ref} can here also be a "
"name introduced by a previous @code{(let @var{ref} @dots{})} construct."
msgstr ""

#. type: anchor{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:665
msgid "pcase-example-0"
msgstr ""

#. type: subheading
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:665
#, no-wrap
msgid "Example: Advantage Over @code{cl-case}"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:670
msgid ""
"Here's an example that highlights some advantages @code{pcase} has over "
"@code{cl-case} (@pxref{Conditionals,,,cl,Common Lisp Extensions})."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:677
#, no-wrap
msgid ""
"(pcase (get-return-code x)\n"
"  ;; string\n"
"  ((and (pred stringp) msg)\n"
"   (message \"%s\" msg))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:684
#, no-wrap
msgid ""
"  ;; symbol\n"
"  ('success       (message \"Done!\"))\n"
"  ('would-block   (message \"Sorry, can't do it now\"))\n"
"  ('read-only     (message \"The shmliblick is read-only\"))\n"
"  ('access-denied (message \"You do not have the needed rights\"))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:688
#, no-wrap
msgid ""
"  ;; default\n"
"  (code           (message \"Unknown return code %S\" code)))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:696
msgid ""
"With @code{cl-case}, you would need to explicitly declare a local variable "
"@code{code} to hold the return value of @code{get-return-code}.  Also "
"@code{cl-case} is difficult to use with strings because it uses @code{eql} "
"for comparison."
msgstr ""

#. type: anchor{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:698
msgid "pcase-example-1"
msgstr ""

#. type: subheading
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:698
#, no-wrap
msgid "Example: Using @code{and}"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:704
msgid ""
"A common idiom is to write a pattern starting with @code{and}, with one or "
"more @var{symbol} sub-patterns providing bindings to the sub-patterns that "
"follow (as well as to the body forms).  For example, the following pattern "
"matches single-digit integers."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:711
#, no-wrap
msgid ""
"(and\n"
"  (pred integerp)\n"
"  n                     ; @r{bind @code{n} to @var{expval}}\n"
"  (guard (<= -9 n 9)))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:723
msgid ""
"First, @code{pred} matches if @w{@code{(integerp @var{expval})}} evaluates "
"to non-@code{nil}.  Next, @code{n} is a @var{symbol} pattern that matches "
"anything and binds @code{n} to @var{expval}.  Lastly, @code{guard} matches "
"if the boolean expression @w{@code{(<= -9 n 9)}} (note the reference to "
"@code{n})  evaluates to non-@code{nil}.  If all these sub-patterns match, "
"@code{and} matches."
msgstr ""

#. type: anchor{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:725
msgid "pcase-example-2"
msgstr ""

#. type: subheading
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:725
#, no-wrap
msgid "Example: Reformulation with @code{pcase}"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:735
msgid ""
"Here is another example that shows how to reformulate a simple matching task "
"from its traditional implementation (function @code{grok/traditional}) to "
"one using @code{pcase} (function @code{grok/pcase}).  The docstring for both "
"these functions is: ``If OBJ is a string of the form \"key:NUMBER\", return "
"NUMBER (a string).  Otherwise, return the list (\"149\" default).'' First, "
"the traditional implementation (@pxref{Regular Expressions}):"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:743
#, no-wrap
msgid ""
"(defun grok/traditional (obj)\n"
"  (if (and (stringp obj)\n"
"           (string-match \"^key:\\\\([[:digit:]]+\\\\)$\" obj))\n"
"      (match-string 1 obj)\n"
"    (list \"149\" 'default)))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:749
#, no-wrap
msgid ""
"(grok/traditional \"key:0\")   @result{} \"0\"\n"
"(grok/traditional \"key:149\") @result{} \"149\"\n"
"(grok/traditional 'monolith) @result{} (\"149\" default)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:755
msgid ""
"The reformulation demonstrates @var{symbol} binding as well as @code{or}, "
"@code{and}, @code{pred}, @code{app} and @code{let}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:769
#, no-wrap
msgid ""
"(defun grok/pcase (obj)\n"
"  (pcase obj\n"
"    ((or                                     ; @r{line 1}\n"
"      (and                                   ; @r{line 2}\n"
"       (pred stringp)                        ; @r{line 3}\n"
"       (pred (string-match                   ; @r{line 4}\n"
"              \"^key:\\\\([[:digit:]]+\\\\)$\"))   ; @r{line 5}\n"
"       (app (match-string 1)                 ; @r{line 6}\n"
"            val))                            ; @r{line 7}\n"
"      (let val (list \"149\" 'default)))       ; @r{line 8}\n"
"     val)))                                  ; @r{line 9}\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:775
#, no-wrap
msgid ""
"(grok/pcase \"key:0\")   @result{} \"0\"\n"
"(grok/pcase \"key:149\") @result{} \"149\"\n"
"(grok/pcase 'monolith) @result{} (\"149\" default)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:784
msgid ""
"The bulk of @code{grok/pcase} is a single clause of a @code{pcase} form, the "
"pattern on lines 1-8, the (single) body form on line 9.  The pattern is "
"@code{or}, which tries to match in turn its argument sub-patterns, first "
"@code{and} (lines 2-7), then @code{let} (line 8), until one of them "
"succeeds."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:790
msgid ""
"As in the previous example (@pxref{pcase-example-1,,Example 1}), @code{and} "
"begins with a @code{pred} sub-pattern to ensure the following sub-patterns "
"work with an object of the correct type (string, in this case).  If "
"@w{@code{(stringp @var{expval})}} returns @code{nil}, @code{pred} fails, and "
"thus @code{and} fails, too."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:796
msgid ""
"The next @code{pred} (lines 4-5) evaluates @w{@code{(string-match RX "
"@var{expval})}} and matches if the result is non-@code{nil}, which means "
"that @var{expval} has the desired form: @code{key:NUMBER}.  Again, failing "
"this, @code{pred} fails and @code{and}, too."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:803
msgid ""
"Lastly (in this series of @code{and} sub-patterns), @code{app} evaluates "
"@w{@code{(match-string 1 @var{expval})}} (line 6)  to get a temporary value "
"@var{tmp} (i.e., the ``NUMBER'' substring)  and tries to match @var{tmp} "
"against pattern @code{val} (line 7).  Since that is a @var{symbol} pattern, "
"it matches unconditionally and additionally binds @code{val} to @var{tmp}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:808
msgid ""
"Now that @code{app} has matched, all @code{and} sub-patterns have matched, "
"and so @code{and} matches.  Likewise, once @code{and} has matched, @code{or} "
"matches and does not proceed to try sub-pattern @code{let} (line 8)."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:814
msgid ""
"Let's consider the situation where @code{obj} is not a string, or it is a "
"string but has the wrong form.  In this case, one of the @code{pred} (lines "
"3-5) fails to match, thus @code{and} (line 2) fails to match, thus @code{or} "
"(line 1) proceeds to try sub-pattern @code{let} (line 8)."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:821
msgid ""
"First, @code{let} evaluates @w{@code{(list \"149\" 'default)}} to get "
"@w{@code{(\"149\" default)}}, the @var{exprval}, and then tries to match "
"@var{exprval} against pattern @code{val}.  Since that is a @var{symbol} "
"pattern, it matches unconditionally and additionally binds @code{val} to "
"@var{exprval}.  Now that @code{let} has matched, @code{or} matches."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:830
msgid ""
"Note how both @code{and} and @code{let} sub-patterns finish in the same way: "
"by trying (always successfully) to match against the @var{symbol} pattern "
"@code{val}, in the process binding @code{val}.  Thus, @code{or} always "
"matches and control always passes to the body form (line 9).  Because that "
"is the last body form in a successfully matched @code{pcase} clause, it is "
"the value of @code{pcase} and likewise the return value of @code{grok/pcase} "
"(@pxref{What Is a Function})."
msgstr ""

#. type: anchor{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:832
msgid "pcase-symbol-caveats"
msgstr ""

#. type: subheading
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:832
#, no-wrap
msgid "Caveats for @var{symbol} in Sequencing Patterns"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:838
msgid ""
"The preceding examples all use sequencing patterns which include the "
"@var{symbol} sub-pattern in some way.  Here are some important details about "
"that usage."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:840
#, no-wrap
msgid "When @var{symbol} occurs more than once in @var{seqpat},"
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:843
msgid ""
"the second and subsequent occurrences do not expand to re-binding, but "
"instead expand to an equality test using @code{eq}."
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:850
msgid ""
"The following example features a @code{pcase} form with two clauses and two "
"@var{seqpat}, A and B@.  Both A and B first check that @var{expval} is a "
"pair (using @code{pred}), and then bind symbols to the @code{car} and "
"@code{cdr} of @var{expval} (using one @code{app} each)."
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:855
msgid ""
"For A, because symbol @code{st} is mentioned twice, the second mention "
"becomes an equality test using @code{eq}.  On the other hand, B uses two "
"separate symbols, @code{s1} and @code{s2}, both of which become independent "
"bindings."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:864
#, no-wrap
msgid ""
"(defun grok (object)\n"
"  (pcase object\n"
"    ((and (pred consp)        ; seqpat A\n"
"          (app car st)        ; first mention: st\n"
"          (app cdr st))       ; second mention: st\n"
"     (list 'eq st))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:870
#, no-wrap
msgid ""
"    ((and (pred consp)        ; seqpat B\n"
"          (app car s1)        ; first mention: s1\n"
"          (app cdr s2))       ; first mention: s2\n"
"     (list 'not-eq s1 s2))))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:877
#, no-wrap
msgid ""
"(let ((s \"yow!\"))\n"
"  (grok (cons s s)))      @result{} (eq \"yow!\")\n"
"(grok (cons \"yo!\" \"yo!\")) @result{} (not-eq \"yo!\" \"yo!\")\n"
"(grok '(4 2))             @result{} (not-eq 4 (2))\n"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:880
#, no-wrap
msgid "Side-effecting code referencing @var{symbol} is undefined."
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:884
msgid ""
"Avoid.  For example, here are two similar functions.  Both use @code{and}, "
"@var{symbol} and @code{guard}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:891
#, no-wrap
msgid ""
"(defun square-double-digit-p/CLEAN (integer)\n"
"  (pcase (* integer integer)\n"
"    ((and n (guard (< 9 n 100))) (list 'yes n))\n"
"    (sorry (list 'no sorry))))\n"
"\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:894
#, no-wrap
msgid ""
"(square-double-digit-p/CLEAN 9) @result{} (yes 81)\n"
"(square-double-digit-p/CLEAN 3) @result{} (no 9)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:901
#, no-wrap
msgid ""
"(defun square-double-digit-p/MAYBE (integer)\n"
"  (pcase (* integer integer)\n"
"    ((and n (guard (< 9 (incf n) 100))) (list 'yes n))\n"
"    (sorry (list 'no sorry))))\n"
"\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:904
#, no-wrap
msgid ""
"(square-double-digit-p/MAYBE 9) @result{} (yes 81)\n"
"(square-double-digit-p/MAYBE 3) @result{} (yes 9)  ; @r{WRONG!}\n"
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:913
msgid ""
"The difference is in @var{boolean-expression} in @code{guard}: @code{CLEAN} "
"references @code{n} simply and directly, while @code{MAYBE} references "
"@code{n} with a side-effect, in the expression @code{(incf n)}.  When "
"@code{integer} is 3, here's what happens:"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:915
#, no-wrap
msgid "The first @code{n} binds it to @var{expval},"
msgstr ""

#. type: itemize
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:917
msgid "i.e., the result of evaluating @code{(* 3 3)}, or 9."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:918
#, no-wrap
msgid "@var{boolean-expression} is evaluated:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:925
#, no-wrap
msgid ""
"start:   (< 9 (incf n)        100)\n"
"becomes: (< 9 (setq n (1+ n)) 100)\n"
"becomes: (< 9 (setq n (1+ 9)) 100)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:932
#, no-wrap
msgid ""
"becomes: (< 9 (setq n 10)     100)\n"
"                                   ; @r{side-effect here!}\n"
"becomes: (< 9       n         100) ; @r{@code{n} now bound to 10}\n"
"becomes: (< 9      10         100)\n"
"becomes: t\n"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:935
#, no-wrap
msgid "Because the result of the evaluation is non-@code{nil},"
msgstr ""

#. type: itemize
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:938
msgid ""
"@code{guard} matches, @code{and} matches, and control passes to that "
"clause's body forms."
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:945
msgid ""
"Aside from the mathematical incorrectness of asserting that 9 is a "
"double-digit integer, there is another problem with @code{MAYBE}.  The body "
"form references @code{n} once more, yet we do not see the updated "
"value---10---at all.  What happened to it?"
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:951
msgid ""
"To sum up, it's best to avoid side-effecting references to @var{symbol} "
"patterns entirely, not only in @var{boolean-expression} (in @code{guard}), "
"but also in @var{expr} (in @code{let})  and @var{function} (in @code{pred} "
"and @code{app})."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:952
#, no-wrap
msgid "On match, the clause's body forms can reference the set"
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:958
msgid ""
"of symbols the pattern let-binds.  When @var{seqpat} is @code{and}, this set "
"is the union of all the symbols each of its sub-patterns let-binds.  This "
"makes sense because, for @code{and} to match, all the sub-patterns must "
"match."
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:966
msgid ""
"When @var{seqpat} is @code{or}, things are different: @code{or} matches at "
"the first sub-pattern that matches; the rest of the sub-patterns are "
"ignored.  It makes no sense for each sub-pattern to let-bind a different set "
"of symbols because the body forms have no way to distinguish which "
"sub-pattern matched and choose among the different sets.  For example, the "
"following is invalid:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:975
#, no-wrap
msgid ""
"(require 'cl-lib)\n"
"(pcase (read-number \"Enter an integer: \")\n"
"  ((or (and (pred cl-evenp)\n"
"            e-num)      ; @r{bind @code{e-num} to @var{expval}}\n"
"       o-num)           ; @r{bind @code{o-num} to @var{expval}}\n"
"   (list e-num o-num)))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:980
#, no-wrap
msgid ""
"Enter an integer: 42\n"
"@error{} Symbol’s value as variable is void: o-num\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:984
#, no-wrap
msgid ""
"Enter an integer: 149\n"
"@error{} Symbol’s value as variable is void: e-num\n"
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:992
msgid ""
"Evaluating body form @w{@code{(list e-num o-num)}} signals error.  To "
"distinguish between sub-patterns, you can use another symbol, identical in "
"name in all sub-patterns but differing in value.  Reworking the above "
"example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1002
#, no-wrap
msgid ""
"(require 'cl-lib)\n"
"(pcase (read-number \"Enter an integer: \")\n"
"  ((and num                                ; @r{line 1}\n"
"        (or (and (pred cl-evenp)           ; @r{line 2}\n"
"                 (let spin 'even))         ; @r{line 3}\n"
"            (let spin 'odd)))              ; @r{line 4}\n"
"   (list spin num)))                       ; @r{line 5}\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1007
#, no-wrap
msgid ""
"Enter an integer: 42\n"
"@result{} (even 42)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1011
#, no-wrap
msgid ""
"Enter an integer: 149\n"
"@result{} (odd 149)\n"
msgstr ""

#. type: enumerate
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1022
msgid ""
"Line 1 ``factors out'' the @var{expval} binding with @code{and} and "
"@var{symbol} (in this case, @code{num}).  On line 2, @code{or} begins in the "
"same way as before, but instead of binding different symbols, uses "
"@code{let} twice (lines 3-4) to bind the same symbol @code{spin} in both "
"sub-patterns.  The value of @code{spin} distinguishes the sub-patterns.  The "
"body form references both symbols (line 5)."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1024
#, no-wrap
msgid "Extending pcase"
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1025
#, no-wrap
msgid "Extending @code{pcase}"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1026
#, no-wrap
msgid "pcase, defining new kinds of patterns"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1032
msgid ""
"The @code{pcase} macro supports several kinds of patterns "
"(@pxref{Pattern-Matching Conditional}).  You can add support for other kinds "
"of patterns using the @code{pcase-defmacro} macro."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1033
#, no-wrap
msgid "pcase-defmacro name args [doc] &rest body"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1040
msgid ""
"Define a new kind of pattern for @code{pcase}, to be invoked as "
"@w{@code{(@var{name} @var{actual-args})}}.  The @code{pcase} macro expands "
"this into a function call that evaluates @var{body}, whose job it is to "
"rewrite the invoked pattern into some other pattern, in an environment where "
"@var{args} are bound to @var{actual-args}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1046
msgid ""
"Additionally, arrange to display @var{doc} along with the docstring of "
"@code{pcase}.  By convention, @var{doc} should use @code{EXPVAL} to stand "
"for the result of evaluating @var{expression} (first arg to @code{pcase})."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1055
msgid ""
"Typically, @var{body} rewrites the invoked pattern to use more basic "
"patterns.  Although all patterns eventually reduce to core patterns, "
"@code{body} need not use core patterns straight away.  The following example "
"defines two patterns, named @code{less-than} and @code{integer-less-than}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1061
#, no-wrap
msgid ""
"(pcase-defmacro less-than (n)\n"
"  \"Matches if EXPVAL is a number less than N.\"\n"
"  `(pred (> ,n)))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1068
#, no-wrap
msgid ""
"(pcase-defmacro integer-less-than (n)\n"
"  \"Matches if EXPVAL is an integer less than N.\"\n"
"  `(and (pred integerp)\n"
"        (less-than ,n)))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1080
msgid ""
"Note that the docstrings mention @var{args} (in this case, only one: "
"@code{n}) in the usual way, and also mention @code{EXPVAL} by convention.  "
"The first rewrite (i.e., @var{body} for @code{less-than})  uses one core "
"pattern: @code{pred}.  The second uses two core patterns: @code{and} and "
"@code{pred}, as well as the newly-defined pattern @code{less-than}.  Both "
"use a single backquote construct (@pxref{Backquote})."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1081
#, no-wrap
msgid "Backquote Patterns"
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1082
#, no-wrap
msgid "Backquote-Style Patterns"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1083
#, no-wrap
msgid "backquote-style patterns"
msgstr ""

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

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1090
msgid ""
"This subsection describes @dfn{backquote-style patterns}, a set of builtin "
"patterns that eases structural matching.  For background, "
"@pxref{Pattern-Matching Conditional}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1094
msgid ""
"Backquote-style patterns are a powerful set of @code{pcase} pattern "
"extensions (created using @code{pcase-defmacro}) that make it easy to match "
"@var{expval} against specifications of its @emph{structure}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1098
msgid ""
"For example, to match @var{expval} that must be a list of two elements whose "
"first element is a specific string and the second element is any value, you "
"can write a core pattern:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1103
#, no-wrap
msgid ""
"(and (pred listp)\n"
"     ls\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1108
#, no-wrap
msgid ""
"     (guard (= 2 (length ls)))\n"
"     (guard (string= \"first\" (car ls)))\n"
"     (let second-elem (cadr ls)))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1113
msgid "or you can write the equivalent backquote-style pattern:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1116
#, no-wrap
msgid "`(\"first\" ,second-elem)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1122
msgid ""
"The backquote-style pattern is more concise, resembles the structure of "
"@var{expval}, and avoids binding @code{ls}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1125
msgid ""
"A backquote-style pattern has the form @code{`@var{qpat}} where @var{qpat} "
"can have the following forms:"
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1128
#, no-wrap
msgid "(@var{qpat1} . @var{qpat2})"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1133
msgid ""
"Matches if @var{expval} is a cons cell whose @code{car} matches @var{qpat1} "
"and whose @code{cdr} matches @var{qpat2}.  This readily generalizes to lists "
"as in @w{@code{(@var{qpat1} @var{qpat2} @dots{})}}."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1134
#, no-wrap
msgid "[@var{qpat1} @var{qpat2} @dots{} @var{qpatm}]"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1138
msgid ""
"Matches if @var{expval} is a vector of length @var{m} whose "
"@code{0}..@code{(@var{m}-1)}th elements match @var{qpat1}, @var{qpat2} "
"@dots{} @var{qpatm}, respectively."
msgstr ""

#. type: var{#1}
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1141
#, no-wrap
msgid "number"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1145
msgid ""
"Matches if the corresponding element of @var{expval} is @code{equal} to the "
"specified literal object."
msgstr ""

#. type: item
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1146
#, no-wrap
msgid ",@var{pattern}"
msgstr ""

#. type: table
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1153
msgid ""
"Matches if the corresponding element of @var{expval} matches @var{pattern}.  "
"Note that @var{pattern} is any kind that @code{pcase} supports.  (In the "
"example above, @code{second-elem} is a @var{symbol} core pattern; it "
"therefore matches anything, and let-binds @code{second-elem}.)"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1160
msgid ""
"The @dfn{corresponding element} is the portion of @var{expval} that is in "
"the same structural position as the structural position of @var{qpat} in the "
"backquote-style pattern.  (In the example above, the corresponding element "
"of @code{second-elem} is the second element of @var{expval}.)"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1166
msgid ""
"Here is an example of using @code{pcase} to implement a simple interpreter "
"for a little expression language (note that this requires lexical binding "
"for the lambda expression in the @code{fn} clause to properly capture "
"@code{body} and @code{arg} (@pxref{Lexical Binding}):"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1173
#, no-wrap
msgid ""
"(defun evaluate (form env)\n"
"  (pcase form\n"
"    (`(add ,x ,y)       (+ (evaluate x env)\n"
"                           (evaluate y env)))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1180
#, no-wrap
msgid ""
"    (`(call ,fun ,arg)  (funcall (evaluate fun env)\n"
"                                 (evaluate arg env)))\n"
"    (`(fn ,arg ,body)   (lambda (val)\n"
"                          (evaluate body (cons (cons arg val)\n"
"                                               env))))\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1185
#, no-wrap
msgid ""
"    ((pred numberp)     form)\n"
"    ((pred symbolp)     (cdr (assq form env)))\n"
"    (_                  (error \"Syntax error: %S\" form))))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1197
msgid ""
"The first three clauses use backquote-style patterns.  @code{`(add ,x ,y)} "
"is a pattern that checks that @code{form} is a three-element list starting "
"with the literal symbol @code{add}, then extracts the second and third "
"elements and binds them to symbols @code{x} and @code{y}, respectively.  The "
"clause body evaluates @code{x} and @code{y} and adds the results.  "
"Similarly, the @code{call} clause implements a function call, and the "
"@code{fn} clause implements an anonymous function definition."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1206
msgid ""
"The remaining clauses use core patterns.  @code{(pred numberp)} matches if "
"@code{form} is a number.  On match, the body evaluates it.  @code{(pred "
"symbolp)} matches if @code{form} is a symbol.  On match, the body looks up "
"the symbol in @code{env} and returns its association.  Finally, @code{_} is "
"the catch-all pattern that matches anything, so it's suitable for reporting "
"syntax errors."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1209
msgid ""
"Here are some sample programs in this small language, including their "
"evaluation results:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1215
#, no-wrap
msgid ""
"(evaluate '(add 1 2) nil)                 @result{} 3\n"
"(evaluate '(add x y) '((x . 1) (y . 2)))  @result{} 3\n"
"(evaluate '(call (fn x (add 1 x)) 2) nil) @result{} 3\n"
"(evaluate '(sub 1 2) nil)                 @result{} error\n"
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1218
#, no-wrap
msgid "Destructuring with @code{pcase} Patterns"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1219
#, no-wrap
msgid "destructuring with pcase patterns"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1225
msgid ""
"Pcase patterns not only express a condition on the form of the objects they "
"can match, but they can also extract sub-fields of those objects.  For "
"example we can extract 2 elements from a list that is the value of the "
"variable @code{my-list} with the following code:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1229
#, no-wrap
msgid ""
"  (pcase my-list\n"
"    (`(add ,x ,y)  (message \"Contains %S and %S\" x y)))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1236
msgid ""
"This will not only extract @code{x} and @code{y} but will additionally test "
"that @code{my-list} is a list containing exactly 3 elements and whose first "
"element is the symbol @code{add}.  If any of those tests fail, @code{pcase} "
"will immediately return @code{nil} without calling @code{message}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1243
msgid ""
"Extraction of multiple values stored in an object is known as "
"@dfn{destructuring}.  Using @code{pcase} patterns allows to perform "
"@dfn{destructuring binding}, which is similar to a local binding "
"(@pxref{Local Variables}), but gives values to multiple elements of a "
"variable by extracting those values from an object of compatible structure."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1249
msgid ""
"The macros described in this section use @code{pcase} patterns to perform "
"destructuring binding.  The condition of the object to be of compatible "
"structure means that the object must match the pattern, because only then "
"the object's subfields can be extracted.  For example:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1253
#, no-wrap
msgid ""
"  (pcase-let ((`(add ,x ,y) my-list))\n"
"    (message \"Contains %S and %S\" x y))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1264
msgid ""
"does the same as the previous example, except that it directly tries to "
"extract @code{x} and @code{y} from @code{my-list} without first verifying if "
"@code{my-list} is a list which has the right number of elements and has "
"@code{add} as its first element.  The precise behavior when the object does "
"not actually match the pattern is undefined, although the body will not be "
"silently skipped: either an error is signaled or the body is run with some "
"of the variables potentially bound to arbitrary values like @code{nil}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1268
msgid ""
"The pcase patterns that are useful for destructuring bindings are generally "
"those described in @ref{Backquote Patterns}, since they express a "
"specification of the structure of objects that will match."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1271
msgid "For an alternative facility for destructuring binding, see @ref{seq-let}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1272
#, no-wrap
msgid "pcase-let bindings body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1275
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1300
msgid ""
"Perform destructuring binding of variables according to @var{bindings}, and "
"then evaluate @var{body}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1279
msgid ""
"@var{bindings} is a list of bindings of the form @w{@code{(@var{pattern} "
"@var{exp})}}, where @var{exp} is an expression to evaluate and @var{pattern} "
"is a @code{pcase} pattern."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1286
msgid ""
"All @var{exp}s are evaluated first, after which they are matched against "
"their respective @var{pattern}, introducing new variable bindings that can "
"then be used inside @var{body}.  The variable bindings are produced by "
"destructuring binding of elements of @var{pattern} to the values of the "
"corresponding elements of the evaluated @var{exp}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1288
msgid "Here's a trivial example:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1294
#, no-wrap
msgid ""
"(pcase-let ((`(,major ,minor)\n"
"\t     (split-string \"image/png\" \"/\")))\n"
"  minor)\n"
"     @result{} \"png\"\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1297
#, no-wrap
msgid "pcase-let* bindings body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1306
msgid ""
"@var{bindings} is a list of bindings of the form @code{(@var{pattern} "
"@var{exp})}, where @var{exp} is an expression to evaluate and @var{pattern} "
"is a @code{pcase} pattern.  The variable bindings are produced by "
"destructuring binding of elements of @var{pattern} to the values of the "
"corresponding elements of the evaluated @var{exp}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1313
msgid ""
"Unlike @code{pcase-let}, but similarly to @code{let*}, each @var{exp} is "
"matched against its corresponding @var{pattern} before processing the next "
"element of @var{bindings}, so the variable bindings introduced in each one "
"of the @var{bindings} are available in the @var{exp}s of the @var{bindings} "
"that follow it, additionally to being available in @var{body}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1315
#, no-wrap
msgid "pcase-dolist (pattern list) body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1322
msgid ""
"Execute @var{body} once for each element of @var{list}, on each iteration "
"performing a destructuring binding of variables in @var{pattern} to the "
"values of the corresponding subfields of the element of @var{list}.  The "
"bindings are performed as if by @code{pcase-let}.  When @var{pattern} is a "
"simple variable, this ends up being equivalent to @code{dolist} "
"(@pxref{Iteration})."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1324
#, no-wrap
msgid "pcase-setq pattern value@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1327
msgid ""
"Assign values to variables in a @code{setq} form, destructuring each "
"@var{value} according to its respective @var{pattern}."
msgstr ""

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

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

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1339
msgid ""
"Iteration means executing part of a program repetitively.  For example, you "
"might want to repeat some computation once for each element of a list, or "
"once for each integer from 0 to @var{n}.  You can do this in Emacs Lisp with "
"the special form @code{while}:"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1340
#, no-wrap
msgid "while condition forms@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1346
msgid ""
"@code{while} first evaluates @var{condition}.  If the result is "
"non-@code{nil}, it evaluates @var{forms} in textual order.  Then it "
"reevaluates @var{condition}, and if the result is non-@code{nil}, it "
"evaluates @var{forms} again.  This process repeats until @var{condition} "
"evaluates to @code{nil}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1350
msgid ""
"There is no limit on the number of iterations that may occur.  The loop will "
"continue until either @var{condition} evaluates to @code{nil} or until an "
"error or @code{throw} jumps out of it (@pxref{Nonlocal Exits})."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1352
msgid "The value of a @code{while} form is always @code{nil}."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1357
#, no-wrap
msgid ""
"(setq num 0)\n"
"     @result{} 0\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1367
#, no-wrap
msgid ""
"(while (< num 4)\n"
"  (princ (format \"Iteration %d.\" num))\n"
"  (setq num (1+ num)))\n"
"     @print{} Iteration 0.\n"
"     @print{} Iteration 1.\n"
"     @print{} Iteration 2.\n"
"     @print{} Iteration 3.\n"
"     @result{} nil\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1374
msgid ""
"To write a repeat-until loop, which will execute something on each iteration "
"and then do the end-test, put the body followed by the end-test in a "
"@code{progn} as the first argument of @code{while}, as shown here:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1380
#, no-wrap
msgid ""
"(while (progn\n"
"         (forward-line 1)\n"
"         (not (looking-at \"^$\"))))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1387
msgid ""
"This moves forward one line and continues moving by lines until it reaches "
"an empty line.  It is peculiar in that the @code{while} has no body, just "
"the end test (which also does the real work of moving point)."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1391
msgid ""
"The @code{dolist} and @code{dotimes} macros provide convenient ways to write "
"two common kinds of loops."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1392
#, no-wrap
msgid "dolist (var list [result]) body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1398
msgid ""
"This construct executes @var{body} once for each element of @var{list}, "
"binding the variable @var{var} locally to hold the current element.  Then it "
"returns the value of evaluating @var{result}, or @code{nil} if @var{result} "
"is omitted.  For example, here is how you could use @code{dolist} to define "
"the @code{reverse} function:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1404
#, no-wrap
msgid ""
"(defun reverse (list)\n"
"  (let (value)\n"
"    (dolist (elt list value)\n"
"      (setq value (cons elt value)))))\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1407
#, no-wrap
msgid "dotimes (var count [result]) body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1414
msgid ""
"This construct executes @var{body} once for each integer from 0 (inclusive) "
"to @var{count} (exclusive), binding the variable @var{var} to the integer "
"for the current iteration.  Then it returns the value of evaluating "
"@var{result}, or @code{nil} if @var{result} is omitted.  Use of @var{result} "
"is deprecated.  Here is an example of using @code{dotimes} to do something "
"100 times:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1418
#, no-wrap
msgid ""
"(dotimes (i 100)\n"
"  (insert \"I will not obey absurd orders\\n\"))\n"
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1428
msgid ""
"A @dfn{generator} is a function that produces a potentially-infinite stream "
"of values.  Each time the function produces a value, it suspends itself and "
"waits for a caller to request the next value."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1429
#, no-wrap
msgid "iter-defun name args [doc] [declare] [interactive] body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1438
msgid ""
"@code{iter-defun} defines a generator function.  A generator function has "
"the same signature as a normal function, but works differently.  Instead of "
"executing @var{body} when called, a generator function returns an iterator "
"object.  That iterator runs @var{body} to generate values, emitting a value "
"and pausing where @code{iter-yield} or @code{iter-yield-from} appears.  When "
"@var{body} returns normally, @code{iter-next} signals "
"@code{iter-end-of-sequence} with @var{body}'s result as its condition data."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1442
msgid ""
"Any kind of Lisp code is valid inside @var{body}, but @code{iter-yield} and "
"@code{iter-yield-from} cannot appear inside @code{unwind-protect} forms."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1445
#, no-wrap
msgid "iter-lambda args [doc] [interactive] body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1448
msgid ""
"@code{iter-lambda} produces an unnamed generator function that works just "
"like a generator function produced with @code{iter-defun}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1450
#, no-wrap
msgid "iter-yield value"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1455
msgid ""
"When it appears inside a generator function, @code{iter-yield} indicates "
"that the current iterator should pause and return @var{value} from "
"@code{iter-next}.  @code{iter-yield} evaluates to the @code{value} parameter "
"of next call to @code{iter-next}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1457
#, no-wrap
msgid "iter-yield-from iterator"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1462
msgid ""
"@code{iter-yield-from} yields all the values that @var{iterator} produces "
"and evaluates to the value that @var{iterator}'s generator function returns "
"normally.  While it has control, @var{iterator} receives values sent to the "
"iterator using @code{iter-next}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1470
msgid ""
"To use a generator function, first call it normally, producing a "
"@dfn{iterator} object.  An iterator is a specific instance of a generator.  "
"Then use @code{iter-next} to retrieve values from this iterator.  When there "
"are no more values to pull from an iterator, @code{iter-next} raises an "
"@code{iter-end-of-sequence} condition with the iterator's final value."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1477
msgid ""
"It's important to note that generator function bodies only execute inside "
"calls to @code{iter-next}.  A call to a function defined with "
"@code{iter-defun} produces an iterator; you must drive this iterator with "
"@code{iter-next} for anything interesting to happen.  Each call to a "
"generator function produces a @emph{different} iterator, each with its own "
"state."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1478
#, no-wrap
msgid "iter-next iterator value"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1484
msgid ""
"Retrieve the next value from @var{iterator}.  If there are no more values to "
"be generated (because @var{iterator}'s generator function returned), "
"@code{iter-next} signals the @code{iter-end-of-sequence} condition; the data "
"value associated with this condition is the value with which "
"@var{iterator}'s generator function returned."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1490
msgid ""
"@var{value} is sent into the iterator and becomes the value to which "
"@code{iter-yield} evaluates.  @var{value} is ignored for the first "
"@code{iter-next} call to a given iterator, since at the start of "
"@var{iterator}'s generator function, the generator function is not "
"evaluating any @code{iter-yield} form."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1492
#, no-wrap
msgid "iter-close iterator"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1499
msgid ""
"If @var{iterator} is suspended inside an @code{unwind-protect}'s "
"@code{bodyform} and becomes unreachable, Emacs will eventually run unwind "
"handlers after a garbage collection pass.  (Note that @code{iter-yield} is "
"illegal inside an @code{unwind-protect}'s @code{unwindforms}.)  To ensure "
"that these handlers are run before then, use @code{iter-close}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1503
msgid ""
"Some convenience functions are provided to make working with iterators "
"easier:"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1504
#, no-wrap
msgid "iter-do (var iterator) body @dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1507
msgid ""
"Run @var{body} with @var{var} bound to each value that @var{iterator} "
"produces."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1511
msgid ""
"The Common Lisp loop facility also contains features for working with "
"iterators.  @xref{Loop Facility,,,cl,Common Lisp Extensions}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1514
msgid ""
"The following piece of code demonstrates some important principles of "
"working with iterators."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1521
#, no-wrap
msgid ""
"(require 'generator)\n"
"(iter-defun my-iter (x)\n"
"  (iter-yield (1+ (iter-yield (1+ x))))\n"
"   ;; Return normally\n"
"  -1)\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1530
#, no-wrap
msgid ""
"(let* ((iter (my-iter 5))\n"
"       (iter2 (my-iter 0)))\n"
"  ;; Prints 6\n"
"  (print (iter-next iter))\n"
"  ;; Prints 9\n"
"  (print (iter-next iter 8))\n"
"  ;; Prints 1; iter and iter2 have distinct states\n"
"  (print (iter-next iter2 nil))\n"
"\n"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1537
#, no-wrap
msgid ""
"  ;; We expect the iter sequence to end now\n"
"  (condition-case x\n"
"      (iter-next iter)\n"
"    (iter-end-of-sequence\n"
"      ;; Prints -1, which my-iter returned normally\n"
"      (print (cdr x)))))\n"
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1548
msgid ""
"A @dfn{nonlocal exit} is a transfer of control from one point in a program "
"to another remote point.  Nonlocal exits can occur in Emacs Lisp as a result "
"of errors; you can also use them under explicit control.  Nonlocal exits "
"unbind all variable bindings made by the constructs being exited."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1556
#, no-wrap
msgid "Catch and Throw"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
msgid "Nonlocal exits for the program's own purposes."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1656
#, no-wrap
msgid "Examples of Catch"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
msgid "Showing how such nonlocal exits can be written."
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1731
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1732
#, no-wrap
msgid "Errors"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
msgid "How errors are signaled and handled."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2317
#, no-wrap
msgid "Cleanups"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1554
msgid "Arranging to run a cleanup form if an error happens."
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1557
#, no-wrap
msgid "Explicit Nonlocal Exits: @code{catch} and @code{throw}"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1558
#, no-wrap
msgid "forms for nonlocal exits"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1566
msgid ""
"Most control constructs affect only the flow of control within the construct "
"itself.  The function @code{throw} is the exception to this rule of normal "
"program execution: it performs a nonlocal exit on request.  (There are other "
"exceptions, but they are for error handling only.)  @code{throw} is used "
"inside a @code{catch}, and jumps back to that @code{catch}.  For example:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1572
#, no-wrap
msgid ""
"(defun foo-outer ()\n"
"  (catch 'foo\n"
"    (foo-inner)))\n"
"\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1578
#, no-wrap
msgid ""
"(defun foo-inner ()\n"
"  @dots{}\n"
"  (if x\n"
"      (throw 'foo t))\n"
"  @dots{})\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1586
msgid ""
"The @code{throw} form, if executed, transfers control straight back to the "
"corresponding @code{catch}, which returns immediately.  The code following "
"the @code{throw} is not executed.  The second argument of @code{throw} is "
"used as the return value of the @code{catch}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1595
msgid ""
"The function @code{throw} finds the matching @code{catch} based on the first "
"argument: it searches for a @code{catch} whose first argument is @code{eq} "
"to the one specified in the @code{throw}.  If there is more than one "
"applicable @code{catch}, the innermost one takes precedence.  Thus, in the "
"above example, the @code{throw} specifies @code{foo}, and the @code{catch} "
"in @code{foo-outer} specifies the same symbol, so that @code{catch} is the "
"applicable one (assuming there is no other matching @code{catch} in "
"between)."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1605
msgid ""
"Executing @code{throw} exits all Lisp constructs up to the matching "
"@code{catch}, including function calls.  When binding constructs such as "
"@code{let} or function calls are exited in this way, the bindings are "
"unbound, just as they are when these constructs exit normally (@pxref{Local "
"Variables}).  Likewise, @code{throw} restores the buffer and position saved "
"by @code{save-excursion} (@pxref{Excursions}), and the narrowing status "
"saved by @code{save-restriction}.  It also runs any cleanups established "
"with the @code{unwind-protect} special form when it exits that form "
"(@pxref{Cleanups})."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1613
msgid ""
"The @code{throw} need not appear lexically within the @code{catch} that it "
"jumps to.  It can equally well be called from another function called within "
"the @code{catch}.  As long as the @code{throw} takes place chronologically "
"after entry to the @code{catch}, and chronologically before exit from it, it "
"has access to that @code{catch}.  This is why @code{throw} can be used in "
"commands such as @code{exit-recursive-edit} that throw back to the editor "
"command loop (@pxref{Recursive Editing})."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1614
#, no-wrap
msgid "CL note---only @code{throw} in Emacs"
msgstr ""

#. type: quotation
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1621
msgid ""
"@b{Common Lisp note:} Most other versions of Lisp, including Common Lisp, "
"have several ways of transferring control nonsequentially: @code{return}, "
"@code{return-from}, and @code{go}, for example.  Emacs Lisp has only "
"@code{throw}.  The @file{cl-lib} library provides versions of some of "
"these.  @xref{Blocks and Exits,,,cl,Common Lisp Extensions}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1623
#, no-wrap
msgid "catch tag body@dots{}"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1624
#, no-wrap
msgid "tag on run time stack"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1629
msgid ""
"@code{catch} establishes a return point for the @code{throw} function.  The "
"return point is distinguished from other such return points by @var{tag}, "
"which may be any Lisp object except @code{nil}.  The argument @var{tag} is "
"evaluated normally before the return point is established."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1634
msgid ""
"With the return point in effect, @code{catch} evaluates the forms of the "
"@var{body} in textual order.  If the forms execute normally (without error "
"or nonlocal exit) the value of the last body form is returned from the "
"@code{catch}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1639
msgid ""
"If a @code{throw} is executed during the execution of @var{body}, specifying "
"the same value @var{tag}, the @code{catch} form exits immediately; the value "
"it returns is whatever was specified as the second argument of @code{throw}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1641
#, no-wrap
msgid "throw tag value"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1647
msgid ""
"The purpose of @code{throw} is to return from a return point previously "
"established with @code{catch}.  The argument @var{tag} is used to choose "
"among the various existing return points; it must be @code{eq} to the value "
"specified in the @code{catch}.  If multiple return points match @var{tag}, "
"the innermost one is used."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1650
msgid ""
"The argument @var{value} is used as the value to return from that "
"@code{catch}."
msgstr ""

#. type: kindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1651
#, no-wrap
msgid "no-catch"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1654
msgid ""
"If no return point is in effect with tag @var{tag}, then a @code{no-catch} "
"error is signaled with data @code{(@var{tag} @var{value})}."
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1657
#, no-wrap
msgid "Examples of @code{catch} and @code{throw}"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1663
msgid ""
"One way to use @code{catch} and @code{throw} is to exit from a doubly nested "
"loop.  (In most languages, this would be done with a @code{goto}.)  Here we "
"compute @code{(foo @var{i} @var{j})} for @var{i} and @var{j} varying from 0 "
"to 9:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1676
#, no-wrap
msgid ""
"(defun search-foo ()\n"
"  (catch 'loop\n"
"    (let ((i 0))\n"
"      (while (< i 10)\n"
"        (let ((j 0))\n"
"          (while (< j 10)\n"
"            (if (foo i j)\n"
"                (throw 'loop (list i j)))\n"
"            (setq j (1+ j))))\n"
"        (setq i (1+ i))))))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1684
msgid ""
"If @code{foo} ever returns non-@code{nil}, we stop immediately and return a "
"list of @var{i} and @var{j}.  If @code{foo} always returns @code{nil}, the "
"@code{catch} returns normally, and the value is @code{nil}, since that is "
"the result of the @code{while}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1688
msgid ""
"Here are two tricky examples, slightly different, showing two return points "
"at once.  First, two return points with the same tag, @code{hack}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1695
#, no-wrap
msgid ""
"(defun catch2 (tag)\n"
"  (catch tag\n"
"    (throw 'hack 'yes)))\n"
"@result{} catch2\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1703
#, no-wrap
msgid ""
"(catch 'hack\n"
"  (print (catch2 'hack))\n"
"  'no)\n"
"@print{} yes\n"
"@result{} no\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1712
msgid ""
"Since both return points have tags that match the @code{throw}, it goes to "
"the inner one, the one established in @code{catch2}.  Therefore, "
"@code{catch2} returns normally with value @code{yes}, and this value is "
"printed.  Finally the second body form in the outer @code{catch}, which is "
"@code{'no}, is evaluated and returned from the outer @code{catch}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1714
msgid "Now let's change the argument given to @code{catch2}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1721
#, no-wrap
msgid ""
"(catch 'hack\n"
"  (print (catch2 'quux))\n"
"  'no)\n"
"@result{} yes\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1730
msgid ""
"We still have two return points, but this time only the outer one has the "
"tag @code{hack}; the inner one has the tag @code{quux} instead.  Therefore, "
"@code{throw} makes the outer @code{catch} return the value @code{yes}.  The "
"function @code{print} is never called, and the body-form @code{'no} is never "
"evaluated."
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1737
msgid ""
"When Emacs Lisp attempts to evaluate a form that, for some reason, cannot be "
"evaluated, it @dfn{signals} an @dfn{error}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1742
msgid ""
"When an error is signaled, Emacs's default reaction is to print an error "
"message and terminate execution of the current command.  This is the right "
"thing to do in most cases, such as if you type @kbd{C-f} at the end of the "
"buffer."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1752
msgid ""
"In complicated programs, simple termination may not be what you want.  For "
"example, the program may have made temporary changes in data structures, or "
"created temporary buffers that should be deleted before the program is "
"finished.  In such cases, you would use @code{unwind-protect} to establish "
"@dfn{cleanup expressions} to be evaluated in case of error.  "
"(@xref{Cleanups}.)  Occasionally, you may wish the program to continue "
"execution despite an error in a subroutine.  In these cases, you would use "
"@code{condition-case} to establish @dfn{error handlers} to recover control "
"in case of error."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1756
msgid ""
"Resist the temptation to use error handling to transfer control from one "
"part of the program to another; use @code{catch} and @code{throw} instead.  "
"@xref{Catch and Throw}."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1764
#, no-wrap
msgid "Signaling Errors"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
msgid "How to report an error."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1889
#, no-wrap
msgid "Processing of Errors"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
msgid "What Emacs does when you report an error."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1926
#, no-wrap
msgid "Handling Errors"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
msgid "How you can trap errors and continue execution."
msgstr ""

#. type: node
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2219
#, no-wrap
msgid "Error Symbols"
msgstr ""

#. type: menuentry
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1762
msgid "How errors are classified for trapping them."
msgstr ""

#. type: subsubsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1765
#, no-wrap
msgid "How to Signal an Error"
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1773
msgid ""
"@dfn{Signaling} an error means beginning error processing.  Error processing "
"normally aborts all or part of the running program and returns to a point "
"that is set up to handle the error (@pxref{Processing of Errors}).  Here we "
"describe how to signal an error."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1779
msgid ""
"Most errors are signaled automatically within Lisp primitives which you call "
"for other purposes, such as if you try to take the @sc{car} of an integer or "
"move forward a character at the end of the buffer.  You can also signal "
"errors explicitly with the functions @code{error} and @code{signal}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1783
msgid ""
"Quitting, which happens when the user types @kbd{C-g}, is not considered an "
"error, but it is handled almost like an error.  @xref{Quitting}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1789
msgid ""
"Every error specifies an error message, one way or another.  The message "
"should state what is wrong (``File does not exist''), not how things ought "
"to be (``File must exist'').  The convention in Emacs Lisp is that error "
"messages should start with a capital letter, but should not end with any "
"sort of punctuation."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1790
#, no-wrap
msgid "error format-string &rest args"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1794
msgid ""
"This function signals an error with an error message constructed by applying "
"@code{format-message} (@pxref{Formatting Strings}) to @var{format-string} "
"and @var{args}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1796
msgid "These examples show typical uses of @code{error}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1801
#, no-wrap
msgid ""
"(error \"That is an error -- try something else\")\n"
"     @error{} That is an error -- try something else\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1806
#, no-wrap
msgid ""
"(error \"Invalid name `%s'\" \"A%%B\")\n"
"     @error{} Invalid name ‘A%%B’\n"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1812
msgid ""
"@code{error} works by calling @code{signal} with two arguments: the error "
"symbol @code{error}, and a list containing the string returned by "
"@code{format-message}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1817
msgid ""
"Typically grave accent and apostrophe in the format translate to matching "
"curved quotes, e.g., @t{\"Missing `%s'\"} might result in @t{\"Missing "
"‘foo’\"}.  @xref{Text Quoting Style}, for how to influence or inhibit this "
"translation."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1823
msgid ""
"@strong{Warning:} If you want to use your own string as an error message "
"verbatim, don't just write @code{(error @var{string})}.  If @var{string} "
"@var{string} contains @samp{%}, @samp{`}, or @samp{'} it may be reformatted, "
"with undesirable results.  Instead, use @code{(error \"%s\" @var{string})}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1825
#, no-wrap
msgid "signal error-symbol data"
msgstr ""

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

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1830
msgid ""
"This function signals an error named by @var{error-symbol}.  The argument "
"@var{data} is a list of additional Lisp objects relevant to the "
"circumstances of the error."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1835
msgid ""
"The argument @var{error-symbol} must be an @dfn{error symbol}---a symbol "
"defined with @code{define-error}.  This is how Emacs Lisp classifies "
"different sorts of errors.  @xref{Error Symbols}, for a description of error "
"symbols, error conditions and condition names."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1843
msgid ""
"If the error is not handled, the two arguments are used in printing the "
"error message.  Normally, this error message is provided by the "
"@code{error-message} property of @var{error-symbol}.  If @var{data} is "
"non-@code{nil}, this is followed by a colon and a comma separated list of "
"the unevaluated elements of @var{data}.  For @code{error}, the error message "
"is the @sc{car} of @var{data} (that must be a string).  Subcategories of "
"@code{file-error} are handled specially."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1848
msgid ""
"The number and significance of the objects in @var{data} depends on "
"@var{error-symbol}.  For example, with a @code{wrong-type-argument} error, "
"there should be two objects in the list: a predicate that describes the type "
"that was expected, and the object that failed to fit that type."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1853
msgid ""
"Both @var{error-symbol} and @var{data} are available to any error handlers "
"that handle the error: @code{condition-case} binds a local variable to a "
"list of the form @code{(@var{error-symbol} .@: @var{data})} (@pxref{Handling "
"Errors})."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1856
msgid "The function @code{signal} never returns."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1861
#, no-wrap
msgid ""
"(signal 'wrong-number-of-arguments '(x y))\n"
"     @error{} Wrong number of arguments: x, y\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1866
#, no-wrap
msgid ""
"(signal 'no-such-error '(\"My unknown error condition\"))\n"
"     @error{} peculiar error: \"My unknown error condition\"\n"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1870
#, no-wrap
msgid "user errors, signaling"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1871
#, no-wrap
msgid "user-error format-string &rest args"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1881
msgid ""
"This function behaves exactly like @code{error}, except that it uses the "
"error symbol @code{user-error} rather than @code{error}.  As the name "
"suggests, this is intended to report errors on the part of the user, rather "
"than errors in the code itself.  For example, if you try to use the command "
"@code{Info-history-back} (@kbd{l}) to move back beyond the start of your "
"Info browsing history, Emacs signals a @code{user-error}.  Such errors do "
"not cause entry to the debugger, even when @code{debug-on-error} is "
"non-@code{nil}.  @xref{Error Debugging}."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1883
#, no-wrap
msgid "CL note---no continuable errors"
msgstr ""

#. type: quotation
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1887
msgid ""
"@b{Common Lisp note:} Emacs Lisp has nothing like the Common Lisp concept of "
"continuable errors."
msgstr ""

#. type: subsubsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1890
#, no-wrap
msgid "How Emacs Processes Errors"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1891
#, no-wrap
msgid "processing of errors"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1901
msgid ""
"When an error is signaled, @code{signal} searches for an active "
"@dfn{handler} for the error.  A handler is a sequence of Lisp expressions "
"designated to be executed if an error happens in part of the Lisp program.  "
"If the error has an applicable handler, the handler is executed, and control "
"resumes following the handler.  The handler executes in the environment of "
"the @code{condition-case} that established it; all functions called within "
"that @code{condition-case} have already been exited, and the handler cannot "
"return to them."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1908
msgid ""
"If there is no applicable handler for the error, it terminates the current "
"command and returns control to the editor command loop.  (The command loop "
"has an implicit handler for all kinds of errors.)  The command loop's "
"handler uses the error symbol and associated data to print an error "
"message.  You can use the variable @code{command-error-function} to control "
"how this is done:"
msgstr ""

#. type: defvar
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1909
#, no-wrap
msgid "command-error-function"
msgstr ""

#. type: defvar
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1917
msgid ""
"This variable, if non-@code{nil}, specifies a function to use to handle "
"errors that return control to the Emacs command loop.  The function should "
"take three arguments: @var{data}, a list of the same form that "
"@code{condition-case} would bind to its variable; @var{context}, a string "
"describing the situation in which the error occurred, or (more often) "
"@code{nil}; and @var{caller}, the Lisp function which called the primitive "
"that signaled the error."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1919
#, no-wrap
msgid "@code{debug-on-error} use"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1925
msgid ""
"An error that has no explicit handler may call the Lisp debugger.  The "
"debugger is enabled if the variable @code{debug-on-error} (@pxref{Error "
"Debugging}) is non-@code{nil}.  Unlike error handlers, the debugger runs in "
"the environment of the error, so that you can examine values of variables "
"precisely as they were at the time of the error."
msgstr ""

#. type: subsubsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1927
#, no-wrap
msgid "Writing Code to Handle Errors"
msgstr ""

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

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

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1930
#, no-wrap
msgid "handle Lisp errors"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1931
#, no-wrap
msgid "forms for handling errors"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1938
msgid ""
"The usual effect of signaling an error is to terminate the command that is "
"running and return immediately to the Emacs editor command loop.  You can "
"arrange to trap errors occurring in a part of your program by establishing "
"an error handler, with the special form @code{condition-case}.  A simple "
"example looks like this:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1944
#, no-wrap
msgid ""
"(condition-case nil\n"
"    (delete-file filename)\n"
"  (error nil))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1951
msgid ""
"This deletes the file named @var{filename}, catching any error and returning "
"@code{nil} if an error occurs.  (You can use the macro @code{ignore-errors} "
"for a simple case like this; see below.)"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1957
msgid ""
"The @code{condition-case} construct is often used to trap errors that are "
"predictable, such as failure to open a file in a call to "
"@code{insert-file-contents}.  It is also used to trap errors that are "
"totally unpredictable, such as when the program evaluates an expression read "
"from the user."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1968
msgid ""
"The second argument of @code{condition-case} is called the @dfn{protected "
"form}.  (In the example above, the protected form is a call to "
"@code{delete-file}.)  The error handlers go into effect when this form "
"begins execution and are deactivated when this form returns.  They remain in "
"effect for all the intervening time.  In particular, they are in effect "
"during the execution of functions called by this form, in their subroutines, "
"and so on.  This is a good thing, since, strictly speaking, errors can be "
"signaled only by Lisp primitives (including @code{signal} and @code{error}) "
"called by the protected form, not by the protected form itself."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1976
msgid ""
"The arguments after the protected form are handlers.  Each handler lists one "
"or more @dfn{condition names} (which are symbols) to specify which errors it "
"will handle.  The error symbol specified when an error is signaled also "
"defines a list of condition names.  A handler applies to an error if they "
"have any condition names in common.  In the example above, there is one "
"handler, and it specifies one condition name, @code{error}, which covers all "
"errors."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1981
msgid ""
"The search for an applicable handler checks all the established handlers "
"starting with the most recently established one.  Thus, if two nested "
"@code{condition-case} forms offer to handle the same error, the inner of the "
"two gets to handle it."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1985
msgid ""
"If an error is handled by some @code{condition-case} form, this ordinarily "
"prevents the debugger from being run, even if @code{debug-on-error} says "
"this error should invoke the debugger."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1991
msgid ""
"If you want to be able to debug errors that are caught by a "
"@code{condition-case}, set the variable @code{debug-on-signal} to a "
"non-@code{nil} value.  You can also specify that a particular handler should "
"let the debugger run first, by writing @code{debug} among the conditions, "
"like this:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:1997
#, no-wrap
msgid ""
"(condition-case nil\n"
"    (delete-file filename)\n"
"  ((debug error) nil))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2005
msgid ""
"The effect of @code{debug} here is only to prevent @code{condition-case} "
"from suppressing the call to the debugger.  Any given error will invoke the "
"debugger only if @code{debug-on-error} and the other usual filtering "
"mechanisms say it should.  @xref{Error Debugging}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2006
#, no-wrap
msgid "condition-case-unless-debug var protected-form handlers@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2011
msgid ""
"The macro @code{condition-case-unless-debug} provides another way to handle "
"debugging of such forms.  It behaves exactly like @code{condition-case}, "
"unless the variable @code{debug-on-error} is non-@code{nil}, in which case "
"it does not handle any errors at all."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2019
msgid ""
"Once Emacs decides that a certain handler handles the error, it returns "
"control to that handler.  To do so, Emacs unbinds all variable bindings made "
"by binding constructs that are being exited, and executes the cleanups of "
"all @code{unwind-protect} forms that are being exited.  Once control arrives "
"at the handler, the body of the handler executes normally."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2026
msgid ""
"After execution of the handler body, execution returns from the "
"@code{condition-case} form.  Because the protected form is exited completely "
"before execution of the handler, the handler cannot resume execution at the "
"point of the error, nor can it examine variable bindings that were made "
"within the protected form.  All it can do is clean up and proceed."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2033
msgid ""
"Error signaling and handling have some resemblance to @code{throw} and "
"@code{catch} (@pxref{Catch and Throw}), but they are entirely separate "
"facilities.  An error cannot be caught by a @code{catch}, and a @code{throw} "
"cannot be handled by an error handler (though using @code{throw} when there "
"is no suitable @code{catch} signals an error that can be handled)."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2034
#, no-wrap
msgid "condition-case var protected-form handlers@dots{}"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2042
msgid ""
"This special form establishes the error handlers @var{handlers} around the "
"execution of @var{protected-form}.  If @var{protected-form} executes without "
"error, the value it returns becomes the value of the @code{condition-case} "
"form (in the absence of a success handler; see below).  In this case, the "
"@code{condition-case} has no effect.  The @code{condition-case} form makes a "
"difference when an error occurs during @var{protected-form}."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2050
msgid ""
"Each of the @var{handlers} is a list of the form @code{(@var{conditions} "
"@var{body}@dots{})}.  Here @var{conditions} is an error condition name to be "
"handled, or a list of condition names (which can include @code{debug} to "
"allow the debugger to run before the handler).  A condition name of @code{t} "
"matches any condition.  @var{body} is one or more Lisp expressions to be "
"executed when this handler handles an error.  Here are examples of handlers:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2054
#, no-wrap
msgid ""
"(error nil)\n"
"\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2056
#, no-wrap
msgid ""
"(arith-error (message \"Division by zero\"))\n"
"\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2060
#, no-wrap
msgid ""
"((arith-error file-error)\n"
" (message\n"
"  \"Either division by zero or failure to open a file\"))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2070
msgid ""
"Each error that occurs has an @dfn{error symbol} that describes what kind of "
"error it is, and which describes also a list of condition names "
"(@pxref{Error Symbols}).  Emacs searches all the active "
"@code{condition-case} forms for a handler that specifies one or more of "
"these condition names; the innermost matching @code{condition-case} handles "
"the error.  Within this @code{condition-case}, the first applicable handler "
"handles the error."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2074
msgid ""
"After executing the body of the handler, the @code{condition-case} returns "
"normally, using the value of the last form in the handler body as the "
"overall value."
msgstr ""

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

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2085
msgid ""
"The argument @var{var} is a variable.  @code{condition-case} does not bind "
"this variable when executing the @var{protected-form}, only when it handles "
"an error.  At that time, it binds @var{var} locally to an @dfn{error "
"description}, which is a list giving the particulars of the error.  The "
"error description has the form @code{(@var{error-symbol} . @var{data})}.  "
"The handler can refer to this list to decide what to do.  For example, if "
"the error is for failure opening a file, the file name is the second element "
"of @var{data}---the third element of the error description."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2088
msgid ""
"If @var{var} is @code{nil}, that means no variable is bound.  Then the error "
"symbol and associated data are not available to the handler."
msgstr ""

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

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2094
msgid ""
"As a special case, one of the @var{handlers} can be a list of the form "
"@code{(:success @var{body}@dots{})}, where @var{body} is executed with "
"@var{var} (if non-@code{nil}) bound to the return value of "
"@var{protected-form} when that expression terminates without error."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2095
#, no-wrap
msgid "rethrow a signal"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2099
msgid ""
"Sometimes it is necessary to re-throw a signal caught by "
"@code{condition-case}, for some outer-level handler to catch.  Here's how to "
"do that:"
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2102
#, no-wrap
msgid "  (signal (car err) (cdr err))\n"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2108
msgid ""
"where @code{err} is the error description variable, the first argument to "
"@code{condition-case} whose error condition you want to re-throw.  "
"@xref{Definition of signal}."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2110
#, no-wrap
msgid "error-message-string error-descriptor"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2114
msgid ""
"This function returns the error message string for a given error "
"descriptor.  It is useful if you want to handle an error by printing the "
"usual error message for that error.  @xref{Definition of signal}."
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2116
#, no-wrap
msgid "@code{arith-error} example"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2120
msgid ""
"Here is an example of using @code{condition-case} to handle the error that "
"results from dividing by zero.  The handler displays the error message (but "
"without a beep), then returns a very large number."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2127
#, no-wrap
msgid ""
"(defun safe-divide (dividend divisor)\n"
"  (condition-case err\n"
"      ;; @r{Protected form.}\n"
"      (/ dividend divisor)\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2135
#, no-wrap
msgid ""
"    ;; @r{The handler.}\n"
"    (arith-error                        ; @r{Condition.}\n"
"     ;; @r{Display the usual message for this error.}\n"
"     (message \"%s\" (error-message-string err))\n"
"     1000000)))\n"
"@result{} safe-divide\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2141
#, no-wrap
msgid ""
"(safe-divide 5 0)\n"
"     @print{} Arithmetic error: (arith-error)\n"
"@result{} 1000000\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2148
msgid ""
"The handler specifies condition name @code{arith-error} so that it will "
"handle only division-by-zero errors.  Other kinds of errors will not be "
"handled (by this @code{condition-case}).  Thus:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2153
#, no-wrap
msgid ""
"(safe-divide nil 3)\n"
"     @error{} Wrong type argument: number-or-marker-p, nil\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2158
msgid ""
"Here is a @code{condition-case} that catches all kinds of errors, including "
"those from @code{error}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2163
#, no-wrap
msgid ""
"(setq baz 34)\n"
"     @result{} 34\n"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2176
#, no-wrap
msgid ""
"(condition-case err\n"
"    (if (eq baz 35)\n"
"        t\n"
"      ;; @r{This is a call to the function @code{error}.}\n"
"      (error \"Rats!  The variable %s was %s, not 35\" 'baz baz))\n"
"  ;; @r{This is the handler; it is not a form.}\n"
"  (error (princ (format \"The error was: %s\" err))\n"
"         2))\n"
"@print{} The error was: (error \"Rats!  The variable baz was 34, not 35\")\n"
"@result{} 2\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2179
#, no-wrap
msgid "ignore-errors body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2184
msgid ""
"This construct executes @var{body}, ignoring any errors that occur during "
"its execution.  If the execution is without error, @code{ignore-errors} "
"returns the value of the last form in @var{body}; otherwise, it returns "
"@code{nil}."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2187
msgid ""
"Here's the example at the beginning of this subsection rewritten using "
"@code{ignore-errors}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2192
#, no-wrap
msgid ""
"  (ignore-errors\n"
"   (delete-file filename))\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2196
#, no-wrap
msgid "ignore-error condition body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2199
msgid ""
"This macro is like @code{ignore-errors}, but will only ignore the specific "
"error condition specified."
msgstr ""

#. type: example
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2203
#, no-wrap
msgid ""
"  (ignore-error end-of-file\n"
"    (read \"\"))\n"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2206
msgid "@var{condition} can also be a list of error conditions."
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2208
#, no-wrap
msgid "with-demoted-errors format body@dots{}"
msgstr ""

#. type: defmac
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2217
msgid ""
"This macro is like a milder version of @code{ignore-errors}.  Rather than "
"suppressing errors altogether, it converts them into messages.  It uses the "
"string @var{format} to format the message.  @var{format} should contain a "
"single @samp{%}-sequence; e.g., @code{\"Error: %S\"}.  Use "
"@code{with-demoted-errors} around code that is not expected to signal "
"errors, but should be robust if one does occur.  Note that this macro uses "
"@code{condition-case-unless-debug} rather than @code{condition-case}."
msgstr ""

#. type: subsubsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2220
#, no-wrap
msgid "Error Symbols and Condition Names"
msgstr ""

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

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

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

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2224
#, no-wrap
msgid "user-defined error"
msgstr ""

#. type: kindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2225
#, no-wrap
msgid "error-conditions"
msgstr ""

#. type: kindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2226
#, no-wrap
msgid "define-error"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2232
msgid ""
"When you signal an error, you specify an @dfn{error symbol} to specify the "
"kind of error you have in mind.  Each error has one and only one error "
"symbol to categorize it.  This is the finest classification of errors "
"defined by the Emacs Lisp language."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2242
msgid ""
"These narrow classifications are grouped into a hierarchy of wider classes "
"called @dfn{error conditions}, identified by @dfn{condition names}.  The "
"narrowest such classes belong to the error symbols themselves: each error "
"symbol is also a condition name.  There are also condition names for more "
"extensive classes, up to the condition name @code{error} which takes in all "
"kinds of errors (but not @code{quit}).  Thus, each error has one or more "
"condition names: @code{error}, the error symbol if that is distinct from "
"@code{error}, and perhaps some intermediate classifications."
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2243
#, no-wrap
msgid "define-error name message &optional parent"
msgstr ""

#. type: defun
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2250
msgid ""
"In order for a symbol to be an error symbol, it must be defined with "
"@code{define-error} which takes a parent condition (defaults to "
"@code{error}).  This parent defines the conditions that this kind of error "
"belongs to.  The transitive set of parents always includes the error symbol "
"itself, and the symbol @code{error}.  Because quitting is not considered an "
"error, the set of parents of @code{quit} is just @code{(quit)}."
msgstr ""

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

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2257
msgid ""
"In addition to its parents, the error symbol has a @var{message} which is a "
"string to be printed when that error is signaled but not handled.  If that "
"message is not valid, the error message @samp{peculiar error} is used.  "
"@xref{Definition of signal}."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2261
msgid ""
"Internally, the set of parents is stored in the @code{error-conditions} "
"property of the error symbol and the message is stored in the "
"@code{error-message} property of the error symbol."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2263
msgid "Here is how we define a new error symbol, @code{new-error}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2267
#, no-wrap
msgid "(define-error 'new-error \"A new error\" 'my-own-errors)\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2275
msgid ""
"This error has several condition names: @code{new-error}, the narrowest "
"classification; @code{my-own-errors}, which we imagine is a wider "
"classification; and all the conditions of @code{my-own-errors} which should "
"include @code{error}, which is the widest of all."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2278
msgid ""
"The error string should start with a capital letter but it should not end "
"with a period.  This is for consistency with the rest of Emacs."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2282
msgid ""
"Naturally, Emacs will never signal @code{new-error} on its own; only an "
"explicit call to @code{signal} (@pxref{Definition of signal}) in your code "
"can do this:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2287
#, no-wrap
msgid ""
"(signal 'new-error '(x y))\n"
"     @error{} A new error: x, y\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2293
msgid ""
"This error can be handled through any of its condition names.  This example "
"handles @code{new-error} and any other errors in the class "
"@code{my-own-errors}:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2299
#, no-wrap
msgid ""
"(condition-case foo\n"
"    (bar nil t)\n"
"  (my-own-errors nil))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2307
msgid ""
"The significant way that errors are classified is by their condition "
"names---the names used to match errors with handlers.  An error symbol "
"serves only as a convenient way to specify the intended error message and "
"list of condition names.  It would be cumbersome to give @code{signal} a "
"list of condition names rather than one error symbol."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2313
msgid ""
"By contrast, using only error symbols without condition names would "
"seriously decrease the power of @code{condition-case}.  Condition names make "
"it possible to categorize errors at various levels of generality when you "
"write an error handler.  Using error symbols alone would eliminate all but "
"the narrowest level of classification."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2316
msgid ""
"@xref{Standard Errors}, for a list of the main error symbols and their "
"conditions."
msgstr ""

#. type: subsection
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2318
#, no-wrap
msgid "Cleaning Up from Nonlocal Exits"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2319
#, no-wrap
msgid "nonlocal exits, cleaning up"
msgstr ""

#. type: cindex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2320
#, no-wrap
msgid "forms for cleanup"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2328
msgid ""
"The @code{unwind-protect} construct is essential whenever you temporarily "
"put a data structure in an inconsistent state; it permits you to make the "
"data consistent again in the event of an error or throw.  (Another more "
"specific cleanup construct that is used only for changes in buffer contents "
"is the atomic change group; @ref{Atomic Changes}.)"
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2329
#, no-wrap
msgid "unwind-protect body-form cleanup-forms@dots{}"
msgstr ""

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

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

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

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

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2340
msgid ""
"@code{unwind-protect} executes @var{body-form} with a guarantee that the "
"@var{cleanup-forms} will be evaluated if control leaves @var{body-form}, no "
"matter how that happens.  @var{body-form} may complete normally, or execute "
"a @code{throw} out of the @code{unwind-protect}, or cause an error; in all "
"cases, the @var{cleanup-forms} will be evaluated."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2345
msgid ""
"If @var{body-form} finishes normally, @code{unwind-protect} returns the "
"value of @var{body-form}, after it evaluates the @var{cleanup-forms}.  If "
"@var{body-form} does not finish, @code{unwind-protect} does not return any "
"value in the normal sense."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2352
msgid ""
"Only @var{body-form} is protected by the @code{unwind-protect}.  If any of "
"the @var{cleanup-forms} themselves exits nonlocally (via a @code{throw} or "
"an error), @code{unwind-protect} is @emph{not} guaranteed to evaluate the "
"rest of them.  If the failure of one of the @var{cleanup-forms} has the "
"potential to cause trouble, then protect it with another "
"@code{unwind-protect} around that form."
msgstr ""

#. type: defspec
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2357
msgid ""
"The number of currently active @code{unwind-protect} forms counts, together "
"with the number of local variable bindings, against the limit "
"@code{max-specpdl-size} (@pxref{Definition of max-specpdl-size,, Local "
"Variables})."
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2361
msgid ""
"For example, here we make an invisible buffer for temporary use, and make "
"sure to kill it before finishing:"
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2369
#, no-wrap
msgid ""
"(let ((buffer (get-buffer-create \" *temp*\")))\n"
"  (with-current-buffer buffer\n"
"    (unwind-protect\n"
"        @var{body-form}\n"
"      (kill-buffer buffer))))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2380
msgid ""
"You might think that we could just as well write @code{(kill-buffer "
"(current-buffer))} and dispense with the variable @code{buffer}.  However, "
"the way shown above is safer, if @var{body-form} happens to get an error "
"after switching to a different buffer! (Alternatively, you could write a "
"@code{save-current-buffer} around @var{body-form}, to ensure that the "
"temporary buffer becomes current again in time to kill it.)"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2385
msgid ""
"Emacs includes a standard macro called @code{with-temp-buffer} which expands "
"into more or less the code shown above (@pxref{Definition of "
"with-temp-buffer,, Current Buffer}).  Several of the macros defined in this "
"manual use @code{unwind-protect} in this way."
msgstr ""

#. type: findex
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2386
#, no-wrap
msgid "ftp-login"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2394
msgid ""
"Here is an actual example derived from an FTP package.  It creates a process "
"(@pxref{Processes}) to try to establish a connection to a remote machine.  "
"As the function @code{ftp-login} is highly susceptible to numerous problems "
"that the writer of the function cannot anticipate, it is protected with a "
"form that guarantees deletion of the process in the event of failure.  "
"Otherwise, Emacs might fill up with useless subprocesses."
msgstr ""

#. type: group
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2405
#, no-wrap
msgid ""
"(let ((win nil))\n"
"  (unwind-protect\n"
"      (progn\n"
"        (setq process (ftp-setup-buffer host file))\n"
"        (if (setq win (ftp-login process host user password))\n"
"            (message \"Logged in\")\n"
"          (error \"Ftp login failed\")))\n"
"    (or win (and process (delete-process process)))))\n"
msgstr ""

#. type: Plain text
#: /Users/suzume/Documents/Repositories/Projet OmegaT de Documentation Emacs -
#: Sources/doc/lispref/control.texi:2412
msgid ""
"This example has a small bug: if the user types @kbd{C-g} to quit, and the "
"quit happens immediately after the function @code{ftp-setup-buffer} returns "
"but before the variable @code{process} is set, the process will not be "
"killed.  There is no easy way to fix this bug, but at least it is very "
"unlikely."
msgstr ""