comparison lispref/sequences.texi @ 22252:40089afa2b1d

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Tue, 26 May 1998 18:56:56 +0000
parents d4ac295a98b3
children 467b88fab665
comparison
equal deleted inserted replaced
22251:5989fa41cda6 22252:40089afa2b1d
635 @end table 635 @end table
636 @end defun 636 @end defun
637 637
638 @defun set-char-table-range char-table range value 638 @defun set-char-table-range char-table range value
639 @tindex set-char-table-range 639 @tindex set-char-table-range
640 This function set the value in @var{char-table} for a range of 640 This function sets the value in @var{char-table} for a range of
641 characters @var{range}. Here are the possibilities for @var{range}: 641 characters @var{range}. Here are the possibilities for @var{range}:
642 642
643 @table @asis 643 @table @asis
644 @item @code{nil} 644 @item @code{nil}
645 Refers to the default value. 645 Refers to the default value.
676 The return value is always @code{nil}; to make this function useful, 676 The return value is always @code{nil}; to make this function useful,
677 @var{function} should have side effects. For example, 677 @var{function} should have side effects. For example,
678 here is how to examine each element of the syntax table: 678 here is how to examine each element of the syntax table:
679 679
680 @example 680 @example
681 (map-char-table 681 (let (accumulator)
682 #'(lambda (key value) 682 (map-char-table
683 (setq accumulator 683 #'(lambda (key value)
684 (cons (list key value) accumulator))) 684 (setq accumulator
685 (syntax-table)) 685 (cons (list key value) accumulator)))
686 (syntax-table))
687 accumulator)
686 @result{} 688 @result{}
687 ((475008 nil) (474880 nil) (474752 nil) (474624 nil) 689 ((475008 nil) (474880 nil) (474752 nil) (474624 nil)
688 ... (5 (3)) (4 (3)) (3 (3)) (2 (3)) (1 (3)) (0 (3))) 690 ... (5 (3)) (4 (3)) (3 (3)) (2 (3)) (1 (3)) (0 (3)))
689 @end example 691 @end example
690 @end defun 692 @end defun