Mercurial > hg > xemacs-beta

comparison lisp/term/linux.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 461c7ba8286a
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details. 17 ;; General Public License for more details.
18 18
19 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the 20 ;; along with XEmacs; see the file COPYING. If not, write to the Free
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 21 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
22 ;; Boston, MA 02111-1307, USA.
23 22
24 ;;;; Code: 23 ;;;; Code:
25 24
26 ;; Termcap or terminfo should set these next four? 25 ;; Termcap or terminfo should set these next four?
27 (define-key function-key-map "\e[A" [up]) 26 (define-key function-key-map "\e[A" [up])
54 (define-key function-key-map "\e[2~" [insert]) 53 (define-key function-key-map "\e[2~" [insert])
55 (define-key function-key-map "\e[3~" [delete]) 54 (define-key function-key-map "\e[3~" [delete])
56 (define-key function-key-map "\e[4~" [end]) 55 (define-key function-key-map "\e[4~" [end])
57 (define-key function-key-map "\e[5~" [prior]) 56 (define-key function-key-map "\e[5~" [prior])
58 (define-key function-key-map "\e[6~" [next]) 57 (define-key function-key-map "\e[6~" [next])
59 (define-key function-key-map "\e[G" [kp-5]) 58 (define-key function-key-map "\e[G" [kp_5])
60 59
61 (define-key function-key-map "\eOp" [kp-0]) 60 (define-key function-key-map "\eOp" [kp_0])
62 (define-key function-key-map "\eOq" [kp-1]) 61 (define-key function-key-map "\eOq" [kp_1])
63 (define-key function-key-map "\eOr" [kp-2]) 62 (define-key function-key-map "\eOr" [kp_2])
64 (define-key function-key-map "\eOs" [kp-3]) 63 (define-key function-key-map "\eOs" [kp_3])
65 (define-key function-key-map "\eOt" [kp-4]) 64 (define-key function-key-map "\eOt" [kp_4])
66 (define-key function-key-map "\eOu" [kp-5]) 65 (define-key function-key-map "\eOu" [kp_5])
67 (define-key function-key-map "\eOv" [kp-6]) 66 (define-key function-key-map "\eOv" [kp_6])
68 (define-key function-key-map "\eOw" [kp-7]) 67 (define-key function-key-map "\eOw" [kp_7])
69 (define-key function-key-map "\eOx" [kp-8]) 68 (define-key function-key-map "\eOx" [kp_8])
70 (define-key function-key-map "\eOy" [kp-9]) 69 (define-key function-key-map "\eOy" [kp_9])
71 70
72 (define-key function-key-map "\eOl" [kp-add]) 71 (define-key function-key-map "\eOl" [kp_add])
73 (define-key function-key-map "\eOS" [kp-subtract]) 72 (define-key function-key-map "\eOS" [kp_subtract])
74 (define-key function-key-map "\eOM" [kp-enter]) 73 (define-key function-key-map "\eOM" [kp_enter])
75 (define-key function-key-map "\eOR" [kp-multiply]) 74 (define-key function-key-map "\eOR" [kp_multiply])
76 (define-key function-key-map "\eOQ" [kp-divide]) 75 (define-key function-key-map "\eOQ" [kp_divide])
77 (define-key function-key-map "\eOn" [kp-decimal]) 76 (define-key function-key-map "\eOn" [kp_decimal])
78 (define-key function-key-map "\eOP" [kp-numlock]) 77 (define-key function-key-map "\eOP" [kp_numlock])
79 78