git.chise.org Git - chise/xemacs-chise.git.1/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
 160 ;; FSFmacs indent.el
 161
 162 ;;(define-key global-map "\t" 'self-insert-command)
 163 (define-key global-map "\t" 'indent-for-tab-command)
 164 (define-key global-map "\M-\C-\\" 'indent-region)
 165 (define-key global-map "\C-x\t" 'indent-rigidly)
 166 (define-key global-map "\M-i" 'tab-to-tab-stop)
 167 ;; XEmacs addition:
 168 (define-key global-map [(shift tab)] 'tab-to-tab-stop)
 169
 170 ;; FSFmacs isearch.el
 171
 172 (define-key global-map "\C-s" 'isearch-forward)
 173 (define-key global-map "\C-r" 'isearch-backward)
 174 (define-key global-map "\M-\C-s" 'isearch-forward-regexp)
 175 (define-key global-map "\M-\C-r" 'isearch-backward-regexp)
 176
 177 ;; FSFmacs keyboard.c
 178
 179 (define-key global-map "\C-z" 'suspend-emacs-or-iconify-frame)
 180 (define-key global-map "\C-x\C-z" 'suspend-or-iconify-emacs)
 181
 182 ;; FSFmacs loaddefs.el
 183
 184 ;; New FSF19 bindings: C-x n as a prefix for narrowing commands.
 185 (define-key global-map "\C-xn" (let ((map (make-sparse-keymap)))
 186                                  (set-keymap-name map 'narrowing-prefix)
 187                                  map))
 188 (put 'narrow-to-region 'disabled t)
 189 (define-key global-map "\C-xnn" 'narrow-to-region)
 190 (define-key global-map "\C-xnw" 'widen)
 191 (define-key global-map "\C-xnd" 'narrow-to-defun)
 192 ;; Old v18 bindings
 193 ;(define-key global-map "\C-xn" 'narrow-to-region)
 194 ;(define-key global-map "\C-xw" 'widen)
 195
 196 (define-key global-map "\C-j" 'newline-and-indent)
 197 (define-key global-map "\C-m" 'newline)
 198 (define-key global-map "\C-o" 'open-line)
 199 (define-key global-map "\M-\C-o" 'split-line)
 200 (define-key global-map "\C-q" 'quoted-insert)
 201 (define-key global-map "\M-^" 'delete-indentation)
 202 (define-key global-map "\M-\\" 'delete-horizontal-space)
 203 (define-key global-map "\M-m" 'back-to-indentation)
 204 (define-key global-map "\C-x\C-o" 'delete-blank-lines)
 205 (define-key global-map "\M- " 'just-one-space)
 206 (define-key global-map "\M-z" 'zap-to-char)
 207 (define-key global-map "\M-=" 'count-lines-region)
 208 (define-key global-map "\C-x=" 'what-cursor-position)
 209 (define-key global-map "\M-:" 'eval-expression)
 210 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
 211 (define-key global-map "\M-\e:" 'eval-expression)
 212 ;(define-key global-map "\M-\e" 'eval-expression)
 213 ;; Do we really need to disable this now that it is harder to type
 214 ;; by accident?
 215 ;; (put 'eval-expression 'disabled t)
 216 ;; Changed from C-x ESC so that function keys work following C-x.
 217 (define-key global-map "\C-x\e\e" 'repeat-complex-command)
 218 ;(define-key global-map "\C-x\e" 'repeat-complex-command)
 219 ;; From Emacs 20.
 220 (define-key global-map "\C-x\M-:" 'repeat-complex-command)
 221 (define-key global-map "\C-xu" 'advertised-undo)
 222 ;; Many people are used to typing C-/ on X terminals and getting C-_.
 223 (define-key global-map '(control /) 'undo)
 224 (define-key global-map "\C-_" 'undo)
 225 (define-key global-map "\M-!" 'shell-command)
 226 (define-key global-map "\M-|" 'shell-command-on-region)
 227
 228 (define-key global-map "\C-u" 'universal-argument)
 229 ;; Make Control-0 - Control-9 set the prefix argument, like Meta-0.
 230 (let ((i ?0))
 231   (while (<= i ?9)
 232     (define-key global-map (list 'meta i) 'digit-argument)
 233     (define-key global-map (list 'control i) 'digit-argument)
 234     (define-key global-map (list 'control 'meta i) 'digit-argument)
 235     (setq i (1+ i))))
 236 (define-key global-map '(meta -) 'negative-argument)
 237 (define-key global-map '(control -) 'negative-argument)
 238 (define-key global-map '(control meta -) 'negative-argument)
 239
 240 (define-key global-map "\C-k" 'kill-line)
 241 (define-key global-map '(control K) 'historical-kill-line)
 242 (define-key global-map "\C-w" 'kill-region)
 243 (define-key global-map "\M-w" 'kill-ring-save)
 244 (define-key global-map "\M-\C-w" 'append-next-kill)
 245 (define-key global-map "\C-y" 'yank)
 246 (define-key global-map "\M-y" 'yank-pop)
 247
 248 ;; Old v18 binding
 249 ;(define-key global-map "\C-xa" 'append-to-buffer)
 250
 251 (define-key global-map "\C-@" 'set-mark-command)
 252 ;; Many people are used to typing C-SPC and getting C-@.
 253 (define-key global-map '(control ? ) 'set-mark-command)
 254 (define-key global-map "\C-x\C-x" 'exchange-point-and-mark)
 255 (define-key global-map "\C-x\C-@" 'pop-global-mark)
 256 (define-key global-map [(control x) (control ? )] 'pop-global-mark)
 257
 258 (define-key global-map "\C-n" 'next-line)
 259 (define-key global-map "\C-p" 'previous-line)
 260 ;(define-key global-map "\C-x\C-n" 'set-goal-column)
 261 ;; XEmacs:
 262 ;;; Many people have said they rarely use this feature, and often type
 263 ;;; it by accident.  Maybe it shouldn't even be on a key.
 264 ;;; Done.  -hniksic
 265 ;(put 'set-goal-column 'disabled t)
 266
 267 (define-key global-map [menu] 'execute-extended-command)
 268 (define-key global-map [find] 'search-forward)
 269
 270 (define-key global-map "\C-t" 'transpose-chars)
 271 (define-key global-map "\M-t" 'transpose-words)
 272 (define-key global-map "\M-\C-t" 'transpose-sexps)
 273 (define-key global-map "\C-x\C-t" 'transpose-lines)
 274
 275 ;; XEmacs: much more reasonable and useful key definitions.
 276 (define-key global-map '(control T) 'transpose-line-down)
 277 (define-key global-map '(meta T) 'transpose-line-up)
 278
 279 (define-key global-map "\M-;" 'indent-for-comment)
 280 (define-key global-map "\M-j" 'indent-new-comment-line)
 281 (define-key global-map "\M-\C-j" 'indent-new-comment-line)
 282 (define-key global-map "\C-x;" 'set-comment-column)
 283 (define-key global-map "\C-xf" 'set-fill-column)
 284 (define-key global-map "\C-x$" 'set-selective-display)
 285
 286 (define-key global-map "\M-@" 'mark-word)
 287 (define-key global-map "\M-f" 'forward-word)
 288 (define-key global-map "\M-b" 'backward-word)
 289 (define-key global-map "\M-d" 'kill-word)
 290
 291 (define-key global-map "\M-<" 'beginning-of-buffer)
 292 (define-key global-map "\M->" 'end-of-buffer)
 293 (define-key global-map "\C-xh" 'mark-whole-buffer)
 294 (define-key global-map "\M-\\" 'delete-horizontal-space)
 295
 296 (define-key global-map "\M-\C-f" 'forward-sexp)
 297 (define-key global-map "\M-\C-b" 'backward-sexp)
 298 (define-key global-map "\M-\C-u" 'backward-up-list)
 299 (define-key global-map "\M-\C-@" 'mark-sexp)
 300 (define-key global-map "\M-\C-d" 'down-list)
 301 (define-key global-map "\M-\C-k" 'kill-sexp)
 302 (define-key global-map "\M-\C-n" 'forward-list)
 303 (define-key global-map "\M-\C-p" 'backward-list)
 304 (define-key global-map "\M-\C-a" 'beginning-of-defun)
 305 (define-key global-map "\M-\C-e" 'end-of-defun)
 306 (define-key global-map "\M-\C-h" 'mark-defun)
 307 (define-key global-map "\M-\(" 'insert-parentheses)
 308 (define-key global-map "\M-\)" 'move-past-close-and-reindent)
 309 (define-key global-map "\M-\t" 'lisp-complete-symbol)
 310
 311 \f
 312 (define-key global-map "\C-x/" 'point-to-register)
 313 (define-key global-map "\C-xj" 'jump-to-register)
 314 (define-key global-map "\C-xx" 'copy-to-register)
 315 (define-key global-map "\C-xg" 'insert-register)
 316 ;; Old v18 binding
 317 ;(define-key global-map "\C-xr" 'copy-rectangle-to-register)
 318
 319 ;; New FSF19 bindings: C-x r as a prefix for register commands
 320 (define-key global-map "\C-xr" (let ((map (make-sparse-keymap)))
 321                                  (set-keymap-name map 'rectangle-prefix)
 322                                  map))
 323 (define-key global-map "\C-xr\C-@" 'point-to-register)
 324 (define-key global-map "\C-xr " 'point-to-register)
 325 (define-key global-map "\C-xrj" 'jump-to-register)
 326 (define-key global-map "\C-xrs" 'copy-to-register)
 327 (define-key global-map "\C-xrx" 'copy-to-register)
 328 (define-key global-map "\C-xri" 'insert-register)
 329 (define-key global-map "\C-xrg" 'insert-register)
 330 (define-key global-map "\C-xrr" 'copy-rectangle-to-register)
 331 (define-key global-map "\C-xrn" 'number-to-register)
 332 (define-key global-map "\C-xr+" 'increment-register)
 333 (define-key global-map "\C-xrc" 'clear-rectangle)
 334 (define-key global-map "\C-xrk" 'kill-rectangle)
 335 (define-key global-map "\C-xry" 'yank-rectangle)
 336 (define-key global-map "\C-xro" 'open-rectangle)
 337 (define-key global-map "\C-xrt" 'string-rectangle)
 338 (define-key global-map "\C-xrw" 'window-configuration-to-register)
 339 ;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
 340
 341 (define-key global-map "\M-q" 'fill-paragraph-or-region)
 342 ;(define-key global-map "\M-q" 'fill-paragraph)
 343 ;(define-key global-map "\M-g" 'fill-region) ;now bound to goto-line
 344 (define-key global-map "\C-x." 'set-fill-prefix)
 345
 346 ; Using {} instead of [] is 1) FSF compatible and 2) allows function
 347 ; keys to work on ttys.  M-[ is the beginning of most the function key
 348 ; sequences.
 349 (define-key global-map "\M-{" 'backward-paragraph)
 350 (define-key global-map "\M-}" 'forward-paragraph)
 351 (define-key global-map "\M-h" 'mark-paragraph)
 352 (define-key global-map "\M-a" 'backward-sentence)
 353 (define-key global-map "\M-e" 'forward-sentence)
 354 (define-key global-map "\M-k" 'kill-sentence)
 355 ;;(define-key global-map "\C-x\177" 'backward-kill-sentence)
 356
 357 (define-key global-map "\C-x[" 'backward-page)
 358 (define-key global-map "\C-x]" 'forward-page)
 359 (define-key global-map "\C-x\C-p" 'mark-page)
 360 (define-key global-map "\C-xl" 'count-lines-page)
 361 (define-key global-map "\C-xnp" 'narrow-to-page)
 362 ;; Old v18 bindings
 363 ;(define-key global-map "\C-xp" 'narrow-to-page)
 364 (put 'narrow-to-page 'disabled t)
 365
 366 ;; Old v18 bindings
 367 ;(define-key global-map "\C-x\C-a" 'add-mode-abbrev)
 368 ;(define-key global-map "\C-x+" 'add-global-abbrev)
 369 ;(define-key global-map "\C-x\C-h" 'inverse-add-mode-abbrev)
 370 ;(define-key global-map "\C-x-" 'inverse-add-global-abbrev)
 371
 372 (define-key global-map "\M-'" 'abbrev-prefix-mark)
 373 (define-key global-map "\C-x'" 'expand-abbrev)
 374
 375 ;; New FSF19 bindings: C-x a as a prefix for abbrev commands
 376 (define-key global-map "\C-xal" 'add-mode-abbrev)
 377 (define-key global-map "\C-xa\C-a" 'add-mode-abbrev)
 378 (define-key global-map "\C-xag" 'add-global-abbrev)
 379 (define-key global-map "\C-xa+" 'add-mode-abbrev)
 380 (define-key global-map "\C-xaig" 'inverse-add-global-abbrev)
 381 (define-key global-map "\C-xail" 'inverse-add-mode-abbrev)
 382 (define-key global-map "\C-xa-" 'inverse-add-global-abbrev)
 383 (define-key global-map "\C-xae" 'expand-abbrev)
 384 (define-key global-map "\C-xa'" 'expand-abbrev)
 385
 386 (define-key global-map "\M-\C-l" 'switch-to-other-buffer)
 387
 388 ;; Default binding of "Backspace" is no longer the same as delete.
 389 ;; Default binding of "Control-h" is help.
 390 (define-key global-map 'backspace 'delete-backward-char)
 391 (define-key global-map '(meta backspace) 'backward-kill-word)
 392 (define-key global-map [(control x) backspace] 'backward-kill-sentence)
 393
 394 (define-key global-map "\M-\C-z" 'activate-region)
 395
 396 ;; FSFmacs macros.c
 397
 398 (define-key global-map "\C-xe" 'call-last-kbd-macro)
 399 (define-key global-map "\C-x\(" 'start-kbd-macro)
 400 (define-key global-map "\C-x\)" 'end-kbd-macro)
 401
 402 ;; FSFmacs macros.el
 403
 404 (define-key global-map "\C-xq" 'kbd-macro-query)
 405
 406
 407 ;; FSFmacs minibuffer.c
 408 ; see also minibuf.el
 409
 410 (define-key global-map "\M-\C-c" 'exit-recursive-edit)
 411 (define-key global-map "\C-]" 'abort-recursive-edit)
 412 (define-key global-map "\M-x" 'execute-extended-command)
 413
 414 ;; FSFmacs window.c
 415
 416 (define-key global-map "\C-x0" 'delete-window)
 417 (define-key global-map "\C-x1" 'delete-other-windows)
 418 (define-key global-map "\C-x2" 'split-window-vertically)
 419 (define-key global-map "\C-x3" 'split-window-horizontally)
 420 ;; Old XEmacs binding
 421 ;;(define-key global-map "\C-x5" 'split-window-horizontally)
 422 (define-key global-map "\C-xo" 'other-window)
 423 (define-key global-map "\C-x^" 'enlarge-window)
 424 (define-key global-map "\C-x<" 'scroll-left)
 425 (define-key global-map "\C-x>" 'scroll-right)
 426
 427 (define-key global-map "\C-v" 'scroll-up-command)
 428 (define-key global-map "\M-v" 'scroll-down-command)
 429 (define-key global-map "\M-\C-v" 'scroll-other-window)
 430 ; meta-shift-V, that is.
 431 (define-key global-map '(meta V) 'scroll-other-window-down)
 432
 433 (define-key global-map "\C-l" 'recenter)
 434 (define-key global-map "\M-r" 'move-to-window-line)
 435
 436 ;; FSFmacs window.el
 437
 438 (define-key global-map "\C-x6" 'window-configuration-to-register)
 439 ;(define-key global-map "\C-x7" 'jump-to-register);ie register-to-window-config
 440 (define-key global-map "\C-x}" 'enlarge-window-horizontally)
 441 (define-key global-map "\C-x{" 'shrink-window-horizontally)
 442 ;; New FSF19 bindings
 443 (define-key global-map "\C-x-" 'shrink-window-if-larger-than-buffer)
 444 (define-key global-map "\C-x+" 'balance-windows)
 445 (define-key ctl-x-4-map "0" 'kill-buffer-and-window)
 446
 447 ;;(define-key global-map "\C-g" 'keyboard-quit)
 448 (let ((ch (quit-char)))
 449   (if (or (characterp ch) (integerp ch))
 450       (setq ch (char-to-string ch)))
 451   (define-key global-map ch 'keyboard-quit))
 452 (define-key global-map "\e\e\e" 'keyboard-escape-quit)
 453
 454
 455
 456 (define-key global-map "\M-%" 'query-replace)
 457
 458 ;; FSF v20 binding
 459 (define-key global-map [(control meta %)] 'query-replace-regexp)
 460
 461
 462 ; autoloaded
 463 ;(define-key global-map "\C-x4a" 'add-change-log-entry-other-window)
 464
 465 ; autoloaded
 466 ;(define-key global-map "\C-x`" 'next-error)
 467
 468 ; autoloaded
 469 ;(define-key global-map "\M-/" 'dabbrev-expand)
 470
 471 ; autoloaded
 472 ;(define-key global-map "\C-xd" 'dired)
 473
 474 ; autoloaded
 475 ;(define-key global-map "\C-x4d" 'dired-other-window)
 476
 477 (define-key global-map "\M-$" 'ispell-word)
 478
 479 (define-key global-map "\C-xm" 'compose-mail)
 480 (define-key global-map "\C-x4m" 'compose-mail-other-window)
 481 (define-key global-map "\C-x5m" 'compose-mail-other-frame)
 482
 483 (define-key global-map "\M-." 'find-tag)
 484
 485 (define-key global-map "\C-x4." 'find-tag-other-window)
 486
 487 (define-key global-map "\M-," 'tags-loop-continue)
 488
 489
 490 (define-key global-map '(control <) 'mark-beginning-of-buffer)
 491 (define-key global-map '(control >) 'mark-end-of-buffer)
 492
 493 (define-key global-map "\C-x\C-e" 'eval-last-sexp) ;bogus!
 494
 495
 496 (define-key global-map "\M-g" 'goto-line)
 497
 498 ;; Keypad type things
 499
 500 ;; I removed all the fkey crap, because where-is is now smart enough
 501 ;; to show all bindings. --ben
 502
 503 ;;; These aren't bound to kbd macros like "\C-b" so that they have the
 504 ;; expected behavior even in, for example, vi-mode.
 505
 506 ;; We use here symbolic names, assuming that the corresponding keys will
 507 ;; generate these keysyms.  This is not true on Suns, but x-win-sun.el
 508 ;; fixes that.  If it turns out that the semantics of these keys should
 509 ;; differ from server to server, this should be moved into server-specific
 510 ;; files, but these appear to be the standard Motif and PC bindings.
 511
 512 ;; movement by units
 513 (define-key global-map 'left            'backward-char-command)
 514 (define-key global-map 'right           'forward-char-command)
 515 (define-key global-map 'up              'previous-line)
 516 (define-key global-map 'down            'next-line)
 517 (define-key global-map 'kp-left         'backward-char-command)
 518 (define-key global-map 'kp-right        'forward-char-command)
 519 (define-key global-map 'kp-up           'previous-line)
 520 (define-key global-map 'kp-down         'next-line)
 521
 522 ;; movement by pages
 523 (define-key global-map 'prior           'scroll-down-command)
 524 (define-key global-map 'next            'scroll-up-command)
 525 (define-key global-map '(control prior) 'scroll-right)
 526 (define-key global-map '(control next)  'scroll-left)
 527 (define-key global-map 'kp-prior        'scroll-down-command)
 528 (define-key global-map 'kp-next         'scroll-up-command)
 529 (define-key global-map '(control kp-prior) 'scroll-right)
 530 (define-key global-map '(control kp-next) 'scroll-left)
 531
 532 ;; movement to the limits
 533 (define-key global-map 'home            'beginning-of-line)
 534 (define-key global-map 'end             'end-of-line)
 535 (define-key global-map '(control home)  'beginning-of-buffer)
 536 (define-key global-map '(control end)   'end-of-buffer)
 537 (define-key global-map 'kp-home         'beginning-of-line)
 538 (define-key global-map 'kp-end          'end-of-line)
 539 (define-key global-map '(control kp-home) 'beginning-of-buffer)
 540 (define-key global-map '(control kp-end) 'end-of-buffer)
 541
 542 ;; on which systems do these exist?
 543 (define-key global-map 'begin           'beginning-of-line)
 544 (define-key global-map '(control begin) 'beginning-of-buffer)
 545
 546 ;; movement by larger blocks
 547 (define-key global-map '(control left)  'backward-word)
 548 (define-key global-map '(control right) 'forward-word)
 549 (define-key global-map '(control up)    'backward-block-of-lines)
 550 (define-key global-map '(control down)  'forward-block-of-lines)
 551 (define-key global-map '(control kp-left) 'backward-word)
 552 (define-key global-map '(control kp-right) 'forward-word)
 553 (define-key global-map '(control kp-up) 'backward-block-of-lines)
 554 (define-key global-map '(control kp-down) 'forward-block-of-lines)
 555
 556 ;; context-sensitive movement
 557 (define-key global-map '(meta left)     'backward-sexp)
 558 (define-key global-map '(meta right)    'forward-sexp)
 559 (define-key global-map '(meta up)       'backward-paragraph)
 560 (define-key global-map '(meta down)     'forward-paragraph)
 561 (define-key global-map '(meta control left) 'backward-sentence)
 562 (define-key global-map '(meta control right) 'forward-sentence)
 563 (define-key global-map '(meta control up) 'scroll-down-one)
 564 (define-key global-map '(meta control down) 'scroll-up-one)
 565 (define-key global-map '(meta control home)     'beginning-of-defun)
 566 (define-key global-map '(meta control end)      'end-of-defun)
 567 (define-key global-map '(meta control prior)    'backward-page)
 568 (define-key global-map '(meta control next)     'forward-page)
 569 (define-key global-map '(meta kp-left)  'backward-sexp)
 570 (define-key global-map '(meta kp-right) 'forward-sexp)
 571 (define-key global-map '(meta kp-up)    'backward-paragraph)
 572 (define-key global-map '(meta kp-down)  'forward-paragraph)
 573 (define-key global-map '(meta control kp-left) 'backward-sentence)
 574 (define-key global-map '(meta control kp-right) 'forward-sentence)
 575 (define-key global-map '(meta control kp-up) 'scroll-down-one)
 576 (define-key global-map '(meta control kp-down) 'scroll-up-one)
 577 (define-key global-map '(meta control kp-home)  'beginning-of-defun)
 578 (define-key global-map '(meta control kp-end)   'end-of-defun)
 579 (define-key global-map '(meta control kp-prior) 'backward-page)
 580 (define-key global-map '(meta control kp-next)  'forward-page)
 581
 582 ;; movement between windows
 583 (define-key global-map '(control tab)   'other-window)
 584 (define-key global-map '(control shift tab) 'backward-other-window)
 585
 586 ;; movement in other windows
 587 (define-key global-map '(meta next)     'scroll-other-window)
 588 (define-key global-map '(meta prior)    'scroll-other-window-down)
 589 (define-key global-map '(meta home)     'beginning-of-buffer-other-window)
 590 (define-key global-map '(meta end)      'end-of-buffer-other-window)
 591 (define-key global-map '(meta kp-next)  'scroll-other-window)
 592 (define-key global-map '(meta kp-prior) 'scroll-other-window-down)
 593 (define-key global-map '(meta kp-home)  'beginning-of-buffer-other-window)
 594 (define-key global-map '(meta kp-end)   'end-of-buffer-other-window)
 595
 596 ;; the infamous delete key
 597 (define-key global-map 'delete          'backward-or-forward-delete-char)
 598 (define-key global-map '(meta delete)   'backward-or-forward-kill-word)
 599 (define-key global-map [(control x) (delete)]
 600                                         'backward-or-forward-kill-sentence)
 601 (define-key global-map 'kp-delete       'backward-or-forward-delete-char)
 602 (define-key global-map '(meta kp-delete) 'backward-or-forward-kill-word)
 603 (define-key global-map [(control x) (kp-delete)]
 604                                         'backward-or-forward-kill-sentence)
 605
 606 ;; don't try this one at home, kids.
 607 (define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp)
 608 (define-key global-map '(control meta kp-delete) 'backward-or-forward-kill-sexp)
 609 ;; or this one, either, on Linux.
 610 (define-key global-map '(control meta backspace) 'backward-kill-sexp)
 611
 612
 613 ;;; Miscellaneous key bindings
 614 (define-key global-map 'insert          'overwrite-mode)
 615 (define-key global-map 'kp-insert       'overwrite-mode)
 616 (define-key global-map 'again           'repeat-complex-command)
 617 (define-key global-map 'redo            'repeat-complex-command)
 618
 619 (define-key global-map 'kp-enter        [return]) ; do whatever RET does now
 620 (define-key global-map 'kp-tab          [tab])
 621
 622 (define-key global-map 'undo            'undo)
 623 (define-key global-map 'help            'help-for-help)
 624
 625 (define-key global-map 'kp-space        'self-insert-command)
 626 (define-key global-map 'kp-equal        'self-insert-command)
 627 (define-key global-map 'kp-multiply     'self-insert-command)
 628 (define-key global-map 'kp-add          'self-insert-command)
 629 (define-key global-map 'kp-separator    'self-insert-command)
 630 (define-key global-map 'kp-subtract     'self-insert-command)
 631 (define-key global-map 'kp-decimal      'self-insert-command)
 632 (define-key global-map 'kp-divide       'self-insert-command)
 633
 634 (define-key global-map 'kp-0            'self-insert-command)
 635 (define-key global-map 'kp-1            'self-insert-command)
 636 (define-key global-map 'kp-2            'self-insert-command)
 637 (define-key global-map 'kp-3            'self-insert-command)
 638 (define-key global-map 'kp-4            'self-insert-command)
 639 (define-key global-map 'kp-5            'self-insert-command)
 640 (define-key global-map 'kp-6            'self-insert-command)
 641 (define-key global-map 'kp-7            'self-insert-command)
 642 (define-key global-map 'kp-8            'self-insert-command)
 643 (define-key global-map 'kp-9            'self-insert-command)
 644
 645 (define-key global-map 'select          'function-key-error)
 646 (define-key global-map 'print           'function-key-error)
 647 (define-key global-map 'execute         'execute-extended-command)
 648 (define-key global-map 'clearline       'function-key-error)
 649 (define-key global-map 'insertline      'open-line)
 650 (define-key global-map 'deleteline      'kill-line)
 651 (define-key global-map 'insertchar      'function-key-error)
 652 (define-key global-map 'deletechar      'delete-char)
 653
 654 ;;; keydefs.el ends here