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