cgit.sxemacs.org Git - sxemacs/blob - lisp/keydefs.el

   1 ;;; keydefs.el --- Define standard keybindings.
   2
   3 ;; Copyright (C) 1992-4, 1997 Free Software Foundation, Inc.
   4 ;; Copyright (C) 2000 Ben Wing.
   5 ;; Copyright (C) 2007 Steve Youngs
   6
   7 ;; Maintainer: SXEmacs Development Team
   8 ;; Keywords: internal, dumped
   9
  10 ;; This file is part of SXEmacs.
  11
  12 ;; SXEmacs is free software: you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation, either version 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; SXEmacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;; All the global bindings should be here so that one can reload things
  26 ;; like files.el without trashing one's personal bindings.
  27
  28 ;;; Synched up with: Not synched with FSF.
  29
  30 ;;; Commentary:
  31
  32 ;; This file is dumped with SXEmacs
  33
  34 ;;; Code:
  35
  36 (defgroup keyboard nil
  37   "Input from the keyboard."
  38   :group 'environment)
  39
  40
  41 ;; created by C code
  42 (defvar global-map (current-global-map)
  43   "Default global keymap mapping XEmacs keyboard input into commands.
  44 The value is a keymap which is usually (but not necessarily) XEmacs's
  45 global map.")
  46
  47 ;; created by C code
  48 (defvar esc-map (symbol-function 'ESC-prefix)
  49   "Default keymap for ESC (meta) commands.
  50 The normal global definition of the character ESC indirects to this keymap.")
  51
  52 (set-keymap-name global-map 'global-map)
  53 (set-keymap-name esc-map 'ESC-prefix)
  54
  55 (define-prefix-command 'Control-X-prefix t)
  56 (defvar ctl-x-map (symbol-function 'Control-X-prefix)
  57   "Default keymap for C-x commands.
  58 The normal global definition of the character C-x indirects to this keymap.")
  59 (define-key global-map "\C-x" 'Control-X-prefix)
  60
  61 (define-prefix-command 'ctl-x-4-prefix t)
  62 (defvar ctl-x-4-map (symbol-function 'ctl-x-4-prefix)
  63   "Keymap for subcommands of C-x 4")
  64 (define-key global-map "\C-x4" 'ctl-x-4-prefix)
  65
  66 (define-prefix-command 'ctl-x-5-prefix t)
  67 (defvar ctl-x-5-map (symbol-function 'ctl-x-5-prefix)
  68   "Keymap for subcommands of C-x 5")
  69 (define-key global-map "\C-x5" 'ctl-x-5-prefix)
  70
  71 (define-prefix-command 'mode-specific-command-prefix t)
  72 (defvar mode-specific-map (symbol-function 'mode-specific-command-prefix)
  73   "Keymap for characters following C-c.")
  74 (define-key global-map "\C-c" 'mode-specific-command-prefix)
  75
  76 ;; FSFmacs buffer.c
  77
  78 (define-key global-map "\C-xb" 'switch-to-buffer)
  79 (define-key global-map "\C-xk" 'kill-buffer)
  80 (define-key global-map "\C-x\C-b" 'list-buffers)
  81 (put 'erase-buffer 'disabled t)         ;from buffer.c
  82
  83 ;; FSFmacs casefiddle.c
  84
  85 (define-key global-map "\C-x\C-u" 'upcase-region)
  86 ;; This is silly with zmacs regions
  87 ;(put 'upcase-region 'disabled t)
  88 (define-key global-map "\C-x\C-l" 'downcase-region)
  89 ;; This is silly with zmacs regions
  90 ;(put 'downcase-region 'disabled t)
  91 (define-key global-map "\M-u" 'upcase-region-or-word)
  92 (define-key global-map "\M-l" 'downcase-region-or-word)
  93 (define-key global-map "\M-c" 'capitalize-region-or-word)
  94
  95 ;; FSFmacs cmds.c
  96
  97 (let ((n 33))
  98   (while (<= n 255)
  99     (if (not (= n 127))
 100         (define-key global-map n 'self-insert-command))
 101     (setq n (1+ n))))
 102 (define-key global-map " " 'self-insert-command)
 103
 104 (define-key global-map "\C-a" 'beginning-of-line)
 105 (define-key global-map "\C-b" 'backward-char-command)
 106 (define-key global-map "\C-e" 'end-of-line)
 107 (define-key global-map "\C-f" 'forward-char-command)
 108 (define-key global-map "\C-d" 'delete-char)
 109
 110 ;; FSFmacs files.el
 111
 112 (define-key global-map "\C-x\C-f" 'find-file)
 113 (define-key global-map "\C-x\C-q" 'toggle-read-only)
 114 (define-key global-map "\C-x\C-r" 'find-file-read-only)
 115 (define-key global-map "\C-x\C-v" 'find-alternate-file)
 116 (define-key global-map "\C-x\C-s" 'save-buffer)
 117 (define-key global-map "\C-xs" 'save-some-buffers)
 118 (define-key global-map "\C-x\C-w" 'write-file)
 119 (define-key global-map "\C-xi" 'insert-file)
 120 (define-key global-map "\M-~" 'not-modified)
 121 (define-key global-map "\C-x\C-d" 'list-directory)
 122 (define-key global-map "\C-x\C-c" 'save-buffers-kill-emacs)
 123
 124 (define-key global-map "\C-x4f" 'find-file-other-window)
 125 (define-key global-map "\C-x4r" 'find-file-read-only-other-window)
 126 (define-key global-map "\C-x4\C-f" 'find-file-other-window)
 127 (define-key global-map "\C-x4b" 'switch-to-buffer-other-window)
 128 (define-key global-map "\C-x4\C-o" 'display-buffer)
 129
 130 (define-key global-map "\C-x5b" 'switch-to-buffer-other-frame)
 131 (define-key global-map "\C-x5f" 'find-file-other-frame)
 132 (define-key global-map "\C-x5\C-f" 'find-file-other-frame)
 133 (define-key global-map "\C-x5r" 'find-file-read-only-other-frame)
 134
 135 ;; FSFmacs frame.c
 136 ;FSFmacs has these.  It's probably a good idea to provide ways of hooking
 137 ;these events, but it's unlikely that it's a good idea to do it this way.
 138 ;Just provide a hook, like the existing `select-frame-hook',
 139 ;`deselect-frame-hook', `map-frame-hook', and `unmap-frame-hook'.
 140 ;#### ergo need hooks for delete-frame and iconify-frame
 141 ;(define-key global-map 'switch-frame 'handle-switch-frame)
 142 ;(define-key global-map 'delete-frame 'handle-delete-frame)
 143 ;(define-key global-map 'iconify-frame 'ignore-event)
 144 ;(define-key global-map 'make-frame-visible 'ignore-event)
 145
 146 ;; FSFmacs frame.el
 147
 148 ;; New FSF19 bindings: C-x 5 as prefix for window commands
 149 (define-key global-map "\C-x52" 'make-frame)
 150 (define-key global-map "\C-x50" 'delete-frame)
 151 (define-key global-map "\C-x5o" 'other-frame)
 152 ;; New FSF21 binding:
 153 (define-key global-map "\C-x51" 'delete-other-frames)
 154
 155 ;; FSFmacs help.el
 156
 157 (define-key global-map (vector help-char) 'help-command)
 158 (define-key global-map 'help 'help-command)
 159 (define-key global-map 'f1 'help-command)
 160 ;; This is a failsafe mechanism, esp. on TTY's, in case the terminal is
 161 ;; somewhat broken and f1 keys can't work, and backspace is redefined to
 162 ;; do backspace.
 163 (define-key global-map '(meta ??) 'help-command)
 164
 165 ;; FSFmacs indent.el
 166
 167 ;;(define-key global-map "\t" 'self-insert-command)
 168 (define-key global-map "\t" 'indent-for-tab-command)
 169 (define-key global-map "\M-\C-\\" 'indent-region)
 170 (define-key global-map "\C-x\t" 'indent-rigidly)
 171 (define-key global-map "\M-i" 'tab-to-tab-stop)
 172 ;; XEmacs addition:
 173 (define-key global-map [(shift tab)] 'tab-to-tab-stop)
 174
 175 ;; FSFmacs isearch.el
 176
 177 (define-key global-map "\C-s" 'isearch-forward)
 178 (define-key global-map "\C-r" 'isearch-backward)
 179 (define-key global-map "\M-\C-s" 'isearch-forward-regexp)
 180 (define-key global-map "\M-\C-r" 'isearch-backward-regexp)
 181
 182 ;; FSFmacs keyboard.c
 183
 184 (define-key global-tty-map "\C-z" 'suspend-or-iconify-emacs)
 185 (define-key global-window-system-map '(meta Z) 'zap-up-to-char)
 186 (define-key global-window-system-map "\C-z" 'iconify-frame)
 187 (define-key global-map "\C-x\C-z" 'suspend-or-iconify-emacs)
 188
 189
 190 ;; FSFmacs loaddefs.el
 191
 192 ;; New FSF19 bindings: C-x n as a prefix for narrowing commands.
 193 (define-key global-map "\C-xn" (let ((map (make-sparse-keymap)))
 194                                  (set-keymap-name map 'narrowing-prefix)
 195                                  map))
 196 (put 'narrow-to-region 'disabled t)
 197 (define-key global-map "\C-xnn" 'narrow-to-region)
 198 (define-key global-map "\C-xnw" 'widen)
 199 (define-key global-map "\C-xnd" 'narrow-to-defun)
 200 ;; Old v18 bindings
 201 ;(define-key global-map "\C-xn" 'narrow-to-region)
 202 ;(define-key global-map "\C-xw" 'widen)
 203
 204 (define-key global-map "\C-j" 'newline-and-indent)
 205 (define-key global-map "\C-m" 'newline)
 206 (define-key global-map "\C-o" 'open-line)
 207 (define-key global-map "\M-\C-o" 'split-line)
 208 (define-key global-map "\C-q" 'quoted-insert)
 209 (define-key global-map "\M-^" 'delete-indentation)
 210 (define-key global-map "\M-\\" 'delete-horizontal-space)
 211 (define-key global-map "\M-m" 'back-to-indentation)
 212 (define-key global-map "\C-x\C-o" 'delete-blank-lines)
 213 (define-key global-map "\M- " 'just-one-space)
 214 (define-key global-map "\M-z" 'zap-to-char)
 215 (define-key global-map "\M-=" 'count-lines-region)
 216 (define-key global-map "\C-x=" 'what-cursor-position)
 217 (define-key global-map "\M-:" 'eval-expression)
 218 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
 219 (define-key global-map "\M-\e:" 'eval-expression)
 220 ;(define-key global-map "\M-\e" 'eval-expression)
 221 ;; Do we really need to disable this now that it is harder to type
 222 ;; by accident?
 223 ;; (put 'eval-expression 'disabled t)
 224 ;; Changed from C-x ESC so that function keys work following C-x.
 225 (define-key global-map "\C-x\e\e" 'repeat-complex-command)
 226 ;(define-key global-map "\C-x\e" 'repeat-complex-command)
 227 ;; From Emacs 20.
 228 (define-key global-map "\C-x\M-:" 'repeat-complex-command)
 229 (define-key global-map "\C-xu" 'advertised-undo)
 230 ;; Many people are used to typing C-/ on X terminals and getting C-_.
 231 (define-key global-map '(control /) 'undo)
 232 (define-key global-map "\C-_" 'undo)
 233 (define-key global-map "\M-!" 'shell-command)
 234 (define-key global-map "\M-|" 'shell-command-on-region)
 235
 236 (define-key global-map "\C-u" 'universal-argument)
 237 ;; Make Control-0 - Control-9 set the prefix argument, like Meta-0.
 238 (let ((i ?0))
 239   (while (<= i ?9)
 240     (define-key global-map (list 'meta i) 'digit-argument)
 241     (define-key global-map (list 'control i) 'digit-argument)
 242     (define-key global-map (list 'control 'meta i) 'digit-argument)
 243     (setq i (1+ i))))
 244 (define-key global-map '(meta -) 'negative-argument)
 245 (define-key global-map '(control -) 'negative-argument)
 246 (define-key global-map '(control meta -) 'negative-argument)
 247
 248 (define-key global-map "\C-k" 'kill-line)
 249 ;will change like this in 21.5.
 250 ;(define-key global-map "\M-k" 'kill-entire-line)
 251 (define-key global-map "\C-w" 'kill-region)
 252 (define-key global-map "\M-w" 'kill-ring-save)
 253 (define-key global-map "\M-\C-w" 'append-next-kill)
 254 (define-key global-map "\C-y" 'yank)
 255 (define-key global-map "\M-y" 'yank-pop)
 256
 257 ;; Old v18 binding
 258 ;(define-key global-map "\C-xa" 'append-to-buffer)
 259
 260 (define-key global-map "\C-@" 'set-mark-command)
 261 ;; Many people are used to typing C-SPC and getting C-@.
 262 (define-key global-map '(control ? ) 'set-mark-command)
 263 (define-key global-map "\C-x\C-x" 'exchange-point-and-mark)
 264 (define-key global-map "\C-x\C-@" 'pop-global-mark)
 265 (define-key global-map [(control x) (control ? )] 'pop-global-mark)
 266
 267 (define-key global-map "\C-n" 'next-line)
 268 (define-key global-map "\C-p" 'previous-line)
 269 ;(define-key global-map "\C-x\C-n" 'set-goal-column)
 270 ;; XEmacs:
 271 ;;; Many people have said they rarely use this feature, and often type
 272 ;;; it by accident.  Maybe it shouldn't even be on a key.
 273 ;;; Done.  -hniksic
 274 ;(put 'set-goal-column 'disabled t)
 275
 276 (define-key global-map [menu] 'execute-extended-command)
 277 (define-key global-map [find] 'search-forward)
 278
 279 (define-key global-map "\C-t" 'transpose-chars)
 280 (define-key global-map "\M-t" 'transpose-words)
 281 (define-key global-map "\M-\C-t" 'transpose-sexps)
 282 (define-key global-map "\C-x\C-t" 'transpose-lines)
 283
 284 ;; XEmacs: much more reasonable and useful key definitions.
 285 (define-key global-map '(control T) 'transpose-line-down)
 286 (define-key global-map '(meta T) 'transpose-line-up)
 287
 288 (define-key global-map "\M-;" 'indent-for-comment)
 289 (define-key global-map "\M-j" 'indent-new-comment-line)
 290 (define-key global-map "\M-\C-j" 'indent-new-comment-line)
 291 (define-key global-map "\C-x;" 'set-comment-column)
 292 (define-key global-map "\C-xf" 'set-fill-column)
 293 (define-key global-map "\C-x$" 'set-selective-display)
 294
 295 (define-key global-map "\M-@" 'mark-word)
 296 (define-key global-map "\M-f" 'forward-word)
 297 (define-key global-map "\M-b" 'backward-word)
 298 (define-key global-map "\M-d" 'kill-word)
 299 (define-key global-map "\M-D" 'delete-word)
 300
 301 (define-key global-map "\M-<" 'beginning-of-buffer)
 302 (define-key global-map "\M->" 'end-of-buffer)
 303 (define-key global-map "\C-xh" 'mark-whole-buffer)
 304 (define-key global-map "\M-\\" 'delete-horizontal-space)
 305
 306 (define-key global-map "\M-\C-f" 'forward-sexp)
 307 (define-key global-map "\M-\C-b" 'backward-sexp)
 308 (define-key global-map "\M-\C-u" 'backward-up-list)
 309 (define-key global-map "\M-\C-@" 'mark-sexp)
 310 (define-key global-map "\M-\C-d" 'down-list)
 311 (define-key global-map "\M-\C-k" 'kill-sexp)
 312 (define-key global-map "\M-\C-n" 'forward-list)
 313 (define-key global-map "\M-\C-p" 'backward-list)
 314 (define-key global-map "\M-\C-a" 'beginning-of-defun)
 315 (define-key global-map "\M-\C-e" 'end-of-defun)
 316 (define-key global-map "\M-\C-h" 'mark-defun)
 317 (define-key global-map "\M-\(" 'insert-parentheses)
 318 (define-key global-map "\M-\)" 'move-past-close-and-reindent)
 319 (define-key global-map "\M-\t" 'lisp-complete-symbol)
 320
 321 \f
 322 (define-key global-map "\C-x/" 'point-to-register)
 323 (define-key global-map "\C-xj" 'jump-to-register)
 324 (define-key global-map "\C-xx" 'copy-to-register)
 325 (define-key global-map "\C-xg" 'insert-register)
 326 ;; Old v18 binding
 327 ;(define-key global-map "\C-xr" 'copy-rectangle-to-register)
 328
 329 ;; New FSF19 bindings: C-x r as a prefix for register commands
 330 (define-key global-map "\C-xr" (let ((map (make-sparse-keymap)))
 331                                  (set-keymap-name map 'rectangle-prefix)
 332                                  map))
 333 (define-key global-map "\C-xr\C-@" 'point-to-register)
 334 (define-key global-map "\C-xr " 'point-to-register)
 335 (define-key global-map "\C-xrj" 'jump-to-register)
 336 (define-key global-map "\C-xrs" 'copy-to-register)
 337 (define-key global-map "\C-xrx" 'copy-to-register)
 338 (define-key global-map "\C-xri" 'insert-register)
 339 (define-key global-map "\C-xrg" 'insert-register)
 340 (define-key global-map "\C-xrr" 'copy-rectangle-to-register)
 341 (define-key global-map "\C-xrn" 'number-to-register)
 342 (define-key global-map "\C-xr+" 'increment-register)
 343 (define-key global-map "\C-xrc" 'clear-rectangle)
 344 (define-key global-map "\C-xrk" 'kill-rectangle)
 345 (define-key global-map "\C-xrd" 'delete-rectangle)
 346 (define-key global-map "\C-xry" 'yank-rectangle)
 347 (define-key global-map "\C-xro" 'open-rectangle)
 348 (define-key global-map "\C-xrt" 'string-rectangle)
 349 (define-key global-map "\C-xrp" 'replace-rectangle)
 350 (define-key global-map "\C-xrw" 'window-configuration-to-register)
 351 ;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
 352
 353 (define-key global-map "\M-q" 'fill-paragraph-or-region)
 354 ;(define-key global-map "\M-q" 'fill-paragraph)
 355 ;(define-key global-map "\M-g" 'fill-region) ;now bound to goto-line
 356 (define-key global-map "\C-x." 'set-fill-prefix)
 357
 358 ; Using {} instead of [] is 1) FSF compatible and 2) allows function
 359 ; keys to work on ttys.  M-[ is the beginning of most the function key
 360 ; sequences.
 361 (define-key global-map "\M-{" 'backward-paragraph)
 362 (define-key global-map "\M-}" 'forward-paragraph)
 363 (define-key global-map "\M-h" 'mark-paragraph)
 364 (define-key global-map "\M-a" 'backward-sentence)
 365 (define-key global-map "\M-e" 'forward-sentence)
 366 (define-key global-map "\M-k" 'kill-sentence)
 367 ;will change like this in 21.5.
 368 ;(define-key global-map "\M-K" 'kill-sentence)
 369 ;;(define-key global-map "\C-x\177" 'backward-kill-sentence)
 370
 371 (define-key global-map "\C-x[" 'backward-page)
 372 (define-key global-map "\C-x]" 'forward-page)
 373 (define-key global-map "\C-x\C-p" 'mark-page)
 374 (define-key global-map "\C-xl" 'count-lines-page)
 375 (define-key global-map "\C-xnp" 'narrow-to-page)
 376 ;; Old v18 bindings
 377 ;(define-key global-map "\C-xp" 'narrow-to-page)
 378 (put 'narrow-to-page 'disabled t)
 379
 380 ;; Old v18 bindings
 381 ;(define-key global-map "\C-x\C-a" 'add-mode-abbrev)
 382 ;(define-key global-map "\C-x+" 'add-global-abbrev)
 383 ;(define-key global-map "\C-x\C-h" 'inverse-add-mode-abbrev)
 384 ;(define-key global-map "\C-x-" 'inverse-add-global-abbrev)
 385
 386 (define-key global-map "\M-'" 'abbrev-prefix-mark)
 387 (define-key global-map "\C-x'" 'expand-abbrev)
 388
 389 ;; New FSF19 bindings: C-x a as a prefix for abbrev commands
 390 (define-key global-map "\C-xal" 'add-mode-abbrev)
 391 (define-key global-map "\C-xa\C-a" 'add-mode-abbrev)
 392 (define-key global-map "\C-xag" 'add-global-abbrev)
 393 (define-key global-map "\C-xa+" 'add-mode-abbrev)
 394 (define-key global-map "\C-xaig" 'inverse-add-global-abbrev)
 395 (define-key global-map "\C-xail" 'inverse-add-mode-abbrev)
 396 (define-key global-map "\C-xa-" 'inverse-add-global-abbrev)
 397 (define-key global-map "\C-xae" 'expand-abbrev)
 398 (define-key global-map "\C-xa'" 'expand-abbrev)
 399
 400 (define-key global-map "\M-\C-l" 'switch-to-other-buffer)
 401
 402 ;; Default binding of "Backspace" is no longer the same as delete.
 403 ;; Default binding of "Control-h" is help.
 404 (define-key global-map 'backspace 'delete-backward-char)
 405 (define-key global-map '(meta backspace) 'backward-kill-word)
 406 (define-key global-map '(control backspace) 'backward-delete-word)
 407 (define-key global-map [(control x) backspace] 'backward-kill-sentence)
 408
 409 (define-key global-map "\M-\C-z" 'activate-region)
 410
 411 ;; FSFmacs macros.c
 412
 413 (define-key global-map "\C-xe" 'call-last-kbd-macro)
 414 (define-key global-map "\C-x\(" 'start-kbd-macro)
 415 (define-key global-map "\C-x\)" 'end-kbd-macro)
 416
 417 ;; FSFmacs macros.el
 418
 419 (define-key global-map "\C-xq" 'kbd-macro-query)
 420
 421
 422 ;; FSFmacs minibuffer.c
 423 ; see also minibuf.el
 424
 425 (define-key global-map "\M-\C-c" 'exit-recursive-edit)
 426 (define-key global-map "\C-]" 'abort-recursive-edit)
 427 (define-key global-map "\M-x" 'execute-extended-command)
 428
 429 ;; FSFmacs window.c
 430
 431 (define-key global-map "\C-x0" 'delete-window)
 432 (define-key global-map "\C-x1" 'delete-other-windows)
 433 (define-key global-map "\C-x2" 'split-window-vertically)
 434 (define-key global-map "\C-x3" 'split-window-horizontally)
 435 ;; Old XEmacs binding
 436 ;;(define-key global-map "\C-x5" 'split-window-horizontally)
 437 (define-key global-map "\C-xo" 'other-window)
 438 (define-key global-map "\C-x^" 'enlarge-window)
 439 (define-key global-map "\C-x<" 'scroll-left)
 440 (define-key global-map "\C-x>" 'scroll-right)
 441
 442 (define-key global-map "\C-v" 'scroll-up-command)
 443 (define-key global-map "\M-v" 'scroll-down-command)
 444 (define-key global-map "\M-\C-v" 'scroll-other-window)
 445 ; meta-shift-V, that is.
 446 (define-key global-map '(meta V) 'scroll-other-window-down)
 447
 448 (define-key global-map "\C-l" 'recenter)
 449 (define-key global-map "\M-r" 'move-to-window-line)
 450
 451 ;; FSFmacs window.el
 452
 453 (define-key global-map "\C-x6" 'window-configuration-to-register)
 454 ;(define-key global-map "\C-x7" 'jump-to-register);ie register-to-window-config
 455 (define-key global-map "\C-x}" 'enlarge-window-horizontally)
 456 (define-key global-map "\C-x{" 'shrink-window-horizontally)
 457 ;; New FSF19 bindings
 458 (define-key global-map "\C-x-" 'shrink-window-if-larger-than-buffer)
 459 (define-key global-map "\C-x+" 'balance-windows)
 460 (define-key ctl-x-4-map "0" 'kill-buffer-and-window)
 461
 462 ;;(define-key global-map "\C-g" 'keyboard-quit)
 463 (let ((ch (quit-char)))
 464   (if (or (characterp ch) (integerp ch))
 465       (setq ch (char-to-string ch)))
 466   (define-key global-map ch 'keyboard-quit))
 467 (define-key global-tty-map "\e\e\e" 'keyboard-escape-quit)
 468 (define-key global-window-system-map "\e\e\e" 'keyboard-escape-quit)
 469 (define-key global-map "\e\e\e" 'keyboard-escape-quit)
 470
 471 (define-key global-map "\M-%" 'query-replace)
 472
 473 ;; FSF v20 binding
 474 (define-key global-map [(control meta %)] 'query-replace-regexp)
 475
 476
 477 ; autoloaded
 478 ;(define-key global-map "\C-x4a" 'add-change-log-entry-other-window)
 479
 480 ; autoloaded
 481 ;(define-key global-map "\C-x`" 'next-error)
 482
 483 ; autoloaded
 484 ;(define-key global-map "\M-/" 'dabbrev-expand)
 485
 486 ; autoloaded
 487 ;(define-key global-map "\C-xd" 'dired)
 488
 489 ; autoloaded
 490 ;(define-key global-map "\C-x4d" 'dired-other-window)
 491
 492 (define-key global-map "\M-$" 'ispell-word)
 493
 494 (define-key global-map "\C-xm" 'compose-mail)
 495 (define-key global-map "\C-x4m" 'compose-mail-other-window)
 496 (define-key global-map "\C-x5m" 'compose-mail-other-frame)
 497
 498 (define-key global-map "\M-." 'find-tag)
 499
 500 (define-key global-map "\C-x4." 'find-tag-other-window)
 501
 502 (define-key global-map "\M-," 'tags-loop-continue)
 503
 504
 505 (define-key global-map '(control <) 'mark-beginning-of-buffer)
 506 (define-key global-map '(control >) 'mark-end-of-buffer)
 507
 508 (define-key global-map "\C-x\C-e" 'eval-last-sexp) ;bogus!
 509
 510
 511 (define-key global-map "\M-g" 'goto-line)
 512
 513 ;; Keypad type things
 514
 515 ;; I removed all the fkey crap, because where-is is now smart enough
 516 ;; to show all bindings. --ben
 517
 518 ;;; These aren't bound to kbd macros like "\C-b" so that they have the
 519 ;; expected behavior even in, for example, vi-mode.
 520
 521 ;; We use here symbolic names, assuming that the corresponding keys will
 522 ;; generate these keysyms.  This is not true on Suns, but x-win-sun.el
 523 ;; fixes that.  If it turns out that the semantics of these keys should
 524 ;; differ from server to server, this should be moved into server-specific
 525 ;; files, but these appear to be the standard Motif and PC bindings.
 526
 527 ;; movement by units
 528 (define-key global-map 'left            'backward-char-command)
 529 (define-key global-map 'right           'forward-char-command)
 530 (define-key global-map 'up              'previous-line)
 531 (define-key global-map 'down            'next-line)
 532 (define-key global-map 'kp-left         'backward-char-command)
 533 (define-key global-map 'kp-right        'forward-char-command)
 534 (define-key global-map 'kp-up           'previous-line)
 535 (define-key global-map 'kp-down         'next-line)
 536
 537 ;; movement by pages
 538 (define-key global-map 'prior           'scroll-down-command)
 539 (define-key global-map 'next            'scroll-up-command)
 540 (define-key global-map '(control prior) 'scroll-right)
 541 (define-key global-map '(control next)  'scroll-left)
 542 (define-key global-map 'kp-prior        'scroll-down-command)
 543 (define-key global-map 'kp-next         'scroll-up-command)
 544 (define-key global-map '(control kp-prior) 'scroll-right)
 545 (define-key global-map '(control kp-next) 'scroll-left)
 546
 547 ;; movement to the limits
 548 (define-key global-map 'home            'beginning-of-line)
 549 (define-key global-map 'end             'end-of-line)
 550 (define-key global-map '(control home)  'beginning-of-buffer)
 551 (define-key global-map '(control end)   'end-of-buffer)
 552 (define-key global-map 'kp-home         'beginning-of-line)
 553 (define-key global-map 'kp-end          'end-of-line)
 554 (define-key global-map '(control kp-home) 'beginning-of-buffer)
 555 (define-key global-map '(control kp-end) 'end-of-buffer)
 556
 557 ;; on which systems do these exist?
 558 (define-key global-map 'begin           'beginning-of-line)
 559 (define-key global-map '(control begin) 'beginning-of-buffer)
 560
 561 ;; movement by larger blocks
 562 (define-key global-map '(control left)  'backward-word)
 563 (define-key global-map '(control right) 'forward-word)
 564 (define-key global-map '(control up)    'backward-block-of-lines)
 565 (define-key global-map '(control down)  'forward-block-of-lines)
 566 (define-key global-map '(control kp-left) 'backward-word)
 567 (define-key global-map '(control kp-right) 'forward-word)
 568 (define-key global-map '(control kp-up) 'backward-block-of-lines)
 569 (define-key global-map '(control kp-down) 'forward-block-of-lines)
 570
 571 ;; context-sensitive movement
 572 (define-key global-map '(meta left)     'backward-sexp)
 573 (define-key global-map '(meta right)    'forward-sexp)
 574 (define-key global-map '(meta up)       'backward-paragraph)
 575 (define-key global-map '(meta down)     'forward-paragraph)
 576 (define-key global-map '(meta control left) 'backward-sentence)
 577 (define-key global-map '(meta control right) 'forward-sentence)
 578 (define-key global-map '(meta control up) 'scroll-down-one)
 579 (define-key global-map '(meta control down) 'scroll-up-one)
 580 (define-key global-map '(meta control home)     'beginning-of-defun)
 581 (define-key global-map '(meta control end)      'end-of-defun)
 582 (define-key global-map '(meta control prior)    'backward-page)
 583 (define-key global-map '(meta control next)     'forward-page)
 584 (define-key global-map '(meta kp-left)  'backward-sexp)
 585 (define-key global-map '(meta kp-right) 'forward-sexp)
 586 (define-key global-map '(meta kp-up)    'backward-paragraph)
 587 (define-key global-map '(meta kp-down)  'forward-paragraph)
 588 (define-key global-map '(meta control kp-left) 'backward-sentence)
 589 (define-key global-map '(meta control kp-right) 'forward-sentence)
 590 (define-key global-map '(meta control kp-up) 'scroll-down-one)
 591 (define-key global-map '(meta control kp-down) 'scroll-up-one)
 592 (define-key global-map '(meta control kp-home)  'beginning-of-defun)
 593 (define-key global-map '(meta control kp-end)   'end-of-defun)
 594 (define-key global-map '(meta control kp-prior) 'backward-page)
 595 (define-key global-map '(meta control kp-next)  'forward-page)
 596
 597 ;; movement between windows
 598 (define-key global-map '(control tab)   'other-window)
 599 (define-key global-map '(control shift tab) 'backward-other-window)
 600
 601 ;; movement in other windows
 602 (define-key global-map '(meta next)     'scroll-other-window)
 603 (define-key global-map '(meta prior)    'scroll-other-window-down)
 604 (define-key global-map '(meta home)     'beginning-of-buffer-other-window)
 605 (define-key global-map '(meta end)      'end-of-buffer-other-window)
 606 (define-key global-map '(meta kp-next)  'scroll-other-window)
 607 (define-key global-map '(meta kp-prior) 'scroll-other-window-down)
 608 (define-key global-map '(meta kp-home)  'beginning-of-buffer-other-window)
 609 (define-key global-map '(meta kp-end)   'end-of-buffer-other-window)
 610
 611 ;; the infamous delete key
 612 (define-key global-map 'delete          'backward-or-forward-delete-char)
 613 (define-key global-map '(meta delete)   'backward-or-forward-kill-word)
 614 (define-key global-map [(control x) (delete)]
 615                                         'backward-or-forward-kill-sentence)
 616 (define-key global-map 'kp-delete       'backward-or-forward-delete-char)
 617 (define-key global-map '(meta kp-delete) 'backward-or-forward-kill-word)
 618 (define-key global-map [(control x) (kp-delete)]
 619                                         'backward-or-forward-kill-sentence)
 620
 621 ;; don't try this one at home, kids.
 622 (define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp)
 623 (define-key global-map '(control meta kp-delete) 'backward-or-forward-kill-sexp)
 624 ;; or this one, either, on Linux.
 625 (define-key global-map '(control meta backspace) 'backward-kill-sexp)
 626
 627
 628 ;;; Miscellaneous key bindings
 629 (define-key global-map 'insert          'overwrite-mode)
 630 (define-key global-map 'kp-insert       'overwrite-mode)
 631 (define-key global-map 'again           'repeat-complex-command)
 632 (define-key global-map 'redo            'repeat-complex-command)
 633
 634 (define-key global-map 'kp-enter        [return]) ; do whatever RET does now
 635 (define-key global-map 'kp-tab          [tab])
 636
 637 (define-key global-map 'undo            'undo)
 638 (define-key global-map 'help            'help-for-help)
 639
 640 (define-key global-map 'kp-space        'self-insert-command)
 641 (define-key global-map 'kp-equal        'self-insert-command)
 642 (define-key global-map 'kp-multiply     'self-insert-command)
 643 (define-key global-map 'kp-add          'self-insert-command)
 644 (define-key global-map 'kp-separator    'self-insert-command)
 645 (define-key global-map 'kp-subtract     'self-insert-command)
 646 (define-key global-map 'kp-decimal      'self-insert-command)
 647 (define-key global-map 'kp-divide       'self-insert-command)
 648
 649 (define-key global-map 'kp-0            'self-insert-command)
 650 (define-key global-map 'kp-1            'self-insert-command)
 651 (define-key global-map 'kp-2            'self-insert-command)
 652 (define-key global-map 'kp-3            'self-insert-command)
 653 (define-key global-map 'kp-4            'self-insert-command)
 654 (define-key global-map 'kp-5            'self-insert-command)
 655 (define-key global-map 'kp-6            'self-insert-command)
 656 (define-key global-map 'kp-7            'self-insert-command)
 657 (define-key global-map 'kp-8            'self-insert-command)
 658 (define-key global-map 'kp-9            'self-insert-command)
 659
 660 ;(define-key global-map 'select         'function-key-error)
 661 ;(define-key global-map 'print          'function-key-error)
 662 (define-key global-map 'execute         'execute-extended-command)
 663 ;(define-key global-map 'clearline      'function-key-error)
 664 (define-key global-map 'insertline      'open-line)
 665 (define-key global-map 'deleteline      'kill-line)
 666 ;(define-key global-map 'insertchar     'function-key-error)
 667 (define-key global-map 'deletechar      'delete-char)
 668
 669 (provide 'keydefs)
 670
 671 ;;; keydefs.el ends here