update.

[chise/xemacs-chise.git.1] / lisp / keydefs.el

diff --git a/lisp/keydefs.el b/lisp/keydefs.el
index cbece4f..2f23834 100644 (file)
--- a/lisp/keydefs.el
+++ b/lisp/keydefs.el
@@ -156,6 +156,10 @@ Keymap for characters following C-c.")
 (define-key global-map (vector help-char) 'help-command)
 (define-key global-map 'help 'help-command)
 (define-key global-map 'f1 'help-command)
+;; This is a failsafe mechanism, esp. on TTY's, in case the terminal is
+;; somewhat broken and f1 keys can't work, and backspace is redefined to
+;; do backspace.
+(define-key global-map '(meta ??) 'help-command)
 
 ;; FSFmacs indent.el
 
@@ -333,9 +337,11 @@ Keymap for characters following C-c.")
 (define-key global-map "\C-xr+" 'increment-register)
 (define-key global-map "\C-xrc" 'clear-rectangle)
 (define-key global-map "\C-xrk" 'kill-rectangle)
+(define-key global-map "\C-xrd" 'delete-rectangle)
 (define-key global-map "\C-xry" 'yank-rectangle)
 (define-key global-map "\C-xro" 'open-rectangle)
 (define-key global-map "\C-xrt" 'string-rectangle)
+(define-key global-map "\C-xrp" 'replace-rectangle)
 (define-key global-map "\C-xrw" 'window-configuration-to-register)
 ;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
 
@@ -645,13 +651,13 @@ Keymap for characters following C-c.")
 (define-key global-map 'kp-8           'self-insert-command)
 (define-key global-map 'kp-9           'self-insert-command)
 
-(define-key global-map 'select         'function-key-error)
-(define-key global-map 'print          'function-key-error)
+;(define-key global-map 'select                'function-key-error)
+;(define-key global-map 'print         'function-key-error)
 (define-key global-map 'execute                'execute-extended-command)
-(define-key global-map 'clearline      'function-key-error)
+;(define-key global-map 'clearline     'function-key-error)
 (define-key global-map 'insertline     'open-line)
 (define-key global-map 'deleteline     'kill-line)
-(define-key global-map 'insertchar     'function-key-error)
+;(define-key global-map 'insertchar    'function-key-error)
 (define-key global-map 'deletechar     'delete-char)
 
 ;;; keydefs.el ends here