X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fkeydefs.el;h=2f23834d39d455f02aeec63db49b6c79fc021d0b;hb=3ddd5d42503cc3567ef598bba0cbd86d256ec0fa;hp=cbece4fb4726742627dd5d71fe47d9e7bfc5b989;hpb=3062d425fac0473eb5aa2efc0bb002f6ce0cb028;p=chise%2Fxemacs-chise.git.1 diff --git a/lisp/keydefs.el b/lisp/keydefs.el index cbece4f..2f23834 100644 --- 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