Mercurial > emacs

view lisp/term/iris-ansi.el @ 66573:e65b759c6906

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 149-151) - Merge from emacs--cvs-trunk--0 - Update from CVS 2005-10-27 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/flow-fill.el (fill-flowed-encode-tests): Restore trailing whitespace removed in revision 7.8. Use concatenated string to protect trailing whitespace. 2005-10-27 Jouni K Seppanen <jks@iki.fi> (tiny change) * lisp/gnus/nnimap.el (nnimap-search-uids-not-since-is-evil): Add variable. (nnimap-request-expire-articles): Use it to avoid sending 'UID SEARCH UID ... NOT SINCE' queries, for inefficient servers like Courier IMAP ("some version from 2004"). Mostly based on similar code in the same function. 2005-10-26 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/message.el (message-display-completion-list): New function. (message-expand-group): Use it; make sure the Completions buffer is modifiable.
author Miles Bader <miles@gnu.org>
date Mon, 31 Oct 2005 07:07:28 +0000
parents 34bd8e434dd7
children 067115a6e738 532e0a9335a9 edf295560b5a
line wrap: on
line source

;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps -*- no-byte-compile: t -*-

;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.

;; Author: Dan Nicolaescu <dann@ics.uci.edu>

;; 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, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;;; Code:

(defun iris-ansi-initialize-terminal ()
  "Terminal initialization function for iris-ansi."
  (define-key function-key-map "\e[120q" [S-escape])
  (define-key function-key-map "\e[121q" [C-escape])

  (define-key function-key-map "\e[001q" [f1])
  (define-key function-key-map "\e[013q" [S-f1])
  (define-key function-key-map "\e[025q" [C-f1])


  (define-key function-key-map "\e[002q" [f2])
  (define-key function-key-map "\e[014q" [S-f2])
  (define-key function-key-map "\e[026q" [C-f2])
  (define-key function-key-map "\e[038q" [M-f2])

  (define-key function-key-map "\e[003q" [f3])
  (define-key function-key-map "\e[015q" [S-f3])
  (define-key function-key-map "\e[027q" [C-f3])


  (define-key function-key-map "\e[004q" [f4])
  (define-key function-key-map "\e[016q" [S-f4])
  (define-key function-key-map "\e[028q" [C-f4])


  (define-key function-key-map "\e[005q" [f5])
  (define-key function-key-map "\e[017q" [S-f5])
  (define-key function-key-map "\e[029q" [C-f5])


  (define-key function-key-map "\e[006q" [f6])
  (define-key function-key-map "\e[018q" [S-f6])
  (define-key function-key-map "\e[030q" [C-f6])


  (define-key function-key-map "\e[007q" [f7])
  (define-key function-key-map "\e[019q" [S-f7])
  (define-key function-key-map "\e[031q" [C-f7])


  (define-key function-key-map "\e[008q" [f8])
  (define-key function-key-map "\e[020q" [S-f8])
  (define-key function-key-map "\e[032q" [C-f8])


  (define-key function-key-map "\e[009q" [f9])
  (define-key function-key-map "\e[021q" [S-f9])
  (define-key function-key-map "\e[033q" [C-f9])


  (define-key function-key-map "\e[010q" [f10])
  (define-key function-key-map "\e[022q" [S-f10])
  (define-key function-key-map "\e[034q" [C-f10])


  (define-key function-key-map "\e[011q" [f11])
  (define-key function-key-map "\e[023q" [S-f11])
  (define-key function-key-map "\e[035q" [C-f11])
  (define-key function-key-map "\e[047q" [M-f11])

  (define-key function-key-map "\e[012q" [f12])
  (define-key function-key-map "\e[024q" [S-f12])
  (define-key function-key-map "\e[036q" [C-f12])
  (define-key function-key-map "\e[048q" [M-f12])


  (define-key function-key-map "\e[057q" [?\C-`])
  (define-key function-key-map "\e[115q" [?\M-`])

  (define-key function-key-map "\e[049q" [?\C-1])
  (define-key function-key-map "\e[058q" [?\M-1])


  (define-key function-key-map "\e[059q" [?\M-2])

  (define-key function-key-map "\e[050q" [?\C-3])
  (define-key function-key-map "\e[060q" [?\M-3])

  (define-key function-key-map "\e[051q" [?\C-4])
  (define-key function-key-map "\e[061q" [?\M-4])

  (define-key function-key-map "\e[052q" [?\C-5])
  (define-key function-key-map "\e[062q" [?\M-5])


  (define-key function-key-map "\e[063q" [?\M-6])

  (define-key function-key-map "\e[053q" [?\C-7])
  (define-key function-key-map "\e[064q" [?\M-7])

  (define-key function-key-map "\e[054q" [?\C-8])
  (define-key function-key-map "\e[065q" [?\M-8])

  (define-key function-key-map "\e[055q" [?\C-9])
  (define-key function-key-map "\e[066q" [?\M-9])

  (define-key function-key-map "\e[056q" [?\C-0])
  (define-key function-key-map "\e[067q" [?\M-0])

  (define-key function-key-map "\e[068q" [?\M--])

  (define-key function-key-map "\e[069q" [?\C-=])
  (define-key function-key-map "\e[070q" [?\M-=])

  ;; I don't know what to do with those.
  ;;(define-key function-key-map "^H" [<del>])
  ;;(define-key function-key-map "^H" [S-<del>])
  ;;(define-key function-key-map "\177" [C-<del>])
  ;;(define-key function-key-map "\e[071q" [M-<del>])

  (define-key function-key-map "\e[Z" [?\S-\t])
  (define-key function-key-map "\e[072q" [?\C-\t])
  ;; This only works if you remove the M-TAB keybing from the system.4Dwmrc
  ;; our your ~/.4Dwmrc, if you use the 4Dwm window manager.
  (define-key function-key-map "\e[073q" [?\M-\t])

  (define-key function-key-map "\e[074q" [?\M-q])

  (define-key function-key-map "\e[075q" [?\M-w])

  (define-key function-key-map "\e[076q" [?\M-e])

  (define-key function-key-map "\e[077q" [?\M-r])

  (define-key function-key-map "\e[078q" [?\M-t])

  (define-key function-key-map "\e[079q" [?\M-y])

  (define-key function-key-map "\e[080q" [?\M-u])

  (define-key function-key-map "\e[081q" [?\M-i])

  (define-key function-key-map "\e[082q" [?\M-o])

  (define-key function-key-map "\e[083q" [?\M-p])

  (define-key function-key-map "\e[084q" [?\M-\[])

  (define-key function-key-map "\e[085q" [?\M-\]])

  (define-key function-key-map "\e[086q" [?\M-\\])

  (define-key function-key-map "\e[087q" [?\M-a])

  (define-key function-key-map "\e[088q" [?\M-s])

  (define-key function-key-map "\e[089q" [?\M-d])

  (define-key function-key-map "\e[090q" [?\M-f])

  (define-key function-key-map "\e[091q" [?\M-g])

  (define-key function-key-map "\e[092q" [?\M-h])

  (define-key function-key-map "\e[093q" [?\M-j])

  (define-key function-key-map "\e[094q" [?\M-k])

  (define-key function-key-map "\e[095q" [?\M-l])

  (define-key function-key-map "\e[096q" [?\C-\;])
  (define-key function-key-map "\e[097q" [?\M-:]) ;; we are cheating
						  ;; here, this is
						  ;; realy M-;, but
						  ;; M-: generates the
						  ;; same string and
						  ;; is more usefull.

  (define-key function-key-map "\e[098q" [?\C-'])
  (define-key function-key-map "\e[099q" [?\M-'])

  (define-key function-key-map "\e[100q" [?\M-\n])

  (define-key function-key-map "\e[101q" [?\M-z])

  (define-key function-key-map "\e[102q" [?\M-x])

  (define-key function-key-map "\e[103q" [?\M-c])

  (define-key function-key-map "\e[104q" [?\M-v])

  (define-key function-key-map "\e[105q" [?\M-b])

  (define-key function-key-map "\e[106q" [M-n])

  (define-key function-key-map "\e[107q" [M-m])

  (define-key function-key-map "\e[108q" [?\C-,])
  (define-key function-key-map "\e[109q" [?\M-,])

  (define-key function-key-map "\e[110q" [?\C-.])
  (define-key function-key-map "\e[111q" [?\M-.])

  (define-key function-key-map "\e[112q" [?\C-/])
  (define-key function-key-map "\e[113q" [?\M-/])

  (define-key function-key-map "\e[139q" [insert])
  (define-key function-key-map "\e[139q" [S-insert])
  (define-key function-key-map "\e[140q" [C-insert])
  (define-key function-key-map "\e[141q" [M-insert])

  (define-key function-key-map "\e[H" [home])
  (define-key function-key-map "\e[143q" [S-home])
  (define-key function-key-map "\e[144q" [C-home])


  (define-key function-key-map "\e[150q" [prior])
  (define-key function-key-map "\e[151q" [S-prior]) ;; those don't
						    ;; seem to
						    ;; generate
						    ;; anything
  (define-key function-key-map "\e[152q" [C-prior])


  ;; (define-key function-key-map "^?" [delete])
  (define-key function-key-map "\e[P" [S-delete])
  (define-key function-key-map "\e[142q" [C-delete])
  (define-key function-key-map "\e[M" [M-delete])

  (define-key function-key-map "\e[146q" [end])
  (define-key function-key-map "\e[147q" [S-end]) ;; those don't seem
						  ;; to generate
						  ;; anything
  (define-key function-key-map "\e[148q" [C-end])

  (define-key function-key-map "\e[154q" [next])
  (define-key function-key-map "\e[155q" [S-next])
  (define-key function-key-map "\e[156q" [C-next])


  (define-key function-key-map "\e[161q" [S-up])
  (define-key function-key-map "\e[162q" [C-up])
  (define-key function-key-map "\e[163q" [M-up])

  (define-key function-key-map "\e[158q" [S-left])
  (define-key function-key-map "\e[159q" [C-left])
  (define-key function-key-map "\e[160q" [M-left])

  (define-key function-key-map "\e[164q" [S-down])
  (define-key function-key-map "\e[165q" [C-down])
  (define-key function-key-map "\e[166q" [M-down])

  (define-key function-key-map "\e[167q" [S-right])
  (define-key function-key-map "\e[168q" [C-right])
  (define-key function-key-map "\e[169q" [M-right])

  ;; Keypad functions, most of those are untested.
  (define-key function-key-map "\e[179q" [?\C-/])
  (define-key function-key-map "\e[180q" [?\M-/])

  (define-key function-key-map "\e[187q" [?\C-*])
  (define-key function-key-map "\e[188q" [?\M-*])

  (define-key function-key-map "\e[198q" [?\C--])
  (define-key function-key-map "\e[199q" [?\M--])

  ;; Something else takes care of home, up, prior, down, left, right, next
  ;;(define-key function-key-map "\e[H" [home])
  (define-key function-key-map "\e[172q" [C-home])

  ;;(define-key function-key-map "\e[A" [up])
  (define-key function-key-map "\e[182q" [C-up])


  ;;(define-key function-key-map "\e[150q" [prior])
  (define-key function-key-map "\e[190q" [C-prior])


  (define-key function-key-map "\e[200q" [?\C-+])
  (define-key function-key-map "\e[201q" [?\M-+])

  ;;(define-key function-key-map "\e[D" [left])
  (define-key function-key-map "\e[174q" [C-left])


  (define-key function-key-map "\e[000q" [begin])
  (define-key function-key-map "\e[184q" [C-begin])


  ;;(define-key function-key-map "\e[C" [right])
  (define-key function-key-map "\e[192q" [C-right])

  ;;(define-key function-key-map "\e[146q" [end])
  (define-key function-key-map "\e[176q" [C-end])

  ;;(define-key function-key-map "\e[B" [down])
  (define-key function-key-map "\e[186q" [C-down])

  ;;(define-key function-key-map "\e[154q" [next])
  (define-key function-key-map "\e[194q" [C-next])


  (define-key function-key-map "\e[100q" [M-enter])

  (define-key function-key-map "\e[139q" [insert])
  (define-key function-key-map "\e[178q" [C-inset])

  (define-key function-key-map "\e[P" [delete])
  (define-key function-key-map "\e[196q" [C-delete])
  (define-key function-key-map "\e[197q" [M-delete]))

;;; arch-tag: b1d0e73a-bb7d-47be-9fb2-6fb126469a1b
;;; iris-ansi.el ends here