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
   5 ;; Maintainer: XEmacs Development Team
   6 ;; Keywords: internal, dumped
   7
   8 ;; This file is part of XEmacs.
   9
  10 ;; XEmacs is free software; you can redistribute it and/or modify it
  11 ;; under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; XEmacs is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with XEmacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  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 XEmacs
  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 (define-key global-map 'delete 'backward-or-forward-delete-char)
 110 (define-key global-map '(meta delete) 'backward-or-forward-kill-word)
 111 (define-key global-map [(control x) (delete)] 'backward-or-forward-kill-sentence)
 112
 113 ;; FSFmacs files.el
 114
 115 (define-key global-map "\C-x\C-f" 'find-file)
 116 (define-key global-map "\C-x\C-q" 'toggle-read-only)
 117 (define-key global-map "\C-x\C-r" 'find-file-read-only)
 118 (define-key global-map "\C-x\C-v" 'find-alternate-file)
 119 (define-key global-map "\C-x\C-s" 'save-buffer)
 120 (define-key global-map "\C-xs" 'save-some-buffers)
 121 (define-key global-map "\C-x\C-w" 'write-file)
 122 (define-key global-map "\C-xi" 'insert-file)
 123 (define-key global-map "\M-~" 'not-modified)
 124 (define-key global-map "\C-x\C-d" 'list-directory)
 125 (define-key global-map "\C-x\C-c" 'save-buffers-kill-emacs)
 126
 127 (define-key global-map "\C-x4f" 'find-file-other-window)
 128 (define-key global-map "\C-x4r" 'find-file-read-only-other-window)
 129 (define-key global-map "\C-x4\C-f" 'find-file-other-window)
 130 (define-key global-map "\C-x4b" 'switch-to-buffer-other-window)
 131 (define-key global-map "\C-x4\C-o" 'display-buffer)
 132
 133 (define-key global-map "\C-x5b" 'switch-to-buffer-other-frame)
 134 (define-key global-map "\C-x5f" 'find-file-other-frame)
 135 (define-key global-map "\C-x5\C-f" 'find-file-other-frame)
 136 (define-key global-map "\C-x5r" 'find-file-read-only-other-frame)
 137
 138 ;; FSFmacs frame.c
 139 ;FSFmacs has these.  It's probably a good idea to provide ways of hooking
 140 ;these events, but it's unlikely that it's a good idea to do it this way.
 141 ;Just provide a hook, like the existing `select-frame-hook',
 142 ;`deselect-frame-hook', `map-frame-hook', and `unmap-frame-hook'.
 143 ;#### ergo need hooks for delete-frame and iconify-frame
 144 ;(define-key global-map 'switch-frame 'handle-switch-frame)
 145 ;(define-key global-map 'delete-frame 'handle-delete-frame)
 146 ;(define-key global-map 'iconify-frame 'ignore-event)
 147 ;(define-key global-map 'make-frame-visible 'ignore-event)
 148
 149 ;; FSFmacs frame.el
 150
 151 ;; New FSF19 bindings: C-x 5 as prefix for window commands
 152 (define-key global-map "\C-x52" 'make-frame)
 153 (define-key global-map "\C-x50" 'delete-frame)
 154 (define-key global-map "\C-x5o" 'other-frame)
 155
 156 ;; FSFmacs help.el
 157
 158 (define-key global-map (vector help-char) 'help-command)
 159 (define-key global-map 'help 'help-command)
 160 (define-key global-map 'f1 'help-command)
 161
 162 ;; FSFmacs indent.el
 163
 164 ;;(define-key global-map "\t" 'self-insert-command)
 165 (define-key global-map "\t" 'indent-for-tab-command)
 166 (define-key global-map "\M-\C-\\" 'indent-region)
 167 (define-key global-map "\C-x\t" 'indent-rigidly)
 168 (define-key global-map "\M-i" 'tab-to-tab-stop)
 169 ;; XEmacs addition:
 170 (define-key global-map [(shift tab)] 'tab-to-tab-stop)
 171
 172 ;; FSFmacs isearch.el
 173
 174 (define-key global-map "\C-s" 'isearch-forward)
 175 (define-key global-map "\C-r" 'isearch-backward)
 176 (define-key global-map "\M-\C-s" 'isearch-forward-regexp)
 177 (define-key global-map "\M-\C-r" 'isearch-backward-regexp)
 178
 179 ;; FSFmacs keyboard.c
 180
 181 (define-key global-map "\C-z" 'suspend-emacs-or-iconify-frame)
 182 (define-key global-map "\C-x\C-z" 'suspend-or-iconify-emacs)
 183
 184 ;; FSFmacs loaddefs.el
 185
 186 ;; New FSF19 bindings: C-x n as a prefix for narrowing commands.
 187 (define-key global-map "\C-xn" (let ((map (make-sparse-keymap)))
 188                                  (set-keymap-name map 'narrowing-prefix)
 189                                  map))
 190 (put 'narrow-to-region 'disabled t)
 191 (define-key global-map "\C-xnn" 'narrow-to-region)
 192 (define-key global-map "\C-xnw" 'widen)
 193 (define-key global-map "\C-xnd" 'narrow-to-defun)
 194 ;; Old v18 bindings
 195 ;(define-key global-map "\C-xn" 'narrow-to-region)
 196 ;(define-key global-map "\C-xw" 'widen)
 197
 198 (define-key global-map "\C-j" 'newline-and-indent)
 199 (define-key global-map "\C-m" 'newline)
 200 (define-key global-map "\C-o" 'open-line)
 201 (define-key global-map "\M-\C-o" 'split-line)
 202 (define-key global-map "\C-q" 'quoted-insert)
 203 (define-key global-map "\M-^" 'delete-indentation)
 204 (define-key global-map "\M-\\" 'delete-horizontal-space)
 205 (define-key global-map "\M-m" 'back-to-indentation)
 206 (define-key global-map "\C-x\C-o" 'delete-blank-lines)
 207 (define-key global-map "\M- " 'just-one-space)
 208 (define-key global-map "\M-z" 'zap-to-char)
 209 (define-key global-map "\M-=" 'count-lines-region)
 210 (define-key global-map "\C-x=" 'what-cursor-position)
 211 (define-key global-map "\M-:" 'eval-expression)
 212 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
 213 (define-key global-map "\M-\e:" 'eval-expression)
 214 ;(define-key global-map "\M-\e" 'eval-expression)
 215 ;; Do we really need to disable this now that it is harder to type
 216 ;; by accident?
 217 ;; (put 'eval-expression 'disabled t)
 218 ;; Changed from C-x ESC so that function keys work following C-x.
 219 (define-key global-map "\C-x\e\e" 'repeat-complex-command)
 220 ;(define-key global-map "\C-x\e" 'repeat-complex-command)
 221 ;; From Emacs 20.
 222 (define-key global-map "\C-x\M-:" 'repeat-complex-command)
 223 (define-key global-map "\C-xu" 'advertised-undo)
 224 ;; Many people are used to typing C-/ on X terminals and getting C-_.
 225 (define-key global-map '(control /) 'undo)
 226 (define-key global-map "\C-_" 'undo)
 227 (define-key global-map "\M-!" 'shell-command)
 228 (define-key global-map "\M-|" 'shell-command-on-region)
 229
 230 (define-key global-map "\C-u" 'universal-argument)
 231 ;; Make Control-0 - Control-9 set the prefix argument, like Meta-0.
 232 (let ((i ?0))
 233   (while (<= i ?9)
 234     (define-key global-map (list 'meta i) 'digit-argument)
 235     (define-key global-map (list 'control i) 'digit-argument)
 236     (define-key global-map (list 'control 'meta i) 'digit-argument)
 237     (setq i (1+ i))))
 238 (define-key global-map '(meta -) 'negative-argument)
 239 (define-key global-map '(control -) 'negative-argument)
 240 (define-key global-map '(control meta -) 'negative-argument)
 241
 242 (define-key global-map "\C-k" 'kill-line)
 243 (define-key global-map "\C-w" 'kill-region)
 244 (define-key global-map "\M-w" 'kill-ring-save)
 245 (define-key global-map "\M-\C-w" 'append-next-kill)
 246 (define-key global-map "\C-y" 'yank)
 247 (define-key global-map "\M-y" 'yank-pop)
 248
 249 ;; Old v18 binding
 250 ;(define-key global-map "\C-xa" 'append-to-buffer)
 251
 252 (define-key global-map "\C-@" 'set-mark-command)
 253 ;; Many people are used to typing C-SPC and getting C-@.
 254 (define-key global-map '(control ? ) 'set-mark-command)
 255 (define-key global-map "\C-x\C-x" 'exchange-point-and-mark)
 256 (define-key global-map "\C-x\C-@" 'pop-global-mark)
 257 (define-key global-map [(control x) (control ? )] 'pop-global-mark)
 258
 259 (define-key global-map "\C-n" 'next-line)
 260 (define-key global-map "\C-p" 'previous-line)
 261 ;(define-key global-map "\C-x\C-n" 'set-goal-column)
 262 ;; XEmacs:
 263 ;;; Many people have said they rarely use this feature, and often type
 264 ;;; it by accident.  Maybe it shouldn't even be on a key.
 265 ;;; Done.  -hniksic
 266 ;(put 'set-goal-column 'disabled t)
 267
 268 (define-key global-map [menu] 'execute-extended-command)
 269 (define-key global-map [find] 'search-forward)
 270
 271 (define-key global-map "\C-t" 'transpose-chars)
 272 (define-key global-map "\M-t" 'transpose-words)
 273 (define-key global-map "\M-\C-t" 'transpose-sexps)
 274 (define-key global-map "\C-x\C-t" 'transpose-lines)
 275
 276 (define-key global-map "\M-;" 'indent-for-comment)
 277 (define-key global-map "\M-j" 'indent-new-comment-line)
 278 (define-key global-map "\M-\C-j" 'indent-new-comment-line)
 279 (define-key global-map "\C-x;" 'set-comment-column)
 280 (define-key global-map "\C-xf" 'set-fill-column)
 281 (define-key global-map "\C-x$" 'set-selective-display)
 282
 283 (define-key global-map "\M-@" 'mark-word)
 284 (define-key global-map "\M-f" 'forward-word)
 285 (define-key global-map "\M-b" 'backward-word)
 286 (define-key global-map "\M-d" 'kill-word)
 287
 288 (define-key global-map "\M-<" 'beginning-of-buffer)
 289 (define-key global-map "\M->" 'end-of-buffer)
 290 (define-key global-map "\C-xh" 'mark-whole-buffer)
 291 (define-key global-map "\M-\\" 'delete-horizontal-space)
 292
 293 (define-key global-map "\M-\C-f" 'forward-sexp)
 294 (define-key global-map "\M-\C-b" 'backward-sexp)
 295 (define-key global-map "\M-\C-u" 'backward-up-list)
 296 (define-key global-map "\M-\C-@" 'mark-sexp)
 297 (define-key global-map "\M-\C-d" 'down-list)
 298 (define-key global-map "\M-\C-k" 'kill-sexp)
 299 (define-key global-map "\M-\C-n" 'forward-list)
 300 (define-key global-map "\M-\C-p" 'backward-list)
 301 (define-key global-map "\M-\C-a" 'beginning-of-defun)
 302 (define-key global-map "\M-\C-e" 'end-of-defun)
 303 (define-key global-map "\M-\C-h" 'mark-defun)
 304 (define-key global-map "\M-\(" 'insert-parentheses)
 305 (define-key global-map "\M-\)" 'move-past-close-and-reindent)
 306 (define-key global-map "\M-\t" 'lisp-complete-symbol)
 307
 308 (define-key global-map '(control meta backspace) 'backward-kill-sexp)
 309 (define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp)
 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
 393 (define-key global-map "\M-\C-z" 'activate-region)
 394
 395 ;; FSFmacs macros.c
 396
 397 (define-key global-map "\C-xe" 'call-last-kbd-macro)
 398 (define-key global-map "\C-x\(" 'start-kbd-macro)
 399 (define-key global-map "\C-x\)" 'end-kbd-macro)
 400
 401 ;; FSFmacs macros.el
 402
 403 (define-key global-map "\C-xq" 'kbd-macro-query)
 404
 405
 406 ;; FSFmacs minibuffer.c
 407 ; see also minibuf.el
 408
 409 (define-key global-map "\M-\C-c" 'exit-recursive-edit)
 410 (define-key global-map "\C-]" 'abort-recursive-edit)
 411 (define-key global-map "\M-x" 'execute-extended-command)
 412
 413 ;; FSFmacs window.c
 414
 415 (define-key global-map "\C-x0" 'delete-window)
 416 (define-key global-map "\C-x1" 'delete-other-windows)
 417 (define-key global-map "\C-x2" 'split-window-vertically)
 418 (define-key global-map "\C-x3" 'split-window-horizontally)
 419 ;; Old XEmacs binding
 420 ;;(define-key global-map "\C-x5" 'split-window-horizontally)
 421 (define-key global-map "\C-xo" 'other-window)
 422 (define-key global-map "\C-x^" 'enlarge-window)
 423 (define-key global-map "\C-x<" 'scroll-left)
 424 (define-key global-map "\C-x>" 'scroll-right)
 425
 426 (define-key global-map "\C-v" 'scroll-up-command)
 427 (define-key global-map "\M-v" 'scroll-down-command)
 428 (define-key global-map "\M-\C-v" 'scroll-other-window)
 429 ; meta-shift-V, that is.
 430 (define-key global-map '(meta V) 'scroll-other-window-down)
 431
 432 (define-key global-map "\C-l" 'recenter)
 433 (define-key global-map "\M-r" 'move-to-window-line)
 434
 435 ;; FSFmacs window.el
 436
 437 (define-key global-map "\C-x6" 'window-configuration-to-register)
 438 ;(define-key global-map "\C-x7" 'jump-to-register);ie register-to-window-config
 439 (define-key global-map "\C-x}" 'enlarge-window-horizontally)
 440 (define-key global-map "\C-x{" 'shrink-window-horizontally)
 441 ;; New FSF19 bindings
 442 (define-key global-map "\C-x-" 'shrink-window-if-larger-than-buffer)
 443 (define-key global-map "\C-x+" 'balance-windows)
 444 (define-key ctl-x-4-map "0" 'kill-buffer-and-window)
 445
 446 ;;(define-key global-map "\C-g" 'keyboard-quit)
 447 (let ((ch (quit-char)))
 448   (if (or (characterp ch) (integerp ch))
 449       (setq ch (char-to-string ch)))
 450   (define-key global-map ch 'keyboard-quit))
 451 (define-key global-map "\e\e\e" 'keyboard-escape-quit)
 452
 453
 454
 455
 456
 457
 458 (define-key global-map "\M-%" 'query-replace)
 459
 460
 461 ; autoloaded
 462 ;(define-key global-map "\C-x4a" 'add-change-log-entry-other-window)
 463
 464 ; autoloaded
 465 ;(define-key global-map "\C-x`" 'next-error)
 466
 467 ; autoloaded
 468 ;(define-key global-map "\M-/" 'dabbrev-expand)
 469
 470 ; autoloaded
 471 ;(define-key global-map "\C-xd" 'dired)
 472
 473 ; autoloaded
 474 ;(define-key global-map "\C-x4d" 'dired-other-window)
 475
 476 (define-key global-map "\M-$" 'ispell-word)
 477
 478 (define-key global-map "\C-xm" 'compose-mail)
 479 (define-key global-map "\C-x4m" 'compose-mail-other-window)
 480 (define-key global-map "\C-x5m" 'compose-mail-other-frame)
 481
 482 (define-key global-map "\M-." 'find-tag)
 483
 484 (define-key global-map "\C-x4." 'find-tag-other-window)
 485
 486 (define-key global-map "\M-," 'tags-loop-continue)
 487
 488
 489 (define-key global-map '(control <) 'mark-beginning-of-buffer)
 490 (define-key global-map '(control >) 'mark-end-of-buffer)
 491
 492 (define-key global-map "\C-x\C-e" 'eval-last-sexp) ;bogus!
 493
 494
 495 (define-key global-map "\M-g" 'goto-line)
 496
 497 ;; Keypad type things
 498
 499 ;; I removed all the fkey crap, because where-is is now smart enough
 500 ;; to show all bindings. --ben
 501
 502 ;;; These aren't bound to kbd macros like "\C-b" so that they have the
 503 ;; expected behavior even in, for example, vi-mode.
 504
 505 ;; We use here symbolic names, assuming that the corresponding keys will
 506 ;; generate these keysyms.  This is not true on Suns, but x-win-sun.el
 507 ;; fixes that.  If it turns out that the semantics of these keys should
 508 ;; differ from server to server, this should be moved into server-specific
 509 ;; files, but these appear to be the standard Motif and PC bindings.
 510
 511 ;; movement by units
 512 (define-key global-map 'left            'backward-char-command)
 513 (define-key global-map 'up              'previous-line)
 514 (define-key global-map 'right           'forward-char-command)
 515 (define-key global-map 'down            'next-line)
 516
 517 ;; movement by pages
 518 (define-key global-map 'prior           'scroll-down-command)
 519 (define-key global-map 'next            'scroll-up-command)
 520
 521 ;; movement to the limits
 522 (define-key global-map 'home            'beginning-of-line)
 523 (define-key global-map 'end             'end-of-line)
 524
 525 ;;; Miscellaneous key bindings
 526 (define-key global-map 'again           'repeat-complex-command)
 527 (define-key global-map 'insert          'overwrite-mode)
 528
 529 ;;; These aren't bound to kbd macros like "\C-b" so that they have the
 530 ;; expected behavior even in, for example, vi-mode.
 531
 532 ;; We use here symbolic names, assuming that the corresponding keys will
 533 ;; generate these keysyms.  This is not true on Suns, but x-win-sun.el
 534 ;; fixes that.  If it turns out that the semantics of these keys should
 535 ;; differ from server to server, this should be moved into server-specific
 536 ;; files, but these appear to be the standard Motif and PC bindings.
 537
 538 ;; potential R6isms
 539 (define-key global-map 'kp-left         'backward-char-command)
 540 (define-key global-map 'kp-up           'previous-line)
 541 (define-key global-map 'kp-right        'forward-char-command)
 542 (define-key global-map 'kp-down         'next-line)
 543
 544
 545 ;; movement by larger blocks
 546 (define-key global-map '(control left)  'backward-word)
 547 (define-key global-map '(control up)    #'(lambda ()
 548                                             (interactive "_")
 549                                             (forward-line -6)))
 550 (define-key global-map '(control right) 'forward-word)
 551 (define-key global-map '(control down)  #'(lambda ()
 552                                             (interactive "_")
 553                                             (forward-line 6)))
 554
 555 ;; context-sensitive movement
 556 (define-key global-map '(meta left)  'backward-sexp)
 557 (define-key global-map '(meta right) 'forward-sexp)
 558 (define-key global-map '(meta up)    'backward-paragraph)
 559 (define-key global-map '(meta down)  'forward-paragraph)
 560
 561 ;; movement by pages
 562 (define-key global-map '(control prior) 'scroll-right)
 563 (define-key global-map '(control next)  'scroll-left)
 564 ;; potential R6isms
 565 (define-key global-map 'kp-prior        'scroll-down-command)
 566 (define-key global-map 'kp-next         'scroll-up-command)
 567 (define-key global-map '(control kp-prior) 'scroll-right)
 568 (define-key global-map '(control kp-next) 'scroll-left)
 569
 570
 571 ;; movement to the limits
 572 (define-key global-map '(control home)  'beginning-of-buffer)
 573 (define-key global-map '(control end)   'end-of-buffer)
 574 (define-key global-map 'begin           'beginning-of-line)
 575 (define-key global-map '(control begin) 'beginning-of-buffer)
 576 ;; potential R6isms
 577 (define-key global-map 'kp-home         'beginning-of-line)
 578 (define-key global-map '(control kp-home) 'beginning-of-buffer)
 579 (define-key global-map 'kp-end          'end-of-line)
 580 (define-key global-map '(control kp-end) 'end-of-buffer)
 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 ;; potential R6isms
 592 (define-key global-map '(meta kp-next)  'scroll-other-window)
 593 (define-key global-map '(meta kp-prior) 'scroll-other-window-down)
 594 (define-key global-map '(meta kp-home)  'beginning-of-buffer-other-window)
 595 (define-key global-map '(meta kp-end)   'end-of-buffer-other-window)
 596
 597 ;; potential R6isms
 598 (define-key global-map 'redo            'repeat-complex-command)
 599 (define-key global-map 'kp-insert       'overwrite-mode)
 600 (define-key global-map 'kp-delete       'backward-delete-char-untabify)
 601
 602 (define-key global-map 'kp-enter        [return]) ; do whatever RET does now
 603 (define-key global-map 'kp-tab          [tab])
 604
 605 (define-key global-map 'undo            'undo)
 606 (define-key global-map 'help            'help-for-help)
 607
 608 (define-key global-map 'kp-space        'self-insert-command)
 609 (define-key global-map 'kp-equal        'self-insert-command)
 610 (define-key global-map 'kp-multiply     'self-insert-command)
 611 (define-key global-map 'kp-add          'self-insert-command)
 612 (define-key global-map 'kp-separator    'self-insert-command)
 613 (define-key global-map 'kp-subtract     'self-insert-command)
 614 (define-key global-map 'kp-decimal      'self-insert-command)
 615 (define-key global-map 'kp-divide       'self-insert-command)
 616
 617 (define-key global-map 'kp-0            'self-insert-command)
 618 (define-key global-map 'kp-1            'self-insert-command)
 619 (define-key global-map 'kp-2            'self-insert-command)
 620 (define-key global-map 'kp-3            'self-insert-command)
 621 (define-key global-map 'kp-4            'self-insert-command)
 622 (define-key global-map 'kp-5            'self-insert-command)
 623 (define-key global-map 'kp-6            'self-insert-command)
 624 (define-key global-map 'kp-7            'self-insert-command)
 625 (define-key global-map 'kp-8            'self-insert-command)
 626 (define-key global-map 'kp-9            'self-insert-command)
 627
 628 (define-key global-map 'select          'function-key-error)
 629 (define-key global-map 'print           'function-key-error)
 630 (define-key global-map 'execute         'execute-extended-command)
 631 (define-key global-map 'clearline       'function-key-error)
 632 (define-key global-map 'insertline      'open-line)
 633 (define-key global-map 'deleteline      'kill-line)
 634 (define-key global-map 'insertchar      'function-key-error)
 635 (define-key global-map 'deletechar      'delete-char)
 636
 637 ;;; keydefs.el ends here