Mercurial > emacs
annotate lisp/term/internal.el @ 17556:c0f8f4264f7a
(x_set_menu_bar_lines): Increment windows_or_buffers_changed.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 25 Apr 1997 04:47:13 +0000 |
parents | 8f952e921136 |
children | e5094e386200 |
rev | line source |
---|---|
17517 | 1 ;;; internal.el ---support for PC keyboards and screens, internal terminal |
5444 | 2 |
7233
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. |
5444 | 4 |
5 ;; Author: Morten Welinder <terra@diku.dk> | |
6 | |
7 ;; This file is part of GNU Emacs. | |
8 | |
9 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
10 ;; it under the terms of the GNU General Public License as published by | |
11 ;; the Free Software Foundation; either version 2, or (at your option) | |
12 ;; any later version. | |
13 | |
14 ;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 ;; GNU General Public License for more details. | |
18 | |
19 ;; You should have received a copy of the GNU General Public License | |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
22 ;; Boston, MA 02111-1307, USA. |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
23 |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
24 ;;; Code: |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
13483
diff
changeset
|
25 |
5444 | 26 ;; --------------------------------------------------------------------------- |
27 ;; screen setup -- that's easy! | |
28 (standard-display-8bit 127 254) | |
29 ;; --------------------------------------------------------------------------- | |
30 ;; keyboard setup -- that's simple! | |
31 (set-input-mode nil nil 0) | |
32 (define-key function-key-map [backspace] "\177") ; Normal behaviour for BS | |
33 (define-key function-key-map [delete] "\C-d") ; ... and Delete | |
34 (define-key function-key-map [tab] [?\t]) | |
35 (define-key function-key-map [linefeed] [?\n]) | |
36 (define-key function-key-map [clear] [11]) | |
37 (define-key function-key-map [return] [13]) | |
38 (define-key function-key-map [escape] [?\e]) | |
39 (define-key function-key-map [M-backspace] [?\M-\d]) | |
40 (define-key function-key-map [M-delete] [?\M-\d]) | |
41 (define-key function-key-map [M-tab] [?\M-\t]) | |
42 (define-key function-key-map [M-linefeed] [?\M-\n]) | |
43 (define-key function-key-map [M-clear] [?\M-\013]) | |
44 (define-key function-key-map [M-return] [?\M-\015]) | |
45 (define-key function-key-map [M-escape] [?\M-\e]) | |
46 (put 'backspace 'ascii-character 127) | |
47 (put 'delete 'ascii-character 127) | |
48 (put 'tab 'ascii-character ?\t) | |
49 (put 'linefeed 'ascii-character ?\n) | |
50 (put 'clear 'ascii-character 12) | |
51 (put 'return 'ascii-character 13) | |
52 (put 'escape 'ascii-character ?\e) | |
53 ;; --------------------------------------------------------------------------- | |
7233
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
54 ;; We want to do this when Emacs is started because it depends on the |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
55 ;; country code. |
5444 | 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 ))) | |
13483
6ae78193650e
Rewrite for new case tables.
Richard M. Stallman <rms@gnu.org>
parents:
7233
diff
changeset
|
64 (table (standard-case-table)) |
7233
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
65 ;; The following are strings of letters, first lower then upper case. |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
66 ;; This will look funny on terminals which display other code pages. |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
67 (chars |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
68 (cond |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
69 ((= dos-codepage 850) |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
70 "ķ ·ÆĮ ĩŌÓÔØŨÞĄÖâãĒāęĢéëYėíĄIĢéĪĨÐŅįč") |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
71 ((= dos-codepage 865) |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
72 "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ") |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
73 ;; default is 437 |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
74 (t "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ")))) |
da74d15b3571
Don't bind [mouse-1]; that's done elsewhere.
Richard M. Stallman <rms@gnu.org>
parents:
5444
diff
changeset
|
75 |
5444 | 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) | |
13483
6ae78193650e
Rewrite for new case tables.
Richard M. Stallman <rms@gnu.org>
parents:
7233
diff
changeset
|
85 (set-case-syntax-pair ch2 ch1 table)) |
5444 | 86 (setq i (+ i 2)))) |
13483
6ae78193650e
Rewrite for new case tables.
Richard M. Stallman <rms@gnu.org>
parents:
7233
diff
changeset
|
87 (save-excursion |
6ae78193650e
Rewrite for new case tables.
Richard M. Stallman <rms@gnu.org>
parents:
7233
diff
changeset
|
88 (mapcar (lambda (b) (set-buffer b) (set-case-table table)) |
6ae78193650e
Rewrite for new case tables.
Richard M. Stallman <rms@gnu.org>
parents:
7233
diff
changeset
|
89 (buffer-list))) |
6ae78193650e
Rewrite for new case tables.
Richard M. Stallman <rms@gnu.org>
parents:
7233
diff
changeset
|
90 (set-standard-case-table table)) |
17517 | 91 |
92 ;;; internal.el ends here | |
93 |