Mercurial > hg > xemacs-beta

comparison lisp/emulators/tpu-edt.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents b9518feda344
children 34a5b81f86ba
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
213 ;; (define-key SS3-map "w" 'tpu-paragraph) ; KP7 213 ;; (define-key SS3-map "w" 'tpu-paragraph) ; KP7
214 214
215 ;; ; Repeat the preceding mappings for X-windows. 215 ;; ; Repeat the preceding mappings for X-windows.
216 ;; (cond 216 ;; (cond
217 ;; (window-system 217 ;; (window-system
218 ;; (global-set-key [kp_7] 'tpu-paragraph) ; KP7 218 ;; (global-set-key [kp-7] 'tpu-paragraph) ; KP7
219 ;; (define-key GOLD-map [kp_f1] 'universal-argument))) ; GOLD-PF1 219 ;; (define-key GOLD-map [kp-f1] 'universal-argument))) ; GOLD-PF1
220 220
221 ;; ; Display the TPU-edt version. 221 ;; ; Display the TPU-edt version.
222 ;; (tpu-version) 222 ;; (tpu-version)
223 223
224 224
2248 (define-key repeat-complex-command-map "\eOA" 'previous-complex-command) 2248 (define-key repeat-complex-command-map "\eOA" 'previous-complex-command)
2249 (define-key repeat-complex-command-map "\eOB" 'next-complex-command))) 2249 (define-key repeat-complex-command-map "\eOB" 'next-complex-command)))
2250 2250
2251 2251
2252 ;;; 2252 ;;;
2253 ;;; Minibuffer map additions to make KP_enter = RET 2253 ;;; Minibuffer map additions to make KP-enter = RET
2254 ;;; 2254 ;;;
2255 (define-key minibuffer-local-map "\eOM" 'exit-minibuffer) 2255 (define-key minibuffer-local-map "\eOM" 'exit-minibuffer)
2256 (define-key minibuffer-local-ns-map "\eOM" 'exit-minibuffer) 2256 (define-key minibuffer-local-ns-map "\eOM" 'exit-minibuffer)
2257 (define-key minibuffer-local-completion-map "\eOM" 'exit-minibuffer) 2257 (define-key minibuffer-local-completion-map "\eOM" 'exit-minibuffer)
2258 (define-key minibuffer-local-must-match-map "\eOM" 'minibuffer-complete-and-exit) 2258 (define-key minibuffer-local-must-match-map "\eOM" 'minibuffer-complete-and-exit)