428
+ − 1 ;; news.el --- keypad and function key bindings for the Sony NEWS keyboard
+ − 2
+ − 3 ;; Author: FSF
+ − 4 ;; Keywords: terminals
+ − 5
+ − 6 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
+ − 7
+ − 8 ;;; This file is part of XEmacs.
+ − 9 ;;;
+ − 10 ;;; XEmacs is free software; you can redistribute it and/or modify it
+ − 11 ;;; under the terms of the GNU General Public License as published by
+ − 12 ;;; the Free Software Foundation; either version 2, or (at your
+ − 13 ;;; option) any later version.
+ − 14 ;;;
+ − 15 ;;; XEmacs is distributed in the hope that it will be useful, but
+ − 16 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+ − 17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ − 18 ;;; General Public License for more details.
+ − 19 ;;;
+ − 20 ;;; You should have received a copy of the GNU General Public License
+ − 21 ;;; along with XEmacs; see the file COPYING. If not, write to the
+ − 22 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 23 ;;; Boston, MA 02111-1307, USA.
+ − 24
622
+ − 25 ;;; Synched up with: FSF 21.0.103.
+ − 26
428
+ − 27 ;;; Commentary:
+ − 28
+ − 29 ;;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
+ − 30
+ − 31 ;;; Code:
+ − 32
622
+ − 33 (defvar news-fkey-prefix)
+ − 34
428
+ − 35 (if (boundp 'news-fkey-prefix)
+ − 36 nil
+ − 37 ;; The terminal initialization should already have set up some keys
+ − 38 (setq news-fkey-prefix (lookup-key function-key-map "\eO"))
+ − 39 (if (not (keymapp news-fkey-prefix))
+ − 40 (error "What? Your news termcap/terminfo has no keycaps in it."))
+ − 41
+ − 42 ;; Termcap or terminfo will set these
+ − 43 ;; (define-key news-fkey-prefix "P" [f1])
+ − 44 ;; (define-key news-fkey-prefix "Q" [f2])
+ − 45 ;; (define-key news-fkey-prefix "R" [f3])
+ − 46 ;; (define-key news-fkey-prefix "S" [f4])
+ − 47 ;; (define-key news-fkey-prefix "T" [f5])
+ − 48 ;; (define-key news-fkey-prefix "U" [f6])
+ − 49 ;; (define-key news-fkey-prefix "V" [f7])
+ − 50 ;; (define-key news-fkey-prefix "W" [f8])
+ − 51 ;; (define-key news-fkey-prefix "X" [f9])
+ − 52 ;; (define-key news-fkey-prefix "Y" [f10])
+ − 53
+ − 54 ;; Terminfo will set these
+ − 55 (define-key news-fkey-prefix "a" [execute])
+ − 56 (define-key news-fkey-prefix "b" [select])
+ − 57 (define-key news-fkey-prefix "c" [cancel])
+ − 58 (define-key news-fkey-prefix "M" [kp-enter])
+ − 59 (define-key news-fkey-prefix "q" [kp-1])
+ − 60 (define-key news-fkey-prefix "s" [kp-3])
+ − 61 (define-key news-fkey-prefix "u" [kp-5])
+ − 62 (define-key news-fkey-prefix "w" [kp-7])
+ − 63 (define-key news-fkey-prefix "y" [kp-9])
+ − 64
+ − 65 ;; These aren't in either termcap or terminfo's repertoire
+ − 66 (define-key news-fkey-prefix "m" [kp-subtract])
+ − 67 (define-key news-fkey-prefix "k" [kp-add])
+ − 68 (define-key news-fkey-prefix "l" [kp-separator])
+ − 69 (define-key news-fkey-prefix "n" [kp-decimal])
+ − 70 (define-key news-fkey-prefix "p" [kp-0])
+ − 71 (define-key news-fkey-prefix "r" [kp-2])
+ − 72 (define-key news-fkey-prefix "t" [kp-4])
+ − 73 (define-key news-fkey-prefix "v" [kp-6])
+ − 74 (define-key news-fkey-prefix "x" [kp-8])
+ − 75 )
+ − 76
+ − 77 ;;; news.el ends here