X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fkeydefs.el;h=17f2e6672b62d5e62338d333a5a52d44489c4e00;hb=5fdef766338d8616721791d753d0fc2737433e5b;hp=82652ea1be158ff88849756a50853496f7fad064;hpb=f52a96980ed9280f8f906a20d4b899dc0b027644;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/keydefs.el b/lisp/keydefs.el
index 82652ea..17f2e66 100644
--- a/lisp/keydefs.el
+++ b/lisp/keydefs.el
@@ -272,6 +272,10 @@ Keymap for characters following C-c.")
 (define-key global-map "\M-\C-t" 'transpose-sexps)
 (define-key global-map "\C-x\C-t" 'transpose-lines)
 
+;; XEmacs: much more reasonable and useful key definitions.
+(define-key global-map '(control T) 'transpose-line-down)
+(define-key global-map '(meta T) 'transpose-line-up)
+
 (define-key global-map "\M-;" 'indent-for-comment)
 (define-key global-map "\M-j" 'indent-new-comment-line)
 (define-key global-map "\M-\C-j" 'indent-new-comment-line)
@@ -385,6 +389,7 @@ Keymap for characters following C-c.")
 ;; Default binding of "Control-h" is help.
 (define-key global-map 'backspace 'delete-backward-char)
 (define-key global-map '(meta backspace) 'backward-kill-word)
+(define-key global-map [(control x) backspace] 'backward-kill-sentence)
 
 (define-key global-map "\M-\C-z" 'activate-region)
 
@@ -549,24 +554,26 @@ Keymap for characters following C-c.")
 (define-key global-map '(control kp-down) 'forward-block-of-lines)
 
 ;; context-sensitive movement
-;; (meta control left/right) should be reserved for bindings that
-;; switch between buffers/web pages/etc.
 (define-key global-map '(meta left)	'backward-sexp)
 (define-key global-map '(meta right)	'forward-sexp)
-(define-key global-map '(meta up)	'backward-sentence)
-(define-key global-map '(meta down)	'forward-sentence)
-(define-key global-map '(meta control up) 'backward-paragraph)
-(define-key global-map '(meta control down) 'forward-paragraph)
+(define-key global-map '(meta up)	'backward-paragraph)
+(define-key global-map '(meta down)	'forward-paragraph)
+(define-key global-map '(meta control left) 'backward-sentence)
+(define-key global-map '(meta control right) 'forward-sentence)
+(define-key global-map '(meta control up) 'scroll-down-one)
+(define-key global-map '(meta control down) 'scroll-up-one)
 (define-key global-map '(meta control home)	'beginning-of-defun)
 (define-key global-map '(meta control end)	'end-of-defun)
 (define-key global-map '(meta control prior)	'backward-page)
 (define-key global-map '(meta control next)	'forward-page)
 (define-key global-map '(meta kp-left)  'backward-sexp)
 (define-key global-map '(meta kp-right) 'forward-sexp)
-(define-key global-map '(meta kp-up)	'backward-sentence)
-(define-key global-map '(meta kp-down)	'forward-sentence)
-(define-key global-map '(meta control kp-up) 'backward-paragraph)
-(define-key global-map '(meta control kp-down) 'forward-paragraph)
+(define-key global-map '(meta kp-up)	'backward-paragraph)
+(define-key global-map '(meta kp-down)	'forward-paragraph)
+(define-key global-map '(meta control kp-left) 'backward-sentence)
+(define-key global-map '(meta control kp-right) 'forward-sentence)
+(define-key global-map '(meta control kp-up) 'scroll-down-one)
+(define-key global-map '(meta control kp-down) 'scroll-up-one)
 (define-key global-map '(meta control kp-home)	'beginning-of-defun)
 (define-key global-map '(meta control kp-end)	'end-of-defun)
 (define-key global-map '(meta control kp-prior)	'backward-page)