[bpt/emacs.git] / lisp / term / xterm.el

;;; xterm.el --- define function key sequences and standard colors for xterm

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

;; Author: FSF
;; Keywords: terminals

;; 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 terminal-init-xterm ()
  "Terminal initialization function for xterm."
  ;; rxvt terminals sometimes set the TERM variable to "xterm", but
  ;; rxvt's keybindings that are incompatible with xterm's. It is
  ;; better in that case to use rxvt's initializion function.
  (if (and (getenv "COLORTERM")
	   (string-match "\\`rxvt" (getenv "COLORTERM")))
      (progn 
	(eval-and-compile (load "term/rxvt"))
	(terminal-init-rxvt))

    ;; The terminal intialization C code file might have initialized
    ;; function keys F13->F60 from the termcap/terminfo information.  On
    ;; a PC-style keyboard these keys correspond to
    ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-.  The
    ;; code here subsitutes the corresponding defintions in
    ;; function-key-map. This substitution is needed because if a key
    ;; definition if found in function-key-map, there are no further
    ;; lookups in other keymaps.
    (substitute-key-definition [f13] [S-f1] function-key-map)
    (substitute-key-definition [f14] [S-f2] function-key-map)
    (substitute-key-definition [f15] [S-f3] function-key-map)
    (substitute-key-definition [f16] [S-f4] function-key-map)
    (substitute-key-definition [f17] [S-f5] function-key-map)
    (substitute-key-definition [f18] [S-f6] function-key-map)
    (substitute-key-definition [f19] [S-f7] function-key-map)
    (substitute-key-definition [f20] [S-f8] function-key-map)
    (substitute-key-definition [f21] [S-f9] function-key-map)
    (substitute-key-definition [f22] [S-f10] function-key-map)
    (substitute-key-definition [f23] [S-f11] function-key-map)
    (substitute-key-definition [f24] [S-f12] function-key-map)

    (substitute-key-definition [f25] [C-f1] function-key-map)
    (substitute-key-definition [f26] [C-f2] function-key-map)
    (substitute-key-definition [f27] [C-f3] function-key-map)
    (substitute-key-definition [f28] [C-f4] function-key-map)
    (substitute-key-definition [f29] [C-f5] function-key-map)
    (substitute-key-definition [f30] [C-f6] function-key-map)
    (substitute-key-definition [f31] [C-f7] function-key-map)
    (substitute-key-definition [f32] [C-f8] function-key-map)
    (substitute-key-definition [f33] [C-f9] function-key-map)
    (substitute-key-definition [f34] [C-f10] function-key-map)
    (substitute-key-definition [f35] [C-f11] function-key-map)
    (substitute-key-definition [f36] [C-f12] function-key-map)

    (substitute-key-definition [f37] [C-S-f1] function-key-map)
    (substitute-key-definition [f38] [C-S-f2] function-key-map)
    (substitute-key-definition [f39] [C-S-f3] function-key-map)
    (substitute-key-definition [f40] [C-S-f4] function-key-map)
    (substitute-key-definition [f41] [C-S-f5] function-key-map)
    (substitute-key-definition [f42] [C-S-f6] function-key-map)
    (substitute-key-definition [f43] [C-S-f7] function-key-map)
    (substitute-key-definition [f44] [C-S-f8] function-key-map)
    (substitute-key-definition [f45] [C-S-f9] function-key-map)
    (substitute-key-definition [f46] [C-S-f10] function-key-map)
    (substitute-key-definition [f47] [C-S-f11] function-key-map)
    (substitute-key-definition [f48] [C-S-f12] function-key-map)

    (substitute-key-definition [f49] [A-f1] function-key-map)
    (substitute-key-definition [f50] [A-f2] function-key-map)
    (substitute-key-definition [f51] [A-f3] function-key-map)
    (substitute-key-definition [f52] [A-f4] function-key-map)
    (substitute-key-definition [f53] [A-f5] function-key-map)
    (substitute-key-definition [f54] [A-f6] function-key-map)
    (substitute-key-definition [f55] [A-f7] function-key-map)
    (substitute-key-definition [f56] [A-f8] function-key-map)
    (substitute-key-definition [f57] [A-f9] function-key-map)
    (substitute-key-definition [f58] [A-f10] function-key-map)
    (substitute-key-definition [f59] [A-f11] function-key-map)
    (substitute-key-definition [f60] [A-f12] function-key-map)

    (let ((map (make-sparse-keymap)))
      ;; xterm from X.org 6.8.2 uses these key definitions.
      (define-key map "\eOP" [f1])
      (define-key map "\eOQ" [f2])
      (define-key map "\eOR" [f3])
      (define-key map "\eOS" [f4])
      (define-key map "\e[15~" [f5])
      (define-key map "\e[17~" [f6])
      (define-key map "\e[18~" [f7])
      (define-key map "\e[19~" [f8])
      (define-key map "\e[20~" [f9])
      (define-key map "\e[21~" [f10])
      (define-key map "\e[23~" [f11])
      (define-key map "\e[24~" [f12])

      (define-key map "\eO2P" [S-f1])
      (define-key map "\eO2Q" [S-f2])
      (define-key map "\eO2R" [S-f3])
      (define-key map "\eO2S" [S-f4])
      (define-key map "\e[15;2~" [S-f5])
      (define-key map "\e[17;2~" [S-f6])
      (define-key map "\e[18;2~" [S-f7])
      (define-key map "\e[19;2~" [S-f8])
      (define-key map "\e[20;2~" [S-f9])
      (define-key map "\e[21;2~" [S-f10])
      (define-key map "\e[23;2~" [S-f11])
      (define-key map "\e[24;2~" [S-f12])

      (define-key map "\eO5P" [C-f1])
      (define-key map "\eO5Q" [C-f2])
      (define-key map "\eO5R" [C-f3])
      (define-key map "\eO5S" [C-f4])
      (define-key map "\e[15;5~" [C-f5])
      (define-key map "\e[17;5~" [C-f6])
      (define-key map "\e[18;5~" [C-f7])
      (define-key map "\e[19;5~" [C-f8])
      (define-key map "\e[20;5~" [C-f9])
      (define-key map "\e[21;5~" [C-f10])
      (define-key map "\e[23;5~" [C-f11])
      (define-key map "\e[24;5~" [C-f12])

      (define-key map "\eO6P" [C-S-f1])
      (define-key map "\eO6Q" [C-S-f2])
      (define-key map "\eO6R" [C-S-f3])
      (define-key map "\eO6S" [C-S-f4])
      (define-key map "\e[15;6~" [C-S-f5])
      (define-key map "\e[17;6~" [C-S-f6])
      (define-key map "\e[18;6~" [C-S-f7])
      (define-key map "\e[19;6~" [C-S-f8])
      (define-key map "\e[20;6~" [C-S-f9])
      (define-key map "\e[21;6~" [C-S-f10])
      (define-key map "\e[23;6~" [C-S-f11])
      (define-key map "\e[24;6~" [C-S-f12])

      (define-key map "\eO3P" [A-f1])
      (define-key map "\eO3Q" [A-f2])
      (define-key map "\eO3R" [A-f3])
      (define-key map "\eO3S" [A-f4])
      (define-key map "\e[15;3~" [A-f5])
      (define-key map "\e[17;3~" [A-f6])
      (define-key map "\e[18;3~" [A-f7])
      (define-key map "\e[19;3~" [A-f8])
      (define-key map "\e[20;3~" [A-f9])
      (define-key map "\e[21;3~" [A-f10])
      (define-key map "\e[23;3~" [A-f11])
      (define-key map "\e[24;3~" [A-f12])

      (define-key map "\eOA" [up])
      (define-key map "\eOB" [down])
      (define-key map "\eOC" [right])
      (define-key map "\eOD" [left])
      (define-key map "\eOF" [end])
      (define-key map "\eOH" [home])

      (define-key map "\e[1;2A" [S-up])
      (define-key map "\e[1;2B" [S-down])
      (define-key map "\e[1;2C" [S-right])
      (define-key map "\e[1;2D" [S-left])
      (define-key map "\e[1;2F" [S-end])
      (define-key map "\e[1;2H" [S-home])

      (define-key map "\e[1;5A" [C-up])
      (define-key map "\e[1;5B" [C-down])
      (define-key map "\e[1;5C" [C-right])
      (define-key map "\e[1;5D" [C-left])
      (define-key map "\e[1;5F" [C-end])
      (define-key map "\e[1;5H" [C-home])

      (define-key map "\e[1;6A" [C-S-up])
      (define-key map "\e[1;6B" [C-S-down])
      (define-key map "\e[1;6C" [C-S-right])
      (define-key map "\e[1;6D" [C-S-left])
      (define-key map "\e[1;6F" [C-S-end])
      (define-key map "\e[1;6H" [C-S-home])

      (define-key map "\e[1;3A" [A-up])
      (define-key map "\e[1;3B" [A-down])
      (define-key map "\e[1;3C" [A-right])
      (define-key map "\e[1;3D" [A-left])
      (define-key map "\e[1;3F" [A-end])
      (define-key map "\e[1;3H" [A-home])

      (define-key map "\e[2~" [insert])
      (define-key map "\e[3~" [delete])
      (define-key map "\e[5~" [prior])
      (define-key map "\e[6~" [next])

      (define-key map "\e[2;2~" [S-insert])
      (define-key map "\e[3;2~" [S-delete])
      (define-key map "\e[5;2~" [S-prior])
      (define-key map "\e[6;2~" [S-next])

      (define-key map "\e[2;5~" [C-insert])
      (define-key map "\e[3;5~" [C-delete])
      (define-key map "\e[5;5~" [C-prior])
      (define-key map "\e[6;5~" [C-next])

      (define-key map "\e[2;6~" [C-S-insert])
      (define-key map "\e[3;6~" [C-S-delete])
      (define-key map "\e[5;6~" [C-S-prior])
      (define-key map "\e[6;6~" [C-S-next])

      (define-key map "\e[2;3~" [A-insert])
      (define-key map "\e[3;3~" [A-delete])
      (define-key map "\e[5;3~" [A-prior])
      (define-key map "\e[6;3~" [A-next])

      (define-key map "\e[4~" [select])
      (define-key map "\e[29~" [print])
      
      ;; These keys are available in xterm starting from version 216
      ;; if the modifyOtherKeys resource is set to 1.

      (define-key map "\e[27;5;39~"  [?\C-\'])
      (define-key map "\e[27;5;45~"  [?\C--])
      
      (define-key map "\e[27;5;48~"  [?\C-0])
      (define-key map "\e[27;5;49~"  [?\C-1])
      ;; Not all C-DIGIT keys have a distinct binding.
      (define-key map "\e[27;5;57~"  [?\C-9])

      (define-key map "\e[27;5;59~"  [?\C-\;])
      (define-key map "\e[27;5;61~"  [?\C-=])


      (define-key map "\e[27;6;33~"  [?\C-!])
      (define-key map "\e[27;6;34~"  [?\C-\"])
      (define-key map "\e[27;6;35~"  [?\C-#])
      (define-key map "\e[27;6;36~"  [?\C-$])
      (define-key map "\e[27;6;37~"  [?\C-%])
      (define-key map "\e[27;6;38~"  [(C-&)])
      (define-key map "\e[27;6;40~"  [?\C-(])
      (define-key map "\e[27;6;41~"  [?\C-)])
      (define-key map "\e[27;6;42~"  [?\C-*])
      (define-key map "\e[27;6;43~"  [?\C-+])

      (define-key map "\e[27;6;58~"  [?\C-:])
      (define-key map "\e[27;6;60~"  [?\C-<])
      (define-key map "\e[27;6;62~"  [?\C->])
      (define-key map "\e[27;6;63~"  [(C-\?)])

      (define-key map "\e[27;5;9~"  [C-tab])
      (define-key map "\e[27;5;13~" [C-return])
      (define-key map "\e[27;5;44~" [?\C-,])
      (define-key map "\e[27;5;46~" [?\C-.])
      (define-key map "\e[27;5;47~" [?\C-/])
      (define-key map "\e[27;5;92~" [?\C-\\])

      (define-key map "\e[27;2;9~"  [S-tab])
      (define-key map "\e[27;2;13~" [S-return])

      (define-key map "\e[27;6;9~"  [(C-S-tab)])

      (define-key map "\e[27;13;46~" [?\C-\M-.])


      ;; Other versions of xterm might emit these.
      (define-key map "\e[A" [up])
      (define-key map "\e[B" [down])
      (define-key map "\e[C" [right])
      (define-key map "\e[D" [left])
      (define-key map "\e[1~" [home])

      (define-key map "\eO2A" [S-up])
      (define-key map "\eO2B" [S-down])
      (define-key map "\eO2C" [S-right])
      (define-key map "\eO2D" [S-left])
      (define-key map "\eO2F" [S-end])
      (define-key map "\eO2H" [S-home])

      (define-key map "\eO5A" [C-up])
      (define-key map "\eO5B" [C-down])
      (define-key map "\eO5C" [C-right])
      (define-key map "\eO5D" [C-left])
      (define-key map "\eO5F" [C-end])
      (define-key map "\eO5H" [C-home])

      (define-key map "\e[11~" [f1])
      (define-key map "\e[12~" [f2])
      (define-key map "\e[13~" [f3])
      (define-key map "\e[14~" [f4])

      ;; Use inheritance to let the main keymap override those defaults.
      ;; This way we don't override terminfo-derived settings or settings
      ;; made in the .emacs file.
      (set-keymap-parent map (keymap-parent function-key-map))
      (set-keymap-parent function-key-map map))

    ;; Do it!
    (xterm-register-default-colors)
    ;; This recomputes all the default faces given the colors we've just set up.
    (tty-set-up-initial-frame-faces)))

;; Set up colors, for those versions of xterm that support it.
(defvar xterm-standard-colors
  ;; The names in the comments taken from XTerm-col.ad in the xterm
  ;; distribution, see ftp://dickey.his.com/xterm/.  RGB values are
  ;; from rgb.txt.
  '(("black"          0 (  0   0   0))	; black
    ("red"            1 (205   0   0))	; red3
    ("green"          2 (  0 205   0))	; green3
    ("yellow"         3 (205 205   0))	; yellow3
    ("blue"           4 (  0   0 238))	; blue2
    ("magenta"        5 (205   0 205))	; magenta3
    ("cyan"           6 (  0 205 205))	; cyan3
    ("white"          7 (229 229 229))	; gray90
    ("brightblack"    8 (127 127 127))	; gray50
    ("brightred"      9 (255   0   0))	; red
    ("brightgreen"   10 (  0 255   0))	; green
    ("brightyellow"  11 (255 255   0))	; yellow
    ("brightblue"    12 (92   92 255))	; rgb:5c/5c/ff
    ("brightmagenta" 13 (255   0 255))	; magenta
    ("brightcyan"    14 (  0 255 255))	; cyan
    ("brightwhite"   15 (255 255 255)))	; white
  "Names of 16 standard xterm/aixterm colors, their numbers, and RGB values.")

(defun xterm-rgb-convert-to-16bit (prim)
  "Convert an 8-bit primary color value PRIM to a corresponding 16-bit value."
  (logior prim (lsh prim 8)))

(defun xterm-register-default-colors ()
  "Register the default set of colors for xterm or compatible emulator.

This function registers the number of colors returned by `display-color-cells'
for the currently selected frame.  The first 16 colors are taken from
`xterm-standard-colors', which see, while the rest are computed assuming
either the 88- or 256-color standard color scheme supported by latest
versions of xterm."
  (let* ((ncolors (display-color-cells))
	 (colors xterm-standard-colors)
	 (color (car colors)))
    (if (> ncolors 0)
	;; Clear the 8 default tty colors registered by startup.el
	(tty-color-clear))
    ;; Only register as many colors as are supported by the display.
    (while (and (> ncolors 0) colors)
      (tty-color-define (car color) (cadr color)
			(mapcar 'xterm-rgb-convert-to-16bit
				(car (cddr color))))
      (setq colors (cdr colors)
	    color (car colors)
	    ncolors (1- ncolors)))
    ;; We've exhausted the colors from `xterm-standard-colors'.  If there
    ;; are more colors to support, compute them now.
    (when (> ncolors 0)
      (cond
       ((= ncolors 240)	; 256-color xterm
	;; 216 non-gray colors first
	(let ((r 0) (g 0) (b 0))
	  (while (> ncolors 24)
	    ;; This and other formulae taken from 256colres.pl and
	    ;; 88colres.pl in the xterm distribution.
	    (tty-color-define (format "color-%d" (- 256 ncolors))
			      (- 256 ncolors)
			      (mapcar 'xterm-rgb-convert-to-16bit
				      (list (if (zerop r) 0 (+ (* r 40) 55))
					    (if (zerop g) 0 (+ (* g 40) 55))
					    (if (zerop b) 0 (+ (* b 40) 55)))))

	    (setq b (1+ b))
	    (if (> b 5)
		(setq g (1+ g)
		      b 0))
	    (if (> g 5)
		(setq r (1+ r)
		      g 0))
	    (setq ncolors (1- ncolors))))
	;; Now the 24 gray colors
	(while (> ncolors 0)
	  (setq color (xterm-rgb-convert-to-16bit (+ 8 (* (- 24 ncolors) 10))))
	  (tty-color-define (format "color-%d" (- 256 ncolors))
			    (- 256 ncolors)
			    (list color color color))
	  (setq ncolors (1- ncolors))))
       ((= ncolors 72)  ; 88-color xterm
	;; 64 non-gray colors
	(let ((levels '(0 139 205 255))
	      (r 0) (g 0) (b 0))
	  (while (> ncolors 8)
	    (tty-color-define (format "color-%d" (- 88 ncolors))
			      (- 88 ncolors)
			      (mapcar 'xterm-rgb-convert-to-16bit
				      (list (nth r levels)
					    (nth g levels)
					    (nth b levels))))
	    (setq b (1+ b))
	    (if (> b 3)
		(setq g (1+ g)
		      b 0))
	    (if (> g 3)
		(setq r (1+ r)
		      g 0))
	    (setq ncolors (1- ncolors))))
	;; Now the 8 gray colors
	(while (> ncolors 0)
	  (setq color (xterm-rgb-convert-to-16bit
		       (floor
			(if (= ncolors 8)
			    46.36363636
			  (+ (* (- 8 ncolors) 23.18181818) 69.54545454)))))
	  (tty-color-define (format "color-%d" (- 88 ncolors))
			    (- 88 ncolors)
			    (list color color color))
	  (setq ncolors (1- ncolors))))
       (t (error "Unsupported number of xterm colors (%d)" (+ 16 ncolors)))))
    ;; Modifying color mappings means realized faces don't use the
    ;; right colors, so clear them.
    (clear-face-cache)))

;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
;;; xterm.el ends here
Commit	Line	Data
63e9afde	1	;;; xterm.el --- define function key sequences and standard colors for xterm
92abb02b	2
ceb4c4d3 TTN	3	;; Copyright (C) 1995, 2002, 2003, 2004, 2005,
ceb4c4d3 TTN	4	;; 2006 Free Software Foundation, Inc.
2fe590dc	5
92abb02b KH	6	;; Author: FSF
	7	;; Keywords: terminals
	8
2fe590dc EN	9	;; This file is part of GNU Emacs.
	10
	11	;; GNU Emacs is free software; you can redistribute it and/or modify
	12	;; it under the terms of the GNU General Public License as published by
	13	;; the Free Software Foundation; either version 2, or (at your option)
	14	;; any later version.
	15
	16	;; GNU Emacs is distributed in the hope that it will be useful,
	17	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	;; GNU General Public License for more details.
	20
	21	;; You should have received a copy of the GNU General Public License
	22	;; along with GNU Emacs; see the file COPYING. If not, write to the
4fc5845f LK	23	;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
4fc5845f LK	24	;; Boston, MA 02110-1301, USA.
92abb02b	25
6a05d05f PJ	26	;;; Commentary:
	27
	28	;;; Code:
92abb02b	29
4f0c9ba7 DN	30	(defun terminal-init-xterm ()
	31	"Terminal initialization function for xterm."
	32	;; rxvt terminals sometimes set the TERM variable to "xterm", but
	33	;; rxvt's keybindings that are incompatible with xterm's. It is
	34	;; better in that case to use rxvt's initializion function.
	35	(if (and (getenv "COLORTERM")
	36	(string-match "\\`rxvt" (getenv "COLORTERM")))
f47877ee	37	(progn
0278364c	38	(eval-and-compile (load "term/rxvt"))
4f0c9ba7 DN	39	(terminal-init-rxvt))
	40
	41	;; The terminal intialization C code file might have initialized
	42	;; function keys F13->F60 from the termcap/terminfo information. On
	43	;; a PC-style keyboard these keys correspond to
	44	;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-. The
	45	;; code here subsitutes the corresponding defintions in
	46	;; function-key-map. This substitution is needed because if a key
	47	;; definition if found in function-key-map, there are no further
	48	;; lookups in other keymaps.
5fd6d89f	49	(substitute-key-definition [f13] [S-f1] function-key-map)
4f0c9ba7 DN	50	(substitute-key-definition [f14] [S-f2] function-key-map)
	51	(substitute-key-definition [f15] [S-f3] function-key-map)
	52	(substitute-key-definition [f16] [S-f4] function-key-map)
	53	(substitute-key-definition [f17] [S-f5] function-key-map)
	54	(substitute-key-definition [f18] [S-f6] function-key-map)
	55	(substitute-key-definition [f19] [S-f7] function-key-map)
	56	(substitute-key-definition [f20] [S-f8] function-key-map)
	57	(substitute-key-definition [f21] [S-f9] function-key-map)
	58	(substitute-key-definition [f22] [S-f10] function-key-map)
	59	(substitute-key-definition [f23] [S-f11] function-key-map)
	60	(substitute-key-definition [f24] [S-f12] function-key-map)
	61
5fd6d89f	62	(substitute-key-definition [f25] [C-f1] function-key-map)
4f0c9ba7 DN	63	(substitute-key-definition [f26] [C-f2] function-key-map)
	64	(substitute-key-definition [f27] [C-f3] function-key-map)
	65	(substitute-key-definition [f28] [C-f4] function-key-map)
	66	(substitute-key-definition [f29] [C-f5] function-key-map)
	67	(substitute-key-definition [f30] [C-f6] function-key-map)
	68	(substitute-key-definition [f31] [C-f7] function-key-map)
	69	(substitute-key-definition [f32] [C-f8] function-key-map)
	70	(substitute-key-definition [f33] [C-f9] function-key-map)
	71	(substitute-key-definition [f34] [C-f10] function-key-map)
	72	(substitute-key-definition [f35] [C-f11] function-key-map)
	73	(substitute-key-definition [f36] [C-f12] function-key-map)
	74
5fd6d89f	75	(substitute-key-definition [f37] [C-S-f1] function-key-map)
4f0c9ba7 DN	76	(substitute-key-definition [f38] [C-S-f2] function-key-map)
	77	(substitute-key-definition [f39] [C-S-f3] function-key-map)
	78	(substitute-key-definition [f40] [C-S-f4] function-key-map)
	79	(substitute-key-definition [f41] [C-S-f5] function-key-map)
	80	(substitute-key-definition [f42] [C-S-f6] function-key-map)
	81	(substitute-key-definition [f43] [C-S-f7] function-key-map)
	82	(substitute-key-definition [f44] [C-S-f8] function-key-map)
	83	(substitute-key-definition [f45] [C-S-f9] function-key-map)
	84	(substitute-key-definition [f46] [C-S-f10] function-key-map)
	85	(substitute-key-definition [f47] [C-S-f11] function-key-map)
	86	(substitute-key-definition [f48] [C-S-f12] function-key-map)
	87
5fd6d89f	88	(substitute-key-definition [f49] [A-f1] function-key-map)
4f0c9ba7 DN	89	(substitute-key-definition [f50] [A-f2] function-key-map)
	90	(substitute-key-definition [f51] [A-f3] function-key-map)
	91	(substitute-key-definition [f52] [A-f4] function-key-map)
	92	(substitute-key-definition [f53] [A-f5] function-key-map)
	93	(substitute-key-definition [f54] [A-f6] function-key-map)
	94	(substitute-key-definition [f55] [A-f7] function-key-map)
	95	(substitute-key-definition [f56] [A-f8] function-key-map)
	96	(substitute-key-definition [f57] [A-f9] function-key-map)
	97	(substitute-key-definition [f58] [A-f10] function-key-map)
	98	(substitute-key-definition [f59] [A-f11] function-key-map)
	99	(substitute-key-definition [f60] [A-f12] function-key-map)
	100
	101	(let ((map (make-sparse-keymap)))
f47877ee DN	102	;; xterm from X.org 6.8.2 uses these key definitions.
	103	(define-key map "\eOP" [f1])
	104	(define-key map "\eOQ" [f2])
	105	(define-key map "\eOR" [f3])
	106	(define-key map "\eOS" [f4])
4f0c9ba7 DN	107	(define-key map "\e[15~" [f5])
	108	(define-key map "\e[17~" [f6])
	109	(define-key map "\e[18~" [f7])
	110	(define-key map "\e[19~" [f8])
	111	(define-key map "\e[20~" [f9])
	112	(define-key map "\e[21~" [f10])
	113	(define-key map "\e[23~" [f11])
	114	(define-key map "\e[24~" [f12])
4f0c9ba7 DN	115
	116	(define-key map "\eO2P" [S-f1])
	117	(define-key map "\eO2Q" [S-f2])
	118	(define-key map "\eO2R" [S-f3])
	119	(define-key map "\eO2S" [S-f4])
	120	(define-key map "\e[15;2~" [S-f5])
	121	(define-key map "\e[17;2~" [S-f6])
	122	(define-key map "\e[18;2~" [S-f7])
	123	(define-key map "\e[19;2~" [S-f8])
	124	(define-key map "\e[20;2~" [S-f9])
	125	(define-key map "\e[21;2~" [S-f10])
	126	(define-key map "\e[23;2~" [S-f11])
	127	(define-key map "\e[24;2~" [S-f12])
	128
	129	(define-key map "\eO5P" [C-f1])
	130	(define-key map "\eO5Q" [C-f2])
	131	(define-key map "\eO5R" [C-f3])
	132	(define-key map "\eO5S" [C-f4])
	133	(define-key map "\e[15;5~" [C-f5])
	134	(define-key map "\e[17;5~" [C-f6])
	135	(define-key map "\e[18;5~" [C-f7])
	136	(define-key map "\e[19;5~" [C-f8])
	137	(define-key map "\e[20;5~" [C-f9])
	138	(define-key map "\e[21;5~" [C-f10])
	139	(define-key map "\e[23;5~" [C-f11])
	140	(define-key map "\e[24;5~" [C-f12])
	141
	142	(define-key map "\eO6P" [C-S-f1])
	143	(define-key map "\eO6Q" [C-S-f2])
	144	(define-key map "\eO6R" [C-S-f3])
	145	(define-key map "\eO6S" [C-S-f4])
	146	(define-key map "\e[15;6~" [C-S-f5])
	147	(define-key map "\e[17;6~" [C-S-f6])
	148	(define-key map "\e[18;6~" [C-S-f7])
	149	(define-key map "\e[19;6~" [C-S-f8])
	150	(define-key map "\e[20;6~" [C-S-f9])
	151	(define-key map "\e[21;6~" [C-S-f10])
	152	(define-key map "\e[23;6~" [C-S-f11])
	153	(define-key map "\e[24;6~" [C-S-f12])
	154
	155	(define-key map "\eO3P" [A-f1])
	156	(define-key map "\eO3Q" [A-f2])
	157	(define-key map "\eO3R" [A-f3])
	158	(define-key map "\eO3S" [A-f4])
	159	(define-key map "\e[15;3~" [A-f5])
	160	(define-key map "\e[17;3~" [A-f6])
	161	(define-key map "\e[18;3~" [A-f7])
	162	(define-key map "\e[19;3~" [A-f8])
	163	(define-key map "\e[20;3~" [A-f9])
	164	(define-key map "\e[21;3~" [A-f10])
	165	(define-key map "\e[23;3~" [A-f11])
	166	(define-key map "\e[24;3~" [A-f12])
	167
f47877ee DN	168	(define-key map "\eOA" [up])
	169	(define-key map "\eOB" [down])
	170	(define-key map "\eOC" [right])
	171	(define-key map "\eOD" [left])
	172	(define-key map "\eOF" [end])
	173	(define-key map "\eOH" [home])
	174
4f0c9ba7 DN	175	(define-key map "\e[1;2A" [S-up])
	176	(define-key map "\e[1;2B" [S-down])
	177	(define-key map "\e[1;2C" [S-right])
	178	(define-key map "\e[1;2D" [S-left])
	179	(define-key map "\e[1;2F" [S-end])
	180	(define-key map "\e[1;2H" [S-home])
	181
	182	(define-key map "\e[1;5A" [C-up])
	183	(define-key map "\e[1;5B" [C-down])
	184	(define-key map "\e[1;5C" [C-right])
	185	(define-key map "\e[1;5D" [C-left])
	186	(define-key map "\e[1;5F" [C-end])
	187	(define-key map "\e[1;5H" [C-home])
	188
	189	(define-key map "\e[1;6A" [C-S-up])
	190	(define-key map "\e[1;6B" [C-S-down])
	191	(define-key map "\e[1;6C" [C-S-right])
	192	(define-key map "\e[1;6D" [C-S-left])
	193	(define-key map "\e[1;6F" [C-S-end])
	194	(define-key map "\e[1;6H" [C-S-home])
	195
	196	(define-key map "\e[1;3A" [A-up])
	197	(define-key map "\e[1;3B" [A-down])
	198	(define-key map "\e[1;3C" [A-right])
	199	(define-key map "\e[1;3D" [A-left])
	200	(define-key map "\e[1;3F" [A-end])
	201	(define-key map "\e[1;3H" [A-home])
	202
f47877ee DN	203	(define-key map "\e[2~" [insert])
	204	(define-key map "\e[3~" [delete])
	205	(define-key map "\e[5~" [prior])
	206	(define-key map "\e[6~" [next])
	207
4f0c9ba7 DN	208	(define-key map "\e[2;2~" [S-insert])
	209	(define-key map "\e[3;2~" [S-delete])
	210	(define-key map "\e[5;2~" [S-prior])
	211	(define-key map "\e[6;2~" [S-next])
	212
	213	(define-key map "\e[2;5~" [C-insert])
	214	(define-key map "\e[3;5~" [C-delete])
	215	(define-key map "\e[5;5~" [C-prior])
	216	(define-key map "\e[6;5~" [C-next])
	217
	218	(define-key map "\e[2;6~" [C-S-insert])
	219	(define-key map "\e[3;6~" [C-S-delete])
	220	(define-key map "\e[5;6~" [C-S-prior])
	221	(define-key map "\e[6;6~" [C-S-next])
	222
	223	(define-key map "\e[2;3~" [A-insert])
	224	(define-key map "\e[3;3~" [A-delete])
	225	(define-key map "\e[5;3~" [A-prior])
	226	(define-key map "\e[6;3~" [A-next])
	227
f47877ee DN	228	(define-key map "\e[4~" [select])
f47877ee DN	229	(define-key map "\e[29~" [print])
a07d147e	230
c0658ad4	231	;; These keys are available in xterm starting from version 216
c79722c9	232	;; if the modifyOtherKeys resource is set to 1.
c0658ad4 DN	233
	234	(define-key map "\e[27;5;39~" [?\C-\'])
	235	(define-key map "\e[27;5;45~" [?\C--])
	236
	237	(define-key map "\e[27;5;48~" [?\C-0])
	238	(define-key map "\e[27;5;49~" [?\C-1])
	239	;; Not all C-DIGIT keys have a distinct binding.
	240	(define-key map "\e[27;5;57~" [?\C-9])
	241
	242	(define-key map "\e[27;5;59~" [?\C-\;])
	243	(define-key map "\e[27;5;61~" [?\C-=])
	244
	245
	246	(define-key map "\e[27;6;33~" [?\C-!])
	247	(define-key map "\e[27;6;34~" [?\C-\"])
	248	(define-key map "\e[27;6;35~" [?\C-#])
	249	(define-key map "\e[27;6;36~" [?\C-$])
	250	(define-key map "\e[27;6;37~" [?\C-%])
	251	(define-key map "\e[27;6;38~" [(C-&)])
	252	(define-key map "\e[27;6;40~" [?\C-(])
	253	(define-key map "\e[27;6;41~" [?\C-)])
	254	(define-key map "\e[27;6;42~" [?\C-*])
	255	(define-key map "\e[27;6;43~" [?\C-+])
	256
	257	(define-key map "\e[27;6;58~" [?\C-:])
	258	(define-key map "\e[27;6;60~" [?\C-<])
	259	(define-key map "\e[27;6;62~" [?\C->])
	260	(define-key map "\e[27;6;63~" [(C-\?)])
	261
cecee053	262	(define-key map "\e[27;5;9~" [C-tab])
4e78977e	263	(define-key map "\e[27;5;13~" [C-return])
c79722c9 DN	264	(define-key map "\e[27;5;44~" [?\C-,])
	265	(define-key map "\e[27;5;46~" [?\C-.])
	266	(define-key map "\e[27;5;47~" [?\C-/])
	267	(define-key map "\e[27;5;92~" [?\C-\\])
	268
cecee053	269	(define-key map "\e[27;2;9~" [S-tab])
c79722c9 DN	270	(define-key map "\e[27;2;13~" [S-return])
c79722c9 DN	271
cecee053	272	(define-key map "\e[27;6;9~" [(C-S-tab)])
c79722c9 DN	273
	274	(define-key map "\e[27;13;46~" [?\C-\M-.])
	275
f47877ee DN	276
	277	;; Other versions of xterm might emit these.
	278	(define-key map "\e[A" [up])
	279	(define-key map "\e[B" [down])
	280	(define-key map "\e[C" [right])
	281	(define-key map "\e[D" [left])
	282	(define-key map "\e[1~" [home])
4f0c9ba7 DN	283
	284	(define-key map "\eO2A" [S-up])
	285	(define-key map "\eO2B" [S-down])
	286	(define-key map "\eO2C" [S-right])
	287	(define-key map "\eO2D" [S-left])
	288	(define-key map "\eO2F" [S-end])
	289	(define-key map "\eO2H" [S-home])
	290
	291	(define-key map "\eO5A" [C-up])
	292	(define-key map "\eO5B" [C-down])
	293	(define-key map "\eO5C" [C-right])
	294	(define-key map "\eO5D" [C-left])
	295	(define-key map "\eO5F" [C-end])
	296	(define-key map "\eO5H" [C-home])
	297
f47877ee DN	298	(define-key map "\e[11~" [f1])
	299	(define-key map "\e[12~" [f2])
	300	(define-key map "\e[13~" [f3])
	301	(define-key map "\e[14~" [f4])
	302
4f0c9ba7 DN	303	;; Use inheritance to let the main keymap override those defaults.
	304	;; This way we don't override terminfo-derived settings or settings
	305	;; made in the .emacs file.
	306	(set-keymap-parent map (keymap-parent function-key-map))
	307	(set-keymap-parent function-key-map map))
	308
	309	;; Do it!
	310	(xterm-register-default-colors)
	311	;; This recomputes all the default faces given the colors we've just set up.
	312	(tty-set-up-initial-frame-faces)))
6a05d05f	313
63e9afde EZ	314	;; Set up colors, for those versions of xterm that support it.
	315	(defvar xterm-standard-colors
	316	;; The names in the comments taken from XTerm-col.ad in the xterm
	317	;; distribution, see ftp://dickey.his.com/xterm/. RGB values are
	318	;; from rgb.txt.
	319	'(("black" 0 ( 0 0 0)) ; black
	320	("red" 1 (205 0 0)) ; red3
	321	("green" 2 ( 0 205 0)) ; green3
	322	("yellow" 3 (205 205 0)) ; yellow3
9fb518aa	323	("blue" 4 ( 0 0 238)) ; blue2
63e9afde EZ	324	("magenta" 5 (205 0 205)) ; magenta3
	325	("cyan" 6 ( 0 205 205)) ; cyan3
	326	("white" 7 (229 229 229)) ; gray90
9fb518aa	327	("brightblack" 8 (127 127 127)) ; gray50
63e9afde EZ	328	("brightred" 9 (255 0 0)) ; red
	329	("brightgreen" 10 ( 0 255 0)) ; green
	330	("brightyellow" 11 (255 255 0)) ; yellow
9fb518aa	331	("brightblue" 12 (92 92 255)) ; rgb:5c/5c/ff
63e9afde EZ	332	("brightmagenta" 13 (255 0 255)) ; magenta
	333	("brightcyan" 14 ( 0 255 255)) ; cyan
	334	("brightwhite" 15 (255 255 255))) ; white
	335	"Names of 16 standard xterm/aixterm colors, their numbers, and RGB values.")
	336
	337	(defun xterm-rgb-convert-to-16bit (prim)
	338	"Convert an 8-bit primary color value PRIM to a corresponding 16-bit value."
ce102cb1	339	(logior prim (lsh prim 8)))
63e9afde EZ	340
	341	(defun xterm-register-default-colors ()
	342	"Register the default set of colors for xterm or compatible emulator.
	343
	344	This function registers the number of colors returned by `display-color-cells'
	345	for the currently selected frame. The first 16 colors are taken from
	346	`xterm-standard-colors', which see, while the rest are computed assuming
	347	either the 88- or 256-color standard color scheme supported by latest
	348	versions of xterm."
	349	(let* ((ncolors (display-color-cells))
	350	(colors xterm-standard-colors)
	351	(color (car colors)))
	352	(if (> ncolors 0)
	353	;; Clear the 8 default tty colors registered by startup.el
	354	(tty-color-clear))
	355	;; Only register as many colors as are supported by the display.
	356	(while (and (> ncolors 0) colors)
	357	(tty-color-define (car color) (cadr color)
	358	(mapcar 'xterm-rgb-convert-to-16bit
	359	(car (cddr color))))
	360	(setq colors (cdr colors)
	361	color (car colors)
	362	ncolors (1- ncolors)))
	363	;; We've exhausted the colors from `xterm-standard-colors'. If there
	364	;; are more colors to support, compute them now.
	365	(when (> ncolors 0)
	366	(cond
	367	((= ncolors 240) ; 256-color xterm
	368	;; 216 non-gray colors first
	369	(let ((r 0) (g 0) (b 0))
	370	(while (> ncolors 24)
	371	;; This and other formulae taken from 256colres.pl and
	372	;; 88colres.pl in the xterm distribution.
	373	(tty-color-define (format "color-%d" (- 256 ncolors))
	374	(- 256 ncolors)
	375	(mapcar 'xterm-rgb-convert-to-16bit
ce102cb1 DN	376	(list (if (zerop r) 0 (+ (* r 40) 55))
	377	(if (zerop g) 0 (+ (* g 40) 55))
	378	(if (zerop b) 0 (+ (* b 40) 55)))))
	379
63e9afde EZ	380	(setq b (1+ b))
	381	(if (> b 5)
	382	(setq g (1+ g)
	383	b 0))
	384	(if (> g 5)
	385	(setq r (1+ r)
	386	g 0))
	387	(setq ncolors (1- ncolors))))
	388	;; Now the 24 gray colors
	389	(while (> ncolors 0)
	390	(setq color (xterm-rgb-convert-to-16bit (+ 8 (* (- 24 ncolors) 10))))
	391	(tty-color-define (format "color-%d" (- 256 ncolors))
	392	(- 256 ncolors)
	393	(list color color color))
	394	(setq ncolors (1- ncolors))))
	395	((= ncolors 72) ; 88-color xterm
	396	;; 64 non-gray colors
	397	(let ((levels '(0 139 205 255))
	398	(r 0) (g 0) (b 0))
	399	(while (> ncolors 8)
	400	(tty-color-define (format "color-%d" (- 88 ncolors))
	401	(- 88 ncolors)
	402	(mapcar 'xterm-rgb-convert-to-16bit
	403	(list (nth r levels)
	404	(nth g levels)
	405	(nth b levels))))
	406	(setq b (1+ b))
	407	(if (> b 3)
	408	(setq g (1+ g)
	409	b 0))
	410	(if (> g 3)
	411	(setq r (1+ r)
	412	g 0))
	413	(setq ncolors (1- ncolors))))
	414	;; Now the 8 gray colors
	415	(while (> ncolors 0)
	416	(setq color (xterm-rgb-convert-to-16bit
ce102cb1	417	(floor
63e9afde EZ	418	(if (= ncolors 8)
	419	46.36363636
	420	(+ (* (- 8 ncolors) 23.18181818) 69.54545454)))))
	421	(tty-color-define (format "color-%d" (- 88 ncolors))
	422	(- 88 ncolors)
	423	(list color color color))
	424	(setq ncolors (1- ncolors))))
	425	(t (error "Unsupported number of xterm colors (%d)" (+ 16 ncolors)))))
	426	;; Modifying color mappings means realized faces don't use the
	427	;; right colors, so clear them.
	428	(clear-face-cache)))
	429
4dab1ffd	430	;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
6a05d05f	431	;;; xterm.el ends here