From: Glenn Morris <rgm@gnu.org>
Date: Thu, 9 Oct 2014 17:36:02 +0000 (-0400)
Subject: * doc/lispref/control.texi: Avoid overfull hbox.
X-Git-Tag: emacs-24.4-rc1~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b9ecf78f03bcea9fe4c61dd863993203e24f34d;p=emacs.git

* doc/lispref/control.texi: Avoid overfull hbox.
---

diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi
index edf60dd5cc8..800e174d3fc 100644
--- a/doc/lispref/control.texi
+++ b/doc/lispref/control.texi
@@ -328,13 +328,13 @@ lexical binding):
 @example
 (defun evaluate (exp env)
   (pcase exp
-    (`(add ,x ,y)         (+ (evaluate x env) (evaluate y env)))
-    (`(call ,fun ,arg)    (funcall (evaluate fun env) (evaluate arg env)))
-    (`(fn ,arg ,body)     (lambda (val)
-                            (evaluate body (cons (cons arg val) env))))
-    ((pred numberp)       exp)
-    ((pred symbolp)       (cdr (assq exp env)))
-    (_                    (error "Unknown expression %S" exp))))
+    (`(add ,x ,y)       (+ (evaluate x env) (evaluate y env)))
+    (`(call ,fun ,arg)  (funcall (evaluate fun env) (evaluate arg env)))
+    (`(fn ,arg ,body)   (lambda (val)
+                          (evaluate body (cons (cons arg val) env))))
+    ((pred numberp)     exp)
+    ((pred symbolp)     (cdr (assq exp env)))
+    (_                  (error "Unknown expression %S" exp))))
 @end example
 
 Where @code{`(add ,x ,y)} is a pattern that checks that @code{exp} is a three