diff options
| author | Richard M. Stallman | 1995-10-11 17:14:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-10-11 17:14:08 +0000 |
| commit | a6889c57ba6a25e6616cd65305295e97e8581047 (patch) | |
| tree | e8e536a6881c030075e289703639a4fc1f943a35 | |
| parent | d44f12b46b15b40b9caa139c08d02f79f5ee114b (diff) | |
| download | emacs-a6889c57ba6a25e6616cd65305295e97e8581047.tar.gz emacs-a6889c57ba6a25e6616cd65305295e97e8581047.zip | |
(make-syntax-table): Use nil for "inherit".
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index fdf189c6851..38c8376e8e5 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -782,19 +782,19 @@ syntax table; other characters are copied from the standard syntax table." | |||
| 782 | i) | 782 | i) |
| 783 | (setq i 0) | 783 | (setq i 0) |
| 784 | (while (<= i 31) | 784 | (while (<= i 31) |
| 785 | (aset table i 13) | 785 | (aset table i nil) |
| 786 | (setq i (1+ i))) | 786 | (setq i (1+ i))) |
| 787 | (setq i ?A) | 787 | (setq i ?A) |
| 788 | (while (<= i ?Z) | 788 | (while (<= i ?Z) |
| 789 | (aset table i 13) | 789 | (aset table i nil) |
| 790 | (setq i (1+ i))) | 790 | (setq i (1+ i))) |
| 791 | (setq i ?a) | 791 | (setq i ?a) |
| 792 | (while (<= i ?z) | 792 | (while (<= i ?z) |
| 793 | (aset table i 13) | 793 | (aset table i nil) |
| 794 | (setq i (1+ i))) | 794 | (setq i (1+ i))) |
| 795 | (setq i 128) | 795 | (setq i 128) |
| 796 | (while (<= i 255) | 796 | (while (<= i 255) |
| 797 | (aset table i 13) | 797 | (aset table i nil) |
| 798 | (setq i (1+ i))) | 798 | (setq i (1+ i))) |
| 799 | table))) | 799 | table))) |
| 800 | 800 | ||