Mercurial > hg > xemacs-beta

comparison lisp/prim/keydefs.el @ 157:6b37e6ddd302 r20-3b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b5
author cvs
date Mon, 13 Aug 2007 09:40:41 +0200
parents 43dd3413c7c7
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
156:60baf0b43294 157:6b37e6ddd302
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 "\177" 'backspace-or-delete) 98 (define-key global-map 'delete 'backspace-or-delete)
99 99
100 ;; FSFmacs files.el 100 ;; FSFmacs files.el
101 101
102 (define-key global-map "\C-x\C-f" 'find-file) 102 (define-key global-map "\C-x\C-f" 'find-file)
103 (define-key global-map "\C-x\C-q" 'toggle-read-only) 103 (define-key global-map "\C-x\C-q" 'toggle-read-only)
269 269
270 (define-key global-map "\M-@" 'mark-word) 270 (define-key global-map "\M-@" 'mark-word)
271 (define-key global-map "\M-f" 'forward-word) 271 (define-key global-map "\M-f" 'forward-word)
272 (define-key global-map "\M-b" 'backward-word) 272 (define-key global-map "\M-b" 'backward-word)
273 (define-key global-map "\M-d" 'kill-word) 273 (define-key global-map "\M-d" 'kill-word)
274 (define-key global-map "\M-\177" 'backward-kill-word) 274 ;;(define-key global-map "\M-\177" 'backward-kill-word)
275 275
276 (define-key global-map "\M-<" 'beginning-of-buffer) 276 (define-key global-map "\M-<" 'beginning-of-buffer)
277 (define-key global-map "\M->" 'end-of-buffer) 277 (define-key global-map "\M->" 'end-of-buffer)
278 (define-key global-map "\C-xh" 'mark-whole-buffer) 278 (define-key global-map "\C-xh" 'mark-whole-buffer)
279 (define-key global-map "\M-\\" 'delete-horizontal-space) 279 (define-key global-map "\M-\\" 'delete-horizontal-space)
335 (define-key global-map "\M-}" 'forward-paragraph) 335 (define-key global-map "\M-}" 'forward-paragraph)
336 (define-key global-map "\M-h" 'mark-paragraph) 336 (define-key global-map "\M-h" 'mark-paragraph)
337 (define-key global-map "\M-a" 'backward-sentence) 337 (define-key global-map "\M-a" 'backward-sentence)
338 (define-key global-map "\M-e" 'forward-sentence) 338 (define-key global-map "\M-e" 'forward-sentence)
339 (define-key global-map "\M-k" 'kill-sentence) 339 (define-key global-map "\M-k" 'kill-sentence)
340 (define-key global-map "\C-x\177" 'backward-kill-sentence) 340 ;;(define-key global-map "\C-x\177" 'backward-kill-sentence)
341 341
342 (define-key global-map "\C-x[" 'backward-page) 342 (define-key global-map "\C-x[" 'backward-page)
343 (define-key global-map "\C-x]" 'forward-page) 343 (define-key global-map "\C-x]" 'forward-page)
344 (define-key global-map "\C-x\C-p" 'mark-page) 344 (define-key global-map "\C-x\C-p" 'mark-page)
345 (define-key global-map "\C-xl" 'count-lines-page) 345 (define-key global-map "\C-xl" 'count-lines-page)