Mercurial > hg > xemacs-beta
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)