diff lispref/sequences.texi @ 22252:40089afa2b1d

*** empty log message ***

--- a/lispref/sequences.texi	Tue May 26 18:27:47 1998 +0000
+++ b/lispref/sequences.texi	Tue May 26 18:56:56 1998 +0000
@@ -637,7 +637,7 @@
 
 @defun set-char-table-range char-table range value
 @tindex set-char-table-range
-This function set the value in @var{char-table} for a range of
+This function sets the value in @var{char-table} for a range of
 characters @var{range}.  Here are the possibilities for @var{range}:
 
 @table @asis
@@ -678,11 +678,13 @@
 here is how to examine each element of the syntax table:
 
 @example
-(map-char-table
- #'(lambda (key value)
-     (setq accumulator
-           (cons (list key value) accumulator)))
- (syntax-table))
+(let (accumulator)
+  (map-char-table
+   #'(lambda (key value)
+       (setq accumulator
+             (cons (list key value) accumulator)))
+   (syntax-table))
+  accumulator)
 @result{}
 ((475008 nil) (474880 nil) (474752 nil) (474624 nil)
  ... (5 (3)) (4 (3)) (3 (3)) (2 (3)) (1 (3)) (0 (3)))