1 files changed, 3 insertions, 3 deletions

diff --git a/doc/lispref/syntax.texi b/doc/lispref/syntax.texi
index 90daf34f0dc..3ab1e9d81d8 100644
--- a/doc/lispref/syntax.texi
+++ b/doc/lispref/syntax.texi
@@ -1089,13 +1089,13 @@ and using it in a special category table:
 @example
 (defvar special-category-table-for-bidi
   (let ((category-table (make-category-table))
-        (uniprop-table (unicode-property-table-internal 'bidi-class)))
+        (uniprop-table (unicode-property-table-internal 'bidi-class)))
     (define-category ?R "Characters of bidi-class R, AL, or RLO"
                      category-table)
     (map-char-table
      #'(lambda (key val)
-         (if (memq val '(R AL RLO))
-             (modify-category-entry key ?R category-table)))
+         (if (memq val '(R AL RLO))
+             (modify-category-entry key ?R category-table)))
      uniprop-table)
     category-table))
 @end example