Mercurial > hg > xemacs-beta

comparison lisp/term/xterm.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])
65 (define-key function-key-map "\eOA" [up]) 64 (define-key function-key-map "\eOA" [up])
66 (define-key function-key-map "\eOB" [down]) 65 (define-key function-key-map "\eOB" [down])
67 (define-key function-key-map "\eOC" [right]) 66 (define-key function-key-map "\eOC" [right])
68 (define-key function-key-map "\eOD" [left]) 67 (define-key function-key-map "\eOD" [left])
69 68
70 (define-key function-key-map "\eOp" [kp-0]) 69 (define-key function-key-map "\eOp" [kp_0])
71 (define-key function-key-map "\eOq" [kp-1]) 70 (define-key function-key-map "\eOq" [kp_1])
72 (define-key function-key-map "\eOr" [kp-2]) 71 (define-key function-key-map "\eOr" [kp_2])
73 (define-key function-key-map "\eOs" [kp-3]) 72 (define-key function-key-map "\eOs" [kp_3])
74 (define-key function-key-map "\eOt" [kp-4]) 73 (define-key function-key-map "\eOt" [kp_4])
75 (define-key function-key-map "\eOu" [kp-5]) 74 (define-key function-key-map "\eOu" [kp_5])
76 (define-key function-key-map "\eOv" [kp-6]) 75 (define-key function-key-map "\eOv" [kp_6])
77 (define-key function-key-map "\eOw" [kp-7]) 76 (define-key function-key-map "\eOw" [kp_7])
78 (define-key function-key-map "\eOx" [kp-8]) 77 (define-key function-key-map "\eOx" [kp_8])
79 (define-key function-key-map "\eOy" [kp-9]) 78 (define-key function-key-map "\eOy" [kp_9])
80 79
81 (define-key function-key-map "\eOk" [kp-add]) 80 (define-key function-key-map "\eOk" [kp_add])
82 (define-key function-key-map "\eOm" [kp-subtract]) 81 (define-key function-key-map "\eOm" [kp_subtract])
83 (define-key function-key-map "\eOM" [kp-enter]) 82 (define-key function-key-map "\eOM" [kp_enter])
84 (define-key function-key-map "\eOj" [kp-multiply]) 83 (define-key function-key-map "\eOj" [kp_multiply])
85 (define-key function-key-map "\eOo" [kp-divide]) 84 (define-key function-key-map "\eOo" [kp_divide])
86 (define-key function-key-map "\eOn" [kp-decimal]) 85 (define-key function-key-map "\eOn" [kp_decimal])
87 86
88 ;; If you use the X resource -- XTerm*sunFunctionKeys: on -- you may 87 ;; If you use the X resource -- XTerm*sunFunctionKeys: on -- you may
89 ;; need these. 88 ;; need these.
90 (define-key function-key-map "\e[224z" [f1]) 89 (define-key function-key-map "\e[224z" [f1])
91 (define-key function-key-map "\e[225z" [f2]) 90 (define-key function-key-map "\e[225z" [f2])