Mercurial > hg > xemacs-beta

comparison lisp/keydefs.el @ 771:943eaba38521

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents d1ecd411af4c
children a634e3b7acc8
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
1 ;;; keydefs.el --- Define standard keybindings. 1 ;;; keydefs.el --- Define standard keybindings.
2 2
3 ;; Copyright (C) 1992-4, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992-4, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 2000 Ben Wing. 4 ;; Copyright (C) 2000, 2001 Ben Wing.
5 5
6 ;; Maintainer: XEmacs Development Team 6 ;; Maintainer: XEmacs Development Team
7 ;; Keywords: internal, dumped 7 ;; Keywords: internal, dumped
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
180 (define-key global-map "\M-\C-s" 'isearch-forward-regexp) 180 (define-key global-map "\M-\C-s" 'isearch-forward-regexp)
181 (define-key global-map "\M-\C-r" 'isearch-backward-regexp) 181 (define-key global-map "\M-\C-r" 'isearch-backward-regexp)
182 182
183 ;; FSFmacs keyboard.c 183 ;; FSFmacs keyboard.c
184 184
185 (define-key global-map "\C-z" 'suspend-emacs-or-iconify-frame) 185 (define-key global-tty-map "\C-z" 'suspend-emacs)
186 (define-key global-window-system-map "\C-z" 'zap-up-to-char)
187 (define-key global-window-system-map '(control Z) 'iconify-frame)
186 (define-key global-map "\C-x\C-z" 'suspend-or-iconify-emacs) 188 (define-key global-map "\C-x\C-z" 'suspend-or-iconify-emacs)
187 189
188 ;; FSFmacs loaddefs.el 190 ;; FSFmacs loaddefs.el
189 191
190 ;; New FSF19 bindings: C-x n as a prefix for narrowing commands. 192 ;; New FSF19 bindings: C-x n as a prefix for narrowing commands.
212 (define-key global-map "\M-z" 'zap-to-char) 214 (define-key global-map "\M-z" 'zap-to-char)
213 (define-key global-map "\M-=" 'count-lines-region) 215 (define-key global-map "\M-=" 'count-lines-region)
214 (define-key global-map "\C-x=" 'what-cursor-position) 216 (define-key global-map "\C-x=" 'what-cursor-position)
215 (define-key global-map "\M-:" 'eval-expression) 217 (define-key global-map "\M-:" 'eval-expression)
216 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. 218 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
217 (define-key global-map "\M-\e:" 'eval-expression) 219 ;(define-key global-map "\M-\e:" 'eval-expression)
218 ;(define-key global-map "\M-\e" 'eval-expression) 220 ;(define-key global-map "\M-\e" 'eval-expression)
219 ;; Do we really need to disable this now that it is harder to type 221 ;; Do we really need to disable this now that it is harder to type
220 ;; by accident? 222 ;; by accident?
221 ;; (put 'eval-expression 'disabled t) 223 ;; (put 'eval-expression 'disabled t)
222 ;; Changed from C-x ESC so that function keys work following C-x. 224 ;; Changed from C-x ESC so that function keys work following C-x.
225 ;; FMH! I tried putting back C-x ESC using global-window-system-map and
226 ;; removing the other bindings, but it doesn't work! I don't understand why
227 ;; M-ESC ESC (i.e. ESC ESC ESC) does work.
223 (define-key global-map "\C-x\e\e" 'repeat-complex-command) 228 (define-key global-map "\C-x\e\e" 'repeat-complex-command)
224 ;(define-key global-map "\C-x\e" 'repeat-complex-command)
225 ;; From Emacs 20. 229 ;; From Emacs 20.
226 (define-key global-map "\C-x\M-:" 'repeat-complex-command) 230 (define-key global-map "\C-x\M-:" 'repeat-complex-command)
227 (define-key global-map "\C-xu" 'advertised-undo) 231 (define-key global-map "\C-xu" 'undo)
228 ;; Many people are used to typing C-/ on X terminals and getting C-_. 232 ;; Many people are used to typing C-/ on X terminals and getting C-_.
229 (define-key global-map '(control /) 'undo) 233 (define-key global-map '(control /) 'undo)
230 (define-key global-map "\C-_" 'undo) 234 (define-key global-map "\C-_" 'undo)
231 (define-key global-map "\M-!" 'shell-command) 235 (define-key global-map "\M-!" 'shell-command)
232 (define-key global-map "\M-|" 'shell-command-on-region) 236 (define-key global-map "\M-|" 'shell-command-on-region)
457 ;;(define-key global-map "\C-g" 'keyboard-quit) 461 ;;(define-key global-map "\C-g" 'keyboard-quit)
458 (let ((ch (quit-char))) 462 (let ((ch (quit-char)))
459 (if (or (characterp ch) (integerp ch)) 463 (if (or (characterp ch) (integerp ch))
460 (setq ch (char-to-string ch))) 464 (setq ch (char-to-string ch)))
461 (define-key global-map ch 'keyboard-quit)) 465 (define-key global-map ch 'keyboard-quit))
462 (define-key global-map "\e\e\e" 'keyboard-escape-quit) 466 (define-key global-tty-map "\e\e\e" 'keyboard-escape-quit)
463 467 (define-key global-window-system-map "\e\e" 'keyboard-escape-quit)
464
465 468
466 (define-key global-map "\M-%" 'query-replace) 469 (define-key global-map "\M-%" 'query-replace)
467 470
468 ;; FSF v20 binding 471 ;; FSF v20 binding
469 (define-key global-map [(control meta %)] 'query-replace-regexp) 472 (define-key global-map [(control meta %)] 'query-replace-regexp)
594 (define-key global-map '(control shift tab) 'backward-other-window) 597 (define-key global-map '(control shift tab) 'backward-other-window)
595 598
596 ;; movement in other windows 599 ;; movement in other windows
597 (define-key global-map '(meta next) 'scroll-other-window) 600 (define-key global-map '(meta next) 'scroll-other-window)
598 (define-key global-map '(meta prior) 'scroll-other-window-down) 601 (define-key global-map '(meta prior) 'scroll-other-window-down)
599 (define-key global-map '(meta home) 'beginning-of-buffer-other-window)
600 (define-key global-map '(meta end) 'end-of-buffer-other-window)
601 (define-key global-map '(meta kp-next) 'scroll-other-window) 602 (define-key global-map '(meta kp-next) 'scroll-other-window)
602 (define-key global-map '(meta kp-prior) 'scroll-other-window-down) 603 (define-key global-map '(meta kp-prior) 'scroll-other-window-down)
603 (define-key global-map '(meta kp-home) 'beginning-of-buffer-other-window) 604
604 (define-key global-map '(meta kp-end) 'end-of-buffer-other-window) 605 ;; movement between buffers
606 (global-set-key '(meta shift home) 'switch-to-previous-buffer-in-group)
607 (global-set-key '(meta shift end) 'switch-to-next-buffer-in-group)
608 (global-set-key '(meta home) 'switch-to-previous-buffer)
609 (global-set-key '(meta end) 'switch-to-next-buffer)
610 (global-set-key '(meta shift kp-home) 'switch-to-previous-buffer-in-group)
611 (global-set-key '(meta shift kp-end) 'switch-to-next-buffer-in-group)
612 (global-set-key '(meta kp-home) 'switch-to-previous-buffer)
613 (global-set-key '(meta kp-end) 'switch-to-next-buffer)
605 614
606 ;; the infamous delete key 615 ;; the infamous delete key
607 (define-key global-map 'delete 'backward-or-forward-delete-char) 616 (define-key global-map 'delete 'backward-or-forward-delete-char)
608 (define-key global-map '(meta delete) 'backward-or-forward-kill-word) 617 (define-key global-map '(meta delete) 'backward-or-forward-kill-word)
609 (define-key global-map [(control x) (delete)] 618 (define-key global-map [(control x) (delete)]