Subject: Emacs terminal setup for pccons console (TERM=pc3)
To: None <current-users@sun-lamp.cs.berkeley.edu>
From: Mike Long <mike.long@analog.com>
List: current-users
Date: 07/25/1994 22:37:04
It was in the course of creating this that I found that small problem
with termcap. It's mostly a copy of AT386.el, but nonetheless I'd
appreciate it if any changes made their way back to me. Install it
somewhere in your Emacs load-path as term/pc3.el :
;; pc3.el --- terminal support package for *BSD console (based on AT386.el)
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Maintainer: Mike Long <mike.long@analog.com>
;; Keywords: terminals
;; Copyright (C) 1992 Free Software Foundation, Inc.
;; Copyright (C) 1994 Mike Long.
;; This file is (not yet) 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.
;;; Commentary:
;;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
;;; Code:
(if (boundp 'pc3-keypad-map)
nil
;; The terminal initialization should already have set up some keys
(let ((map (lookup-key function-key-map "\e[")))
(if (not (keymapp map))
(error "No termcap/terminfo entry for pc3 nor ibmpc3."))
;; These are not normally set up by termcap
(define-key map "H" [home])
(define-key map "F" [end])
(define-key map "L" [insert])
(define-key map "W" [f11])
(define-key map "X" [f12])
;; I don't know what to do with S-F1, C-F1, C-S-F1, &c.
map))
(defvar pc3-keypad-map nil "Keymap for *BSD pccons console.")
(define-key function-key-map "\e[" pc3-keypad-map)
;;; end of pc3.el
--
Mike Long Mike.Long@Analog.com
VLSI Design Engineer (PGP 2.6 public key available)
Analog Devices, CPD Division
Norwood, MA 02062 USA assert(*this!=opinionof(Analog));
------------------------------------------------------------------------------