Mercurial > hg > xemacs-beta

comparison lisp/prim/keydefs.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 461c7ba8286a
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;; General Public License for more details. 14 ;; General Public License for more details.
15 15
16 ;; You should have received a copy of the GNU General Public License 16 ;; You should have received a copy of the GNU General Public License
17 ;; along with XEmacs; see the file COPYING. If not, write to the 17 ;; along with XEmacs; see the file COPYING. If not, write to the
18 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 18 ;; Free Software Foundation, 59 Temple Place - Suite 330,
19 ;; Boston, MA 02111-1307, USA. 19 ;; Boston, MA 02111-1307, USA.
20 20
21 ;; All the global bindings should be here so that one can reload things 21 ;; All the global bindings should be here so that one can reload things
22 ;; like files.el without trashing one's personal bindings. 22 ;; like files.el without trashing one's personal bindings.
23 23
66 (put 'erase-buffer 'disabled t) ;from buffer.c 66 (put 'erase-buffer 'disabled t) ;from buffer.c
67 67
68 ;; FSFmacs casefiddle.c 68 ;; FSFmacs casefiddle.c
69 69
70 (define-key global-map "\C-x\C-u" 'upcase-region) 70 (define-key global-map "\C-x\C-u" 'upcase-region)
71 ;; This is silly with zmacs regions 71 (put 'upcase-region 'disabled t)
72 ;(put 'upcase-region 'disabled t)
73 (define-key global-map "\C-x\C-l" 'downcase-region) 72 (define-key global-map "\C-x\C-l" 'downcase-region)
74 ;; This is silly with zmacs regions 73 (put 'downcase-region 'disabled t)
75 ;(put 'downcase-region 'disabled t)
76 (define-key global-map "\M-u" 'upcase-region-or-word) 74 (define-key global-map "\M-u" 'upcase-region-or-word)
77 (define-key global-map "\M-l" 'downcase-region-or-word) 75 (define-key global-map "\M-l" 'downcase-region-or-word)
78 (define-key global-map "\M-c" 'capitalize-region-or-word) 76 (define-key global-map "\M-c" 'capitalize-region-or-word)
79 77
80 ;; FSFmacs cmds.c 78 ;; FSFmacs cmds.c
134 ;; New FSF19 bindings: C-x 5 as prefix for window commands 132 ;; New FSF19 bindings: C-x 5 as prefix for window commands
135 (define-key global-map "\C-x52" 'make-frame) 133 (define-key global-map "\C-x52" 'make-frame)
136 (define-key global-map "\C-x50" 'delete-frame) 134 (define-key global-map "\C-x50" 'delete-frame)
137 (define-key global-map "\C-x5o" 'other-frame) 135 (define-key global-map "\C-x5o" 'other-frame)
138 ;; XEmacs addition: 136 ;; XEmacs addition:
139 ;;(define-key global-map "\C-x5m" 'mail-other-frame) 137 (define-key global-map "\C-x5m" 'mail-other-frame)
140 138
141 ;; FSFmacs help.el 139 ;; FSFmacs help.el
142 140
143 (let ((ch help-char)) 141 (let ((ch help-char))
144 (if (or (characterp ch) (integerp ch)) 142 (if (or (characterp ch) (integerp ch))
197 (define-key global-map "\C-x=" 'what-cursor-position) 195 (define-key global-map "\C-x=" 'what-cursor-position)
198 (define-key global-map "\M-:" 'eval-expression) 196 (define-key global-map "\M-:" 'eval-expression)
199 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. 197 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
200 (define-key global-map "\M-\e:" 'eval-expression) 198 (define-key global-map "\M-\e:" 'eval-expression)
201 ;(define-key global-map "\M-\e" 'eval-expression) 199 ;(define-key global-map "\M-\e" 'eval-expression)
202 ;; Do we really need to disable this now that it is harder to type 200 (put 'eval-expression 'disabled t)
203 ;; by accident?
204 ;; (put 'eval-expression 'disabled t)
205 ;; Changed from C-x ESC so that function keys work following C-x. 201 ;; Changed from C-x ESC so that function keys work following C-x.
206 (define-key global-map "\C-x\e\e" 'repeat-complex-command) 202 (define-key global-map "\C-x\e\e" 'repeat-complex-command)
207 ;(define-key global-map "\C-x\e" 'repeat-complex-command) 203 ;(define-key global-map "\C-x\e" 'repeat-complex-command)
208 (define-key global-map "\C-xu" 'advertised-undo) 204 (define-key global-map "\C-xu" 'advertised-undo)
209 ;; Many people are used to typing C-/ on X terminals and getting C-_. 205 ;; Many people are used to typing C-/ on X terminals and getting C-_.
518 ;; fixes that. If it turns out that the semantics of these keys should 514 ;; fixes that. If it turns out that the semantics of these keys should
519 ;; differ from server to server, this should be moved into server-specific 515 ;; differ from server to server, this should be moved into server-specific
520 ;; files, but these appear to be the standard Motif and PC bindings. 516 ;; files, but these appear to be the standard Motif and PC bindings.
521 517
522 ;; potential R6isms 518 ;; potential R6isms
523 (define-key global-map 'kp-left 'backward-char) 519 (define-key global-map 'kp_left 'backward-char)
524 (define-key global-map 'kp-up 'previous-line) 520 (define-key global-map 'kp_up 'previous-line)
525 (define-key global-map 'kp-right 'forward-char) 521 (define-key global-map 'kp_right 'forward-char)
526 (define-key global-map 'kp-down 'next-line) 522 (define-key global-map 'kp_down 'next-line)
527 523
528 524
529 ;; movement by larger blocks 525 ;; movement by larger blocks
530 (define-key global-map '(control left) 'backward-word) 526 (define-key global-map '(control left) 'backward-word)
531 (define-key global-map '(control up) #'(lambda () 527 (define-key global-map '(control up) #'(lambda ()
544 540
545 ;; movement by pages 541 ;; movement by pages
546 (define-key global-map '(control prior) 'scroll-right) 542 (define-key global-map '(control prior) 'scroll-right)
547 (define-key global-map '(control next) 'scroll-left) 543 (define-key global-map '(control next) 'scroll-left)
548 ;; potential R6isms 544 ;; potential R6isms
549 (define-key global-map 'kp-prior 'scroll-down) 545 (define-key global-map 'kp_prior 'scroll-down)
550 (define-key global-map 'kp-next 'scroll-up) 546 (define-key global-map 'kp_next 'scroll-up)
551 (define-key global-map '(control kp-prior) 'scroll-right) 547 (define-key global-map '(control kp_prior) 'scroll-right)
552 (define-key global-map '(control kp-next) 'scroll-left) 548 (define-key global-map '(control kp_next) 'scroll-left)
553 549
554 550
555 ;; movement to the limits 551 ;; movement to the limits
556 (define-key global-map '(control home) 'beginning-of-buffer) 552 (define-key global-map '(control home) 'beginning-of-buffer)
557 (define-key global-map '(control end) 'end-of-buffer) 553 (define-key global-map '(control end) 'end-of-buffer)
558 (define-key global-map 'begin 'beginning-of-line) 554 (define-key global-map 'begin 'beginning-of-line)
559 (define-key global-map '(control begin) 'beginning-of-buffer) 555 (define-key global-map '(control begin) 'beginning-of-buffer)
560 ;; potential R6isms 556 ;; potential R6isms
561 (define-key global-map 'kp-home 'beginning-of-line) 557 (define-key global-map 'kp_home 'beginning-of-line)
562 (define-key global-map '(control kp-home) 'beginning-of-buffer) 558 (define-key global-map '(control kp_home) 'beginning-of-buffer)
563 (define-key global-map 'kp-end 'end-of-line) 559 (define-key global-map 'kp_end 'end-of-line)
564 (define-key global-map '(control kp-end) 'end-of-buffer) 560 (define-key global-map '(control kp_end) 'end-of-buffer)
565 561
566 ;; movement between windows 562 ;; movement between windows
567 (define-key global-map '(control tab) 'other-window) 563 (define-key global-map '(control tab) 'other-window)
568 (define-key global-map '(control shift tab) 'backward-other-window) 564 (define-key global-map '(control shift tab) 'backward-other-window)
569 565
571 (define-key global-map '(meta next) 'scroll-other-window) 567 (define-key global-map '(meta next) 'scroll-other-window)
572 (define-key global-map '(meta prior) 'scroll-other-window-down) 568 (define-key global-map '(meta prior) 'scroll-other-window-down)
573 (define-key global-map '(meta home) 'beginning-of-buffer-other-window) 569 (define-key global-map '(meta home) 'beginning-of-buffer-other-window)
574 (define-key global-map '(meta end) 'end-of-buffer-other-window) 570 (define-key global-map '(meta end) 'end-of-buffer-other-window)
575 ;; potential R6isms 571 ;; potential R6isms
576 (define-key global-map '(meta kp-next) 'scroll-other-window) 572 (define-key global-map '(meta kp_next) 'scroll-other-window)
577 (define-key global-map '(meta kp-prior) 'scroll-other-window-down) 573 (define-key global-map '(meta kp_prior) 'scroll-other-window-down)
578 (define-key global-map '(meta kp-home) 'beginning-of-buffer-other-window) 574 (define-key global-map '(meta kp_home) 'beginning-of-buffer-other-window)
579 (define-key global-map '(meta kp-end) 'end-of-buffer-other-window) 575 (define-key global-map '(meta kp_end) 'end-of-buffer-other-window)
580 576
581 ;; potential R6isms 577 ;; potential R6isms
582 (define-key global-map 'redo 'repeat-complex-command) 578 (define-key global-map 'redo 'repeat-complex-command)
583 (define-key global-map 'kp-insert 'overwrite-mode) 579 (define-key global-map 'kp_insert 'overwrite-mode)
584 (define-key global-map 'kp-delete 'backward-delete-char-untabify) 580 (define-key global-map 'kp_delete 'backward-delete-char-untabify)
585 581
586 (define-key global-map 'kp-enter [return]) ; do whatever RET does now 582 (define-key global-map 'kp_enter [return]) ; do whatever RET does now
587 (define-key global-map 'kp-tab [tab]) 583 (define-key global-map 'kp_tab [tab])
588 584
589 (define-key global-map 'undo 'undo) 585 (define-key global-map 'undo 'undo)
590 (define-key global-map 'help 'help-for-help) 586 (define-key global-map 'help 'help-for-help)
591 587
592 (define-key global-map 'kp-space 'self-insert-command) 588 (define-key global-map 'kp_space 'self-insert-command)
593 (define-key global-map 'kp-equal 'self-insert-command) 589 (define-key global-map 'kp_equal 'self-insert-command)
594 (define-key global-map 'kp-multiply 'self-insert-command) 590 (define-key global-map 'kp_multiply 'self-insert-command)
595 (define-key global-map 'kp-add 'self-insert-command) 591 (define-key global-map 'kp_add 'self-insert-command)
596 (define-key global-map 'kp-separator 'self-insert-command) 592 (define-key global-map 'kp_separator 'self-insert-command)
597 (define-key global-map 'kp-subtract 'self-insert-command) 593 (define-key global-map 'kp_subtract 'self-insert-command)
598 (define-key global-map 'kp-decimal 'self-insert-command) 594 (define-key global-map 'kp_decimal 'self-insert-command)
599 (define-key global-map 'kp-divide 'self-insert-command) 595 (define-key global-map 'kp_divide 'self-insert-command)
600 596
601 (define-key global-map 'kp-0 'self-insert-command) 597 (define-key global-map 'kp_0 'self-insert-command)
602 (define-key global-map 'kp-1 'self-insert-command) 598 (define-key global-map 'kp_1 'self-insert-command)
603 (define-key global-map 'kp-2 'self-insert-command) 599 (define-key global-map 'kp_2 'self-insert-command)
604 (define-key global-map 'kp-3 'self-insert-command) 600 (define-key global-map 'kp_3 'self-insert-command)
605 (define-key global-map 'kp-4 'self-insert-command) 601 (define-key global-map 'kp_4 'self-insert-command)
606 (define-key global-map 'kp-5 'self-insert-command) 602 (define-key global-map 'kp_5 'self-insert-command)
607 (define-key global-map 'kp-6 'self-insert-command) 603 (define-key global-map 'kp_6 'self-insert-command)
608 (define-key global-map 'kp-7 'self-insert-command) 604 (define-key global-map 'kp_7 'self-insert-command)
609 (define-key global-map 'kp-8 'self-insert-command) 605 (define-key global-map 'kp_8 'self-insert-command)
610 (define-key global-map 'kp-9 'self-insert-command) 606 (define-key global-map 'kp_9 'self-insert-command)
611 607
612 (define-key global-map 'select 'function-key-error) 608 (define-key global-map 'select 'function-key-error)
613 (define-key global-map 'print 'function-key-error) 609 (define-key global-map 'print 'function-key-error)
614 (define-key global-map 'execute 'execute-extended-command) 610 (define-key global-map 'execute 'execute-extended-command)
615 (define-key global-map 'clearline 'function-key-error) 611 (define-key global-map 'clearline 'function-key-error)