entered into RCS

1 files changed, 84 insertions, 0 deletions

diff --git a/lisp/term/internal.el b/lisp/term/internal.el
new file mode 100644
index 00000000000..164b54e4efb
--- /dev/null
+++ b/lisp/term/internal.el
@@ -0,0 +1,84 @@
+;; internal.el -- setup support for PC keyboards and screens, internal terminal
+
+;; Copyright (C) 1993 Free Software Foundation, Inc.
+
+;; Author: Morten Welinder <terra@diku.dk>
+;; Version: 1,01
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; ---------------------------------------------------------------------------
+;; screen setup -- that's easy!
+(standard-display-8bit 127 254)
+;; ---------------------------------------------------------------------------
+;; keyboard setup -- that's simple!
+(set-input-mode nil nil 0)
+(define-key global-map [mouse-1] 'mouse-set-point)
+(define-key function-key-map [backspace] "\177") ; Normal behaviour for BS
+(define-key function-key-map [delete] "\C-d")    ; ... and Delete
+(define-key function-key-map [tab] [?\t])
+(define-key function-key-map [linefeed] [?\n])
+(define-key function-key-map [clear] [11])
+(define-key function-key-map [return] [13])
+(define-key function-key-map [escape] [?\e])
+(define-key function-key-map [M-backspace] [?\M-\d])
+(define-key function-key-map [M-delete] [?\M-\d])
+(define-key function-key-map [M-tab] [?\M-\t])
+(define-key function-key-map [M-linefeed] [?\M-\n])
+(define-key function-key-map [M-clear] [?\M-\013])
+(define-key function-key-map [M-return] [?\M-\015])
+(define-key function-key-map [M-escape] [?\M-\e])
+(put 'backspace 'ascii-character 127)
+(put 'delete 'ascii-character 127)
+(put 'tab 'ascii-character ?\t)
+(put 'linefeed 'ascii-character ?\n)
+(put 'clear 'ascii-character 12)
+(put 'return 'ascii-character 13)
+(put 'escape 'ascii-character ?\e)
+;; ---------------------------------------------------------------------------
+;; We want to do this when Emacs is started because one day it will depend
+;; on the country code.
+(let* ((i 128)
+      (modify (function
+	       (lambda (ch sy) 
+		 (modify-syntax-entry ch sy text-mode-syntax-table)
+		 (if (boundp 'tex-mode-syntax-table)
+		     (modify-syntax-entry ch sy tex-mode-syntax-table))
+		 (modify-syntax-entry ch sy (standard-syntax-table))
+		 )))
+      (downs (car (standard-case-table)))
+      (ups (car (cdr (standard-case-table))))
+      (chars "‡€š‚ƒA„Ž…A†ˆE‰EŠE‹IŒII‘’“O”™•O–UĢU˜Y› AĄIĒOĢUĪĨ"))
+  (while (< i 256)
+    (funcall modify i "_")
+    (setq i (1+ i)))
+
+  (setq i 0)
+  (while (< i (length chars))
+    (let ((ch1 (aref chars i))
+	  (ch2 (aref chars (1+ i))))
+      (funcall modify ch1 "w")
+      (funcall modify ch2 "w")
+      (aset ups ch1 ch2)
+      (if (> ch2 127)
+	  (aset downs ch2 ch1))
+      (setq i (+ i 2))))
+  (let ((table (list downs ups nil nil)))
+    (save-excursion
+      (mapcar (lambda (b) (progn (set-buffer b) (set-case-table table)))
+	      (buffer-list)))
+    (set-standard-case-table table))
+  )