Mercurial > hg > xemacs-beta

comparison lisp/keydefs.el @ 265:8efd647ea9ca r20-5b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents 0e522484dd2a
children 558f606b08ae
comparison
equal deleted inserted replaced
264:682d2a9d41a5 265:8efd647ea9ca
100 (define-key global-map n 'self-insert-command)) 100 (define-key global-map n 'self-insert-command))
101 (setq n (1+ n)))) 101 (setq n (1+ n))))
102 (define-key global-map " " 'self-insert-command) 102 (define-key global-map " " 'self-insert-command)
103 103
104 (define-key global-map "\C-a" 'beginning-of-line) 104 (define-key global-map "\C-a" 'beginning-of-line)
105 (define-key global-map "\C-b" 'backward-char) 105 (define-key global-map "\C-b" 'backward-char-command)
106 (define-key global-map "\C-e" 'end-of-line) 106 (define-key global-map "\C-e" 'end-of-line)
107 (define-key global-map "\C-f" 'forward-char) 107 (define-key global-map "\C-f" 'forward-char-command)
108 (define-key global-map "\C-d" 'delete-char) 108 (define-key global-map "\C-d" 'delete-char)
109 (define-key global-map 'delete 'backward-or-forward-delete-char) 109 (define-key global-map 'delete 'backward-or-forward-delete-char)
110 (define-key global-map '(meta delete) 'backward-or-forward-kill-word) 110 (define-key global-map '(meta delete) 'backward-or-forward-kill-word)
111 (define-key global-map [(control x) (delete)] 'backward-or-forward-kill-sentence) 111 (define-key global-map [(control x) (delete)] 'backward-or-forward-kill-sentence)
112 112
419 (define-key global-map "\C-xo" 'other-window) 419 (define-key global-map "\C-xo" 'other-window)
420 (define-key global-map "\C-x^" 'enlarge-window) 420 (define-key global-map "\C-x^" 'enlarge-window)
421 (define-key global-map "\C-x<" 'scroll-left) 421 (define-key global-map "\C-x<" 'scroll-left)
422 (define-key global-map "\C-x>" 'scroll-right) 422 (define-key global-map "\C-x>" 'scroll-right)
423 423
424 (define-key global-map "\C-v" 'scroll-up) 424 (define-key global-map "\C-v" 'scroll-up-command)
425 (define-key global-map "\M-v" 'scroll-down) 425 (define-key global-map "\M-v" 'scroll-down-command)
426 (define-key global-map "\M-\C-v" 'scroll-other-window) 426 (define-key global-map "\M-\C-v" 'scroll-other-window)
427 ; meta-shift-V, that is. 427 ; meta-shift-V, that is.
428 (define-key global-map '(meta V) 'scroll-other-window-down) 428 (define-key global-map '(meta V) 'scroll-other-window-down)
429 429
430 (define-key global-map "\C-l" 'recenter) 430 (define-key global-map "\C-l" 'recenter)
505 ;; fixes that. If it turns out that the semantics of these keys should 505 ;; fixes that. If it turns out that the semantics of these keys should
506 ;; differ from server to server, this should be moved into server-specific 506 ;; differ from server to server, this should be moved into server-specific
507 ;; files, but these appear to be the standard Motif and PC bindings. 507 ;; files, but these appear to be the standard Motif and PC bindings.
508 508
509 ;; movement by units 509 ;; movement by units
510 (define-key global-map 'left 'backward-char) 510 (define-key global-map 'left 'backward-char-command)
511 (define-key global-map 'up 'previous-line) 511 (define-key global-map 'up 'previous-line)
512 (define-key global-map 'right 'forward-char) 512 (define-key global-map 'right 'forward-char-command)
513 (define-key global-map 'down 'next-line) 513 (define-key global-map 'down 'next-line)
514 514
515 ;; movement by pages 515 ;; movement by pages
516 (define-key global-map 'prior 'scroll-down) 516 (define-key global-map 'prior 'scroll-down-command)
517 (define-key global-map 'next 'scroll-up) 517 (define-key global-map 'next 'scroll-up-command)
518 518
519 ;; movement to the limits 519 ;; movement to the limits
520 (define-key global-map 'home 'beginning-of-line) 520 (define-key global-map 'home 'beginning-of-line)
521 (define-key global-map 'end 'end-of-line) 521 (define-key global-map 'end 'end-of-line)
522 522
532 ;; fixes that. If it turns out that the semantics of these keys should 532 ;; fixes that. If it turns out that the semantics of these keys should
533 ;; differ from server to server, this should be moved into server-specific 533 ;; differ from server to server, this should be moved into server-specific
534 ;; files, but these appear to be the standard Motif and PC bindings. 534 ;; files, but these appear to be the standard Motif and PC bindings.
535 535
536 ;; potential R6isms 536 ;; potential R6isms
537 (define-key global-map 'kp-left 'backward-char) 537 (define-key global-map 'kp-left 'backward-char-command)
538 (define-key global-map 'kp-up 'previous-line) 538 (define-key global-map 'kp-up 'previous-line)
539 (define-key global-map 'kp-right 'forward-char) 539 (define-key global-map 'kp-right 'forward-char-command)
540 (define-key global-map 'kp-down 'next-line) 540 (define-key global-map 'kp-down 'next-line)
541 541
542 542
543 ;; movement by larger blocks 543 ;; movement by larger blocks
544 (define-key global-map '(control left) 'backward-word) 544 (define-key global-map '(control left) 'backward-word)
558 558
559 ;; movement by pages 559 ;; movement by pages
560 (define-key global-map '(control prior) 'scroll-right) 560 (define-key global-map '(control prior) 'scroll-right)
561 (define-key global-map '(control next) 'scroll-left) 561 (define-key global-map '(control next) 'scroll-left)
562 ;; potential R6isms 562 ;; potential R6isms
563 (define-key global-map 'kp-prior 'scroll-down) 563 (define-key global-map 'kp-prior 'scroll-down-command)
564 (define-key global-map 'kp-next 'scroll-up) 564 (define-key global-map 'kp-next 'scroll-up-command)
565 (define-key global-map '(control kp-prior) 'scroll-right) 565 (define-key global-map '(control kp-prior) 'scroll-right)
566 (define-key global-map '(control kp-next) 'scroll-left) 566 (define-key global-map '(control kp-next) 'scroll-left)
567 567
568 568
569 ;; movement to the limits 569 ;; movement to the limits