Mercurial > hg > xemacs-beta

comparison lisp/term/internal.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children a4f53d9b3154
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;; internal.el -- setup support for PC keyboards and screens, internal terminal
2
3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
4
5 ;; Author: Morten Welinder <terra@diku.dk>
6 ;; Version: 1,02
7
8 ;; This file is part of GNU Emacs.
9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23 ;; ---------------------------------------------------------------------------
24 ;; screen setup -- that's easy!
25 (standard-display-8bit 127 254)
26 ;; ---------------------------------------------------------------------------
27 ;; keyboard setup -- that's simple!
28 (set-input-mode nil nil 0)
29 (define-key function-key-map [backspace] "\177") ; Normal behaviour for BS
30 (define-key function-key-map [delete] "\C-d") ; ... and Delete
31 (define-key function-key-map [tab] [?\t])
32 (define-key function-key-map [linefeed] [?\n])
33 (define-key function-key-map [clear] [11])
34 (define-key function-key-map [return] [13])
35 (define-key function-key-map [escape] [?\e])
36 (define-key function-key-map [M-backspace] [?\M-\d])
37 (define-key function-key-map [M-delete] [?\M-\d])
38 (define-key function-key-map [M-tab] [?\M-\t])
39 (define-key function-key-map [M-linefeed] [?\M-\n])
40 (define-key function-key-map [M-clear] [?\M-\013])
41 (define-key function-key-map [M-return] [?\M-\015])
42 (define-key function-key-map [M-escape] [?\M-\e])
43
44 ;; ---------------------------------------------------------------------------
45 ;; We want to do this when Emacs is started because it depends on the
46 ;; country code.
47 (let* ((i 128)
48 (modify (function
49 (lambda (ch sy)
50 (modify-syntax-entry ch sy text-mode-syntax-table)
51 (if (boundp 'tex-mode-syntax-table)
52 (modify-syntax-entry ch sy tex-mode-syntax-table))
53 (modify-syntax-entry ch sy (standard-syntax-table))
54 )))
55 (table (standard-case-table))
56 ;; The following are strings of letters, first lower then upper case.
57 ;; This will look funny on terminals which display other code pages.
58 (chars
59 (cond
60 ((= dos-codepage 850)
61 "‡€š‚ƒķ„Ž…·†ÆĮ ĩˆŌ‰ÓŠÔ‹ØŒŨÞĄÖ‘’“â”™•ãĒā›–ęĢé—ë˜YėíĄIĢéĪĨÐŅįč")
62 ((= dos-codepage 865)
63 "‡€š‚ƒA„Ž…A†ˆE‰EŠE‹IŒII‘’“O”™•O–UĢU˜Y› AĄIĒOĢUĪĨ")
64 ;; default is 437
65 (t "‡€š‚ƒA„Ž…A†ˆE‰EŠE‹IŒII‘’“O”™•O–UĢU˜Y AĄIĒOĢUĪĨ"))))
66
67 (while (< i 256)
68 (funcall modify i "_")
69 (setq i (1+ i)))
70
71 (setq i 0)
72 (while (< i (length chars))
73 (let ((ch1 (aref chars i))
74 (ch2 (aref chars (1+ i))))
75 (if (> ch2 127)
76 (set-case-syntax-pair ch2 ch1 table))
77 (setq i (+ i 2))))
78 (save-excursion
79 (mapcar (lambda (b) (set-buffer b) (set-case-table table))
80 (buffer-list)))
81 (set-standard-case-table table))