diff lisp/keydefs.el @ 408:501cfd01ee6d r21-2-34

Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents 2f8bb876ab1d
children 697ef44129c6
line wrap: on
line diff
--- a/lisp/keydefs.el	Mon Aug 13 11:17:10 2007 +0200
+++ b/lisp/keydefs.el	Mon Aug 13 11:18:11 2007 +0200
@@ -385,6 +385,7 @@
 ;; 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 +550,26 @@
 (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)