- (cond ((syntax-table-p table))
- ((not table)
- (setq table (syntax-table)))
- (t
- (setq table
- (wrong-type-argument 'syntax-table-p table))))
- (let ((code (syntax-string-to-code spec)))
- (simple-set-syntax-entry char-range code table))
+ (simple-set-syntax-entry
+ char-range
+ (syntax-string-to-code spec)
+ (cond ((syntax-table-p syntax-table)
+ syntax-table)
+ ((null syntax-table)
+ (syntax-table))
+ (t
+ (wrong-type-argument 'syntax-table-p syntax-table))))