1997-09-11 17:51:36 +00:00
|
|
|
;;; internal.el --- support for PC internal terminal -*- coding: raw-text; -*-
|
1994-01-05 23:56:57 +00:00
|
|
|
|
1994-04-30 20:40:34 +00:00
|
|
|
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
1994-01-05 23:56:57 +00:00
|
|
|
|
|
|
|
|
;; Author: Morten Welinder <terra@diku.dk>
|
|
|
|
|
|
|
|
|
|
;; 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
|
1996-01-14 09:58:28 +00:00
|
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
|
|
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
|
;; Boston, MA 02111-1307, USA.
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
1994-01-05 23:56:57 +00:00
|
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
|
;; screen setup -- that's easy!
|
|
|
|
|
(standard-display-8bit 127 254)
|
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
|
;; keyboard setup -- that's simple!
|
|
|
|
|
(set-input-mode nil nil 0)
|
|
|
|
|
(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)
|
|
|
|
|
;; ---------------------------------------------------------------------------
|
1997-04-20 07:33:52 +00:00
|
|
|
|
|
|
|
|
;;; internal.el ends here
|
|
|
|
|
|
