Mercurial > hg > xemacs-beta
comparison lisp/prim/keydefs.el @ 159:3bb7ccffb0c0 r20-3b6
Import from CVS: tag r20-3b6
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:41:43 +0200 |
| parents | 6b37e6ddd302 |
| children | a2f645c6b9f8 |
comparison
equal
deleted
inserted
replaced
| 158:558dfa75ffb3 | 159:3bb7ccffb0c0 |
|---|---|
| 93 (define-key global-map "\C-a" 'beginning-of-line) | 93 (define-key global-map "\C-a" 'beginning-of-line) |
| 94 (define-key global-map "\C-b" 'backward-char) | 94 (define-key global-map "\C-b" 'backward-char) |
| 95 (define-key global-map "\C-e" 'end-of-line) | 95 (define-key global-map "\C-e" 'end-of-line) |
| 96 (define-key global-map "\C-f" 'forward-char) | 96 (define-key global-map "\C-f" 'forward-char) |
| 97 (define-key global-map "\C-d" 'delete-char) | 97 (define-key global-map "\C-d" 'delete-char) |
| 98 (define-key global-map 'delete 'backspace-or-delete) | 98 (define-key global-map 'delete 'backward-or-forward-delete-char) |
| 99 (define-key global-map '(meta delete) 'backward-or-forward-kill-word) | |
| 100 (define-key global-map [(control x) (delete)] 'backward-or-forward-kill-sentence) | |
| 99 | 101 |
| 100 ;; FSFmacs files.el | 102 ;; FSFmacs files.el |
| 101 | 103 |
| 102 (define-key global-map "\C-x\C-f" 'find-file) | 104 (define-key global-map "\C-x\C-f" 'find-file) |
| 103 (define-key global-map "\C-x\C-q" 'toggle-read-only) | 105 (define-key global-map "\C-x\C-q" 'toggle-read-only) |
| 269 | 271 |
| 270 (define-key global-map "\M-@" 'mark-word) | 272 (define-key global-map "\M-@" 'mark-word) |
| 271 (define-key global-map "\M-f" 'forward-word) | 273 (define-key global-map "\M-f" 'forward-word) |
| 272 (define-key global-map "\M-b" 'backward-word) | 274 (define-key global-map "\M-b" 'backward-word) |
| 273 (define-key global-map "\M-d" 'kill-word) | 275 (define-key global-map "\M-d" 'kill-word) |
| 274 ;;(define-key global-map "\M-\177" 'backward-kill-word) | |
| 275 | 276 |
| 276 (define-key global-map "\M-<" 'beginning-of-buffer) | 277 (define-key global-map "\M-<" 'beginning-of-buffer) |
| 277 (define-key global-map "\M->" 'end-of-buffer) | 278 (define-key global-map "\M->" 'end-of-buffer) |
| 278 (define-key global-map "\C-xh" 'mark-whole-buffer) | 279 (define-key global-map "\C-xh" 'mark-whole-buffer) |
| 279 (define-key global-map "\M-\\" 'delete-horizontal-space) | 280 (define-key global-map "\M-\\" 'delete-horizontal-space) |
| 291 (define-key global-map "\M-\C-h" 'mark-defun) | 292 (define-key global-map "\M-\C-h" 'mark-defun) |
| 292 (define-key global-map "\M-\(" 'insert-parentheses) | 293 (define-key global-map "\M-\(" 'insert-parentheses) |
| 293 (define-key global-map "\M-\)" 'move-past-close-and-reindent) | 294 (define-key global-map "\M-\)" 'move-past-close-and-reindent) |
| 294 (define-key global-map "\M-\t" 'lisp-complete-symbol) | 295 (define-key global-map "\M-\t" 'lisp-complete-symbol) |
| 295 | 296 |
| 296 (define-key global-map '(control meta delete) 'backward-kill-sexp) | 297 (define-key global-map '(control meta backspace) 'backward-kill-sexp) |
| 298 (define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp) | |
| 297 | 299 |
| 298 | 300 |
| 299 (define-key global-map "\C-x/" 'point-to-register) | 301 (define-key global-map "\C-x/" 'point-to-register) |
| 300 (define-key global-map "\C-xj" 'jump-to-register) | 302 (define-key global-map "\C-xj" 'jump-to-register) |
| 301 (define-key global-map "\C-xx" 'copy-to-register) | 303 (define-key global-map "\C-xx" 'copy-to-register) |