Mercurial > emacs
comparison lisp/term/internal.el @ 23811:acb8e52c578d
Remove code that sets syntax table for non-ASCII characters.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Thu, 03 Dec 1998 09:29:14 +0000 |
parents | 847fbc8725a9 |
children | 73c3dcc21ced |
comparison
equal
deleted
inserted
replaced
23810:e473bf3419a9 | 23811:acb8e52c578d |
---|---|
49 (put 'linefeed 'ascii-character ?\n) | 49 (put 'linefeed 'ascii-character ?\n) |
50 (put 'clear 'ascii-character 12) | 50 (put 'clear 'ascii-character 12) |
51 (put 'return 'ascii-character 13) | 51 (put 'return 'ascii-character 13) |
52 (put 'escape 'ascii-character ?\e) | 52 (put 'escape 'ascii-character ?\e) |
53 ;; --------------------------------------------------------------------------- | 53 ;; --------------------------------------------------------------------------- |
54 ;; We want to do this when Emacs is started because it depends on the | |
55 ;; country code. | |
56 (let* ((i 128) | |
57 (modify (function | |
58 (lambda (ch sy) | |
59 (modify-syntax-entry ch sy text-mode-syntax-table) | |
60 (if (boundp 'tex-mode-syntax-table) | |
61 (modify-syntax-entry ch sy tex-mode-syntax-table)) | |
62 (modify-syntax-entry ch sy (standard-syntax-table)) | |
63 ))) | |
64 (table (standard-case-table)) | |
65 ;; The following are strings of letters, first lower then upper case. | |
66 ;; This will look funny on terminals which display other code pages. | |
67 (chars | |
68 (cond | |
69 ((= dos-codepage 850) | |
70 "ķ ·ÆĮ ĩŌÓÔØŨÞĄÖâãĒāęĢéëYėíĄIĢéĪĨÐŅįč") | |
71 ((= dos-codepage 865) | |
72 "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ") | |
73 ;; default is 437 | |
74 (t "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ")))) | |
75 | |
76 (while (< i 256) | |
77 (funcall modify i "_") | |
78 (setq i (1+ i))) | |
79 | |
80 (setq i 0) | |
81 (while (< i (length chars)) | |
82 (let ((ch1 (aref chars i)) | |
83 (ch2 (aref chars (1+ i)))) | |
84 (if (> ch2 127) | |
85 (set-case-syntax-pair ch2 ch1 table)) | |
86 (setq i (+ i 2)))) | |
87 (save-excursion | |
88 (mapcar (lambda (b) (set-buffer b) (set-case-table table)) | |
89 (buffer-list))) | |
90 (set-standard-case-table table)) | |
91 | 54 |
92 ;;; internal.el ends here | 55 ;;; internal.el ends here |
93 | 56 |