code.delx.au - gnu-emacs/blob - lisp/bindings.el

   1 ;;; bindings.el --- define standard key bindings and some variables.
   2
   3 ;; Copyright (C) 1985,86,87,92,93,94,95,96,99,2000
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Maintainer: FSF
   7 ;; Keywords: internal
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software; you can redistribute it and/or modify
  12 ;; it 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 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to
  23 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Commentary:
  27
  28 ;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  29 ;;; Special formatting conventions are used in this file!
  30 ;;;
  31 ;;; a backslash-newline is used at the beginning of a documentation string
  32 ;;; when that string should be stored in the file etc/DOCnnn, not in core.
  33 ;;;
  34 ;;; Such strings read into Lisp as numbers (during the pure-loading phase).
  35 ;;;
  36 ;;; But you must obey certain rules to make sure the string is understood
  37 ;;; and goes into etc/DOCnnn properly.
  38 ;;;
  39 ;;; The doc string must appear in the standard place in a call to
  40 ;;; defun, autoload, defvar or defconst.  No Lisp macros are recognized.
  41 ;;; The open-paren starting the definition must appear in column 0.
  42 ;;;
  43 ;;; In defvar and defconst, there is an additional rule:
  44 ;;; The double-quote that starts the string must be on the same
  45 ;;; line as the defvar or defconst.
  46 ;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  47
  48 ;;; Code:
  49
  50 (defun make-mode-line-mouse2-map (f) "\
  51 Return a keymap with single entry for mouse-2 on mode line.
  52 This is defined to run function F with no args in the buffer
  53 corresponding to the mode line clicked."
  54   (let ((map (make-sparse-keymap)))
  55     (define-key map [mode-line mouse-2]
  56       `(lambda (e)
  57          (interactive "e")
  58          (save-selected-window
  59            (select-window
  60             (posn-window (event-start e)))
  61            (,f)
  62            (force-mode-line-update))))
  63     map))
  64
  65 (defvar mode-line-mule-info
  66   `(""
  67     (current-input-method
  68      ("" (:eval
  69           (if current-input-method
  70               (propertize
  71                current-input-method-title
  72                'help-echo (concat ,(purecopy "Input method: ")
  73                                   current-input-method
  74                                   ".  mouse-2 toggles, mouse-3 describes")
  75                'local-map ,(purecopy
  76                             (let ((map (make-sparse-keymap)))
  77                               (define-key map [mode-line mouse-2]
  78                                 (lambda (e)
  79                                   (interactive "e")
  80                                   (save-selected-window
  81                                     (select-window
  82                                      (posn-window (event-start e)))
  83                                     (toggle-input-method)
  84                                     (force-mode-line-update))))
  85                               (define-key map [mode-line mouse-3]
  86                                 (lambda (e)
  87                                   (interactive "e")
  88                                   (save-selected-window
  89                                     (select-window
  90                                      (posn-window (event-start e)))
  91                                     (describe-input-method))))
  92                               map)))))))
  93     ,(propertize
  94       "%Z" 'help-echo
  95       (purecopy "Coding system information: see M-x describe-coding-system")))
  96   "Mode-line control for displaying information of multilingual environment.
  97 Normally it displays current input method (if any activated) and
  98 mnemonics of the following coding systems:
  99   coding system for saving or writing the current buffer
 100   coding system for keyboard input (if Emacs is running on terminal)
 101   coding system for terminal output (if Emacs is running on terminal)"
 102 ;; Currently not:
 103 ;;;  coding system for decoding output of buffer process (if any)
 104 ;;;  coding system for encoding text to send to buffer process (if any)."
 105 )
 106
 107 (make-variable-buffer-local 'mode-line-mule-info)
 108
 109 (defvar mode-line-buffer-identification (purecopy '("%12b")) "\
 110 Mode-line control for identifying the buffer being displayed.
 111 Its default value is (\"%12b\").
 112 Major modes that edit things other than ordinary files may change this
 113 \(e.g. Info, Dired,...)")
 114
 115 (make-variable-buffer-local 'mode-line-buffer-identification)
 116
 117 (defvar mode-line-frame-identification '("-%F  "))
 118
 119 (defvar mode-line-process nil "\
 120 Mode-line control for displaying info on process status.
 121 Normally nil in most modes, since there is no process to display.")
 122
 123 (make-variable-buffer-local 'mode-line-process)
 124
 125 (defvar mode-line-modified
 126   (list (propertize
 127          "%1*%1+"
 128          'help-echo (purecopy "Read-only status: mouse-2 toggles it")
 129          'local-map (purecopy (make-mode-line-mouse2-map #'toggle-read-only))))
 130   "Mode-line control for displaying whether current buffer is modified.")
 131
 132 (make-variable-buffer-local 'mode-line-modified)
 133
 134 (setq-default mode-line-format
 135   (list (purecopy "-")
 136    'mode-line-mule-info
 137    'mode-line-modified
 138    'mode-line-frame-identification
 139    'mode-line-buffer-identification
 140    (purecopy "   ")
 141    'global-mode-string
 142    (purecopy "   %[(")
 143    '(:eval (mode-line-mode-name)) 'mode-line-process 'minor-mode-alist
 144    (purecopy "%n")
 145    (purecopy ")%]--")
 146    '(which-func-mode ("" which-func-format "--"))
 147    (purecopy '(line-number-mode "L%l--"))
 148    (purecopy '(column-number-mode "C%c--"))
 149    (purecopy '(-3 . "%p"))
 150    (purecopy "-%-")))
 151
 152 (defvar minor-mode-alist nil "\
 153 Alist saying how to show minor modes in the mode line.
 154 Each element looks like (VARIABLE STRING);
 155 STRING is included in the mode line iff VARIABLE's value is non-nil.
 156
 157 Actually, STRING need not be a string; any possible mode-line element
 158 is okay.  See `mode-line-format'.")
 159 ;; Don't use purecopy here--some people want to change these strings.
 160 (setq minor-mode-alist
 161       (list
 162        (list 'abbrev-mode
 163              (propertize " Abbrev"
 164                          'help-echo (purecopy
 165                                      "mouse-2: turn off Abbrev mode")
 166                          'local-map (purecopy (make-mode-line-mouse2-map
 167                                                #'abbrev-mode))))
 168        '(overwrite-mode overwrite-mode)
 169        (list 'auto-fill-function
 170              (propertize " Fill"
 171                          'help-echo (purecopy
 172                                      "mouse-2: turn off Autofill mode")
 173                          'local-map (purecopy (make-mode-line-mouse2-map
 174                                                #'auto-fill-mode))))
 175        ;; not really a minor mode...
 176        '(defining-kbd-macro " Def")))
 177
 178 (defvar mode-line-buffer-identification-keymap nil "\
 179 Keymap for what is displayed by `mode-line-buffer-identification'.")
 180
 181 (defvar mode-line-minor-mode-keymap nil "\
 182 Keymap for what is displayed by `mode-line-mode-name'.")
 183
 184 (defvar mode-line-mode-menu-keymap nil "\
 185 Keymap for mode operations menu in the mode line.")
 186
 187 (defun mode-line-unbury-buffer () "\
 188 Switch to the last buffer in the buffer list that is not hidden."
 189   (interactive)
 190   (let ((list (reverse (buffer-list))))
 191     (while (eq (aref (buffer-name (car list)) 0) ? )
 192       (setq list (cdr list)))
 193     (switch-to-buffer (car list))))
 194
 195 (defun mode-line-other-buffer () "\
 196 Switch to the most recently selected buffer other than the current one."
 197   (interactive)
 198   (switch-to-buffer (other-buffer)))
 199
 200 (defun mode-line-mode-menu-1 (event)
 201   (interactive "e")
 202   (save-selected-window
 203     (select-window (posn-window (event-start event)))
 204     (let* ((selection (mode-line-mode-menu event))
 205            (binding (and selection (lookup-key mode-line-mode-menu
 206                                                (vector (car selection))))))
 207       (if binding
 208           (call-interactively binding)))))
 209
 210 (defun mode-line-mode-name () "\
 211 Return a string to display in the mode line for the current mode name."
 212   (let (length (result mode-name))
 213     (when mode-line-mouse-sensitive-p
 214       (let ((local-map (get-text-property 0 'local-map result))
 215             (help-echo (get-text-property 0 'help-echo result)))
 216         (setq result (copy-sequence result))
 217         ;; Add `local-map' property if there isn't already one.
 218         (when (and (null local-map)
 219                    (null (next-single-property-change 0 'local-map result)))
 220           (put-text-property 0 (length result)
 221                              'local-map mode-line-minor-mode-keymap result))
 222         ;; Add `help-echo' property if there isn't already one.
 223         (when (and (null help-echo)
 224                    (null (next-single-property-change 0 'help-echo result)))
 225           (put-text-property 0 (length result)
 226                              'help-echo "mouse-3: minor mode menu" result))))
 227     result))
 228
 229 (defmacro bound-and-true-p (var)
 230   "Return the value of symbol VAR if it is bound, else nil."
 231   `(and (boundp (quote ,var)) ,var))
 232
 233 (defvar mode-line-mouse-sensitive-p nil "\
 234 Non-nil means mode line has been made mouse-sensitive.")
 235
 236 (defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\
 237 Menu of mode operations in the mode line.")
 238
 239 ;; These bindings were defined inside
 240 ;; `make-mode-line-mouse-sensitive', but then invoking `x-popup-menu'
 241 ;; with `mode-line-mode-menu' lost because the menu items were in
 242 ;; purespace.
 243 (define-key mode-line-mode-menu [abbrev-mode]
 244   `(menu-item ,(purecopy "Abbrev") abbrev-mode
 245               :button (:toggle . abbrev-mode)))
 246 (define-key mode-line-mode-menu [auto-revert-mode]
 247   `(menu-item ,(purecopy "Auto revert") auto-revert-mode
 248               :button (:toggle . auto-revert-mode)))
 249 (define-key mode-line-mode-menu [auto-fill-mode]
 250   `(menu-item ,(purecopy "Auto-fill") auto-fill-mode
 251               :button (:toggle . auto-fill-function)))
 252 (define-key mode-line-mode-menu [column-number-mode]
 253   `(menu-item ,(purecopy "Column number") column-number-mode
 254               :button (:toggle . column-number-mode)))
 255 (define-key mode-line-mode-menu [flyspell-mode]
 256   `(menu-item ,(purecopy "Flyspell") flyspell-mode
 257               :button (:toggle . (bound-and-true-p flyspell-mode))))
 258 (define-key mode-line-mode-menu [font-lock-mode]
 259   `(menu-item ,(purecopy "Font-lock") font-lock-mode
 260               :button (:toggle . font-lock-mode)))
 261 (define-key mode-line-mode-menu [hide-ifdef-mode]
 262   `(menu-item ,(purecopy "Hide ifdef") hide-ifdef-mode
 263               :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
 264 (define-key mode-line-mode-menu [highlight-changes-mode]
 265   `(menu-item ,(purecopy "Highlight changes") highlight-changes-mode
 266               :button (:toggle . highlight-changes-mode)))
 267 (define-key mode-line-mode-menu [line-number-mode]
 268   `(menu-item ,(purecopy "Line number") line-number-mode
 269               :button (:toggle . line-number-mode)))
 270 (define-key mode-line-mode-menu [outline-minor-mode]
 271   `(menu-item ,(purecopy "Outline") outline-minor-mode
 272               :button (:toggle . (bound-and-true-p outline-minor-mode))))
 273 (define-key mode-line-mode-menu [overwrite-mode]
 274   `(menu-item ,(purecopy "Overwrite") overwrite-mode
 275               :button (:toggle . overwrite-mode)))
 276
 277 (defun make-mode-line-mouse-sensitive ()
 278   (when (and window-system
 279              (not mode-line-mouse-sensitive-p))
 280     (setq mode-line-mouse-sensitive-p t)
 281     (defun mode-line-mode-menu (event)
 282       (interactive "@e")
 283       (x-popup-menu event mode-line-mode-menu))
 284
 285     ;; Add menu of buffer operations to the buffer identification part
 286     ;; of the mode line.
 287     (let ((map (make-sparse-keymap)))
 288       (define-key map [mode-line mouse-1] 'mode-line-other-buffer)
 289       (define-key map [header-line mouse-1] 'mode-line-other-buffer)
 290       (define-key map [mode-line M-mouse-2] 'mode-line-unbury-buffer)
 291       (define-key map [header-line M-mouse-2] 'mode-line-unbury-buffer)
 292       (define-key map [mode-line mouse-2] 'bury-buffer)
 293       (define-key map [header-line mouse-2] 'bury-buffer)
 294       (define-key map [mode-line down-mouse-3] 'mouse-buffer-menu)
 295       (define-key map [header-line down-mouse-3] 'mouse-buffer-menu)
 296       (setq mode-line-buffer-identification-keymap map)
 297       (setq-default mode-line-buffer-identification
 298                     (list (propertize "%12b"
 299                                       'face '(:weight bold)
 300                                       'help-echo
 301                                       "mouse-1: other buffer, mouse-2: \
 302 prev, M-mouse-2: next, mouse-3: buffer menu"
 303                                       'local-map map))))
 304
 305     ;; Menu of minor modes.
 306     (let ((map (make-sparse-keymap)))
 307       (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1)
 308       (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1)
 309       (setq mode-line-minor-mode-keymap map))
 310
 311     (force-mode-line-update)))
 312
 313
 314 ;; These variables are used by autoloadable packages.
 315 ;; They are defined here so that they do not get overridden
 316 ;; by the loading of those packages.
 317
 318 ;; Names in directory that end in one of these
 319 ;; are ignored in completion,
 320 ;; making it more likely you will get a unique match.
 321 (setq completion-ignored-extensions
 322       (append
 323        (cond ((or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
 324               '(".o" "~" ".bin" ".bak" ".obj" ".map"
 325                 ".a" ".ln" ".blg" ".bbl"))
 326              ((eq system-type 'vax-vms)
 327               '(".obj" ".exe" ".bin" ".lbin" ".sbin"
 328                 ".brn" ".rnt" ".mem" ".lni" ".lis"
 329                 ".olb" ".tlb" ".mlb" ".hlb"))
 330              (t
 331               '(".o" "~" ".bin" ".lbin" ".fasl" ".ufsl"
 332                 ".a" ".ln" ".blg" ".bbl")))
 333        '(".elc" ".lof"
 334          ".glo" ".idx" ".lot"
 335          ;; TeX-related
 336          ".dvi" ".fmt" ".tfm" ".pdf"
 337          ;; Java compiled
 338          ".class"
 339          ;; Clisp
 340          ".fas" ".lib"
 341          ;; CMUCL
 342          ".x86f" ".sparcf"
 343          ;; Texinfo-related
 344          ".toc" ".log" ".aux"
 345          ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"
 346          ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs")))
 347
 348 (setq debug-ignored-errors
 349       '(beginning-of-line beginning-of-buffer end-of-line
 350         end-of-buffer end-of-file buffer-read-only
 351         file-supersession
 352         "^Previous command was not a yank$"
 353         "^Minibuffer window is not active$"
 354         "^End of history; no next item$"
 355         "^Beginning of history; no preceding item$"
 356         "^No recursive edit is in progress$"
 357         "^Changes to be undone are outside visible portion of buffer$"
 358         "^No undo information in this buffer$"
 359         "^No further undo information$"
 360         "^Save not confirmed$"
 361         "^Recover-file cancelled\\.$"
 362         "^Cannot switch buffers in a dedicated window$"
 363
 364         ;; comint
 365         "^Not at command line$"
 366         "^Empty input ring$"
 367         "^No history$"
 368         "^Not found$";; To common?
 369         "^Current buffer has no process$"
 370
 371         ;; dabbrev
 372         "^No dynamic expansion for .* found$"
 373         "^No further dynamic expansion for .* found$"
 374         "^No possible abbreviation preceding point$"
 375
 376         ;; Completion
 377         "^To complete, the point must be after a symbol at least [0-9]* character long\\.$"
 378         "^The string \".*\" is too short to be saved as a completion\\.$"
 379
 380         ;; Compile
 381         "^No more errors\\( yet\\|\\)$"
 382
 383         ;; Gnus
 384         "^NNTP: Connection closed\\.$"
 385
 386         ;; info
 387         "^Node has no Previous$"
 388         "^No menu in this node$"
 389         "^Node has no Next$"
 390         "^No \".*\" in index$"
 391
 392         ;; imenu
 393         "^No items suitable for an index found in this buffer\\.$"
 394         "^This buffer cannot use `imenu-default-create-index-function'$"
 395         "^The mode `.*' does not support Imenu$"
 396
 397         ;; ispell
 398         "^No word found to check!$"
 399
 400         ;; mh-e
 401         "^Cursor not pointing to message$"
 402         "^There is no other window$"
 403
 404         ;; man
 405         "^No manpage [0-9]* found$"
 406         "^Can't find the .* manpage$"
 407
 408         ;; etags
 409         "^No tags table in use; use .* to select one$"
 410         "^There is no default tag$"
 411         "^No previous tag locations$"
 412         "^File .* is not a valid tags table$"
 413         "^No \\(more \\|\\)tags \\(matching\\|containing\\) "
 414         "^Rerun etags: `.*' not found in "
 415         "^All files processed$"
 416         "^No .* or .* in progress$"
 417         "^File .* not in current tags tables$"
 418         "^No tags table loaded"
 419         "^Nothing to complete$"
 420
 421         ;; ediff
 422         "^Errors in diff output. Diff output is in "
 423         "^Hmm... I don't see an Ediff command around here...$"
 424         "^Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer$"
 425         ": This command runs in Ediff Control Buffer only!$"
 426         ": Invalid op in ediff-check-version$"
 427         "^ediff-shrink-window-C can be used only for merging jobs$"
 428         "^Lost difference info on these directories$"
 429         "^This command is inapplicable in the present context$"
 430         "^This session group has no parent$"
 431         "^Can't hide active session, $"
 432         "^Ediff: something wrong--no multiple diffs buffer$"
 433         "^Can't make context diff for Session $"
 434         "^The patch buffer wasn't found$"
 435         "^Aborted$"
 436         "^This Ediff session is not part of a session group$"
 437         "^No active Ediff sessions or corrupted session registry$"
 438         "^No session info in this line$"
 439         "^`.*' is not an ordinary file$"
 440         "^Patch appears to have failed$"
 441         "^Recomputation of differences cancelled$"
 442         "^No fine differences in this mode$"
 443         "^Lost connection to ancestor buffer...sorry$"
 444         "^Not merging with ancestor$"
 445         "^Don't know how to toggle read-only in buffer "
 446         "Emacs is not running as a window application$"
 447         "^This command makes sense only when merging with an ancestor$"
 448         "^At end of the difference list$"
 449         "^At beginning of the difference list$"
 450         "^Nothing saved for diff .* in buffer "
 451         "^Buffer is out of sync for file "
 452         "^Buffer out of sync for file "
 453         "^Output from `diff' not found$"
 454         "^You forgot to specify a region in buffer "
 455         "^All right. Make up your mind and come back...$"
 456         "^Current buffer is not visiting any file$"
 457         "^Failed to retrieve revision: $"
 458         "^Can't determine display width.$"
 459         "^File `.*' does not exist or is not readable$"
 460         "^File `.*' is a directory$"
 461         "^Buffer .* doesn't exist$"
 462         "^Directories . and . are the same: "
 463         "^Directory merge aborted$"
 464         "^Merge of directory revisions aborted$"
 465         "^Buffer .* doesn't exist$"
 466         "^There is no file to merge$"
 467         "^Version control package .*.el not found. Use vc.el instead$"
 468
 469         ;; cus-edit
 470         "^No user options have changed defaults in recent Emacs versions$"
 471
 472         ;; BBDB
 473         "^no previous record$"
 474         "^no next record$"))
 475
 476
 477 (make-variable-buffer-local 'indent-tabs-mode)
 478
 479 ;; We have base64 functions built in now.
 480 (add-to-list 'features 'base64)
 481
 482 (define-key esc-map "\t" 'complete-symbol)
 483
 484 (defun complete-symbol (arg) "\
 485 Perform tags completion on the text around point.
 486 Completes to the set of names listed in the current tags table.
 487 The string to complete is chosen in the same way as the default
 488 for \\[find-tag] (which see).
 489
 490 With a prefix argument, this command does completion within
 491 the collection of symbols listed in the index of the manual for the
 492 language you are using."
 493   (interactive "P")
 494   (if arg
 495       (info-complete-symbol)
 496     (if (fboundp 'complete-tag)
 497         (complete-tag)
 498       ;; Don't autoload etags if we have no tags table.
 499       (error (substitute-command-keys
 500               "No tags table loaded; use \\[visit-tags-table] to load one")))))
 501
 502 ;; Reduce total amount of space we must allocate during this function
 503 ;; that we will not need to keep permanently.
 504 (garbage-collect)
 505 \f
 506 ;; Make all multibyte characters self-insert.
 507 (let ((l (generic-character-list))
 508       (table (nth 1 global-map)))
 509   (while l
 510     (set-char-table-default table (car l) 'self-insert-command)
 511     (setq l (cdr l))))
 512
 513 (setq help-event-list '(help f1))
 514
 515 (make-variable-buffer-local 'minor-mode-overriding-map-alist)
 516
 517 ;These commands are defined in editfns.c
 518 ;but they are not assigned to keys there.
 519 (put 'narrow-to-region 'disabled t)
 520 (define-key ctl-x-map "nn" 'narrow-to-region)
 521 (define-key ctl-x-map "nw" 'widen)
 522 ;; (define-key ctl-x-map "n" 'narrow-to-region)
 523 ;; (define-key ctl-x-map "w" 'widen)
 524
 525 (define-key global-map "\C-j" 'newline-and-indent)
 526 (define-key global-map "\C-m" 'newline)
 527 (define-key global-map "\C-o" 'open-line)
 528 (define-key esc-map "\C-o" 'split-line)
 529 (define-key global-map "\C-q" 'quoted-insert)
 530 (define-key esc-map "^" 'delete-indentation)
 531 (define-key esc-map "\\" 'delete-horizontal-space)
 532 (define-key esc-map "m" 'back-to-indentation)
 533 (define-key ctl-x-map "\C-o" 'delete-blank-lines)
 534 (define-key esc-map " " 'just-one-space)
 535 (define-key esc-map "z" 'zap-to-char)
 536 (define-key esc-map "=" 'count-lines-region)
 537 (define-key ctl-x-map "=" 'what-cursor-position)
 538 (define-key esc-map ":" 'eval-expression)
 539 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
 540 (define-key esc-map "\M-:" 'eval-expression)
 541 ;; Changed from C-x ESC so that function keys work following C-x.
 542 (define-key ctl-x-map "\e\e" 'repeat-complex-command)
 543 ;; New binding analogous to M-:.
 544 (define-key ctl-x-map "\M-:" 'repeat-complex-command)
 545 (define-key ctl-x-map "u" 'advertised-undo)
 546 ;; Many people are used to typing C-/ on X terminals and getting C-_.
 547 (define-key global-map [?\C-/] 'undo)
 548 (define-key global-map "\C-_" 'undo)
 549 (define-key esc-map "!" 'shell-command)
 550 (define-key esc-map "|" 'shell-command-on-region)
 551
 552 ;; This is an experiment--make up and down arrows do history.
 553 (define-key minibuffer-local-map [up] 'previous-history-element)
 554 (define-key minibuffer-local-map [down] 'next-history-element)
 555 (define-key minibuffer-local-ns-map [up] 'previous-history-element)
 556 (define-key minibuffer-local-ns-map [down] 'next-history-element)
 557 (define-key minibuffer-local-completion-map [up] 'previous-history-element)
 558 (define-key minibuffer-local-completion-map [down] 'next-history-element)
 559 (define-key minibuffer-local-must-match-map [up] 'previous-history-element)
 560 (define-key minibuffer-local-must-match-map [down] 'next-history-element)
 561
 562 (define-key global-map "\C-u" 'universal-argument)
 563 (let ((i ?0))
 564   (while (<= i ?9)
 565     (define-key esc-map (char-to-string i) 'digit-argument)
 566     (setq i (1+ i))))
 567 (define-key esc-map "-" 'negative-argument)
 568 ;; Define control-digits.
 569 (let ((i ?0))
 570   (while (<= i ?9)
 571     (define-key global-map (read (format "[?\\C-%c]" i)) 'digit-argument)
 572     (setq i (1+ i))))
 573 (define-key global-map [?\C--] 'negative-argument)
 574 ;; Define control-meta-digits.
 575 (let ((i ?0))
 576   (while (<= i ?9)
 577     (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument)
 578     (setq i (1+ i))))
 579 (define-key global-map [?\C-\M--] 'negative-argument)
 580
 581 (define-key global-map "\C-k" 'kill-line)
 582 (define-key global-map "\C-w" 'kill-region)
 583 (define-key esc-map "w" 'kill-ring-save)
 584 (define-key esc-map "\C-w" 'append-next-kill)
 585 (define-key global-map "\C-y" 'yank)
 586 (define-key esc-map "y" 'yank-pop)
 587
 588 ;; (define-key ctl-x-map "a" 'append-to-buffer)
 589
 590 (define-key global-map "\C-@" 'set-mark-command)
 591 ;; Many people are used to typing C-SPC and getting C-@.
 592 (define-key global-map [?\C- ] 'set-mark-command)
 593 (define-key ctl-x-map "\C-x" 'exchange-point-and-mark)
 594 (define-key ctl-x-map "\C-@" 'pop-global-mark)
 595 (define-key ctl-x-map [?\C- ] 'pop-global-mark)
 596
 597 (define-key global-map "\C-n" 'next-line)
 598 (define-key global-map "\C-p" 'previous-line)
 599 (define-key ctl-x-map "\C-n" 'set-goal-column)
 600
 601 ;;(defun function-key-error ()
 602 ;;  (interactive)
 603 ;;  (error "That function key is not bound to anything."))
 604
 605 (define-key global-map [menu] 'execute-extended-command)
 606 (define-key global-map [find] 'search-forward)
 607
 608 ;; natural bindings for terminal keycaps --- defined in X keysym order
 609 (define-key global-map [home]           'beginning-of-buffer)
 610 (define-key global-map [M-home]         'beginning-of-buffer-other-window)
 611 (define-key global-map [left]           'backward-char)
 612 (define-key global-map [up]             'previous-line)
 613 (define-key global-map [right]          'forward-char)
 614 (define-key global-map [down]           'next-line)
 615 (define-key global-map [prior]          'scroll-down)
 616 (define-key global-map [next]           'scroll-up)
 617 (define-key global-map [C-up]           'backward-paragraph)
 618 (define-key global-map [C-down]         'forward-paragraph)
 619 (define-key global-map [C-prior]        'scroll-right)
 620 (define-key global-map [C-next]         'scroll-left)
 621 (define-key global-map [M-next]         'scroll-other-window)
 622 (define-key global-map [M-prior]        'scroll-other-window-down)
 623 (define-key global-map [end]            'end-of-buffer)
 624 (define-key global-map [M-end]          'end-of-buffer-other-window)
 625 (define-key global-map [begin]          'beginning-of-buffer)
 626 (define-key global-map [M-begin]        'beginning-of-buffer-other-window)
 627 ;; (define-key global-map [select]      'function-key-error)
 628 ;; (define-key global-map [print]       'function-key-error)
 629 (define-key global-map [execute]        'execute-extended-command)
 630 (define-key global-map [insert]         'overwrite-mode)
 631 (define-key global-map [C-insert]       'kill-ring-save)
 632 (define-key global-map [S-insert]       'yank)
 633 (define-key global-map [undo]           'undo)
 634 (define-key global-map [redo]           'repeat-complex-command)
 635 ;; (define-key global-map [clearline]   'function-key-error)
 636 (define-key global-map [insertline]     'open-line)
 637 (define-key global-map [deleteline]     'kill-line)
 638 ;; (define-key global-map [insertchar]  'function-key-error)
 639 (define-key global-map [deletechar]     'delete-char)
 640 ;; (define-key global-map [backtab]     'function-key-error)
 641 ;; (define-key global-map [f1]          'function-key-error)
 642 ;; (define-key global-map [f2]          'function-key-error)
 643 ;; (define-key global-map [f3]          'function-key-error)
 644 ;; (define-key global-map [f4]          'function-key-error)
 645 ;; (define-key global-map [f5]          'function-key-error)
 646 ;; (define-key global-map [f6]          'function-key-error)
 647 ;; (define-key global-map [f7]          'function-key-error)
 648 ;; (define-key global-map [f8]          'function-key-error)
 649 ;; (define-key global-map [f9]          'function-key-error)
 650 ;; (define-key global-map [f10]         'function-key-error)
 651 ;; (define-key global-map [f11]         'function-key-error)
 652 ;; (define-key global-map [f12]         'function-key-error)
 653 ;; (define-key global-map [f13]         'function-key-error)
 654 ;; (define-key global-map [f14]         'function-key-error)
 655 ;; (define-key global-map [f15]         'function-key-error)
 656 ;; (define-key global-map [f16]         'function-key-error)
 657 ;; (define-key global-map [f17]         'function-key-error)
 658 ;; (define-key global-map [f18]         'function-key-error)
 659 ;; (define-key global-map [f19]         'function-key-error)
 660 ;; (define-key global-map [f20]         'function-key-error)
 661 ;; (define-key global-map [f21]         'function-key-error)
 662 ;; (define-key global-map [f22]         'function-key-error)
 663 ;; (define-key global-map [f23]         'function-key-error)
 664 ;; (define-key global-map [f24]         'function-key-error)
 665 ;; (define-key global-map [f25]         'function-key-error)
 666 ;; (define-key global-map [f26]         'function-key-error)
 667 ;; (define-key global-map [f27]         'function-key-error)
 668 ;; (define-key global-map [f28]         'function-key-error)
 669 ;; (define-key global-map [f29]         'function-key-error)
 670 ;; (define-key global-map [f30]         'function-key-error)
 671 ;; (define-key global-map [f31]         'function-key-error)
 672 ;; (define-key global-map [f32]         'function-key-error)
 673 ;; (define-key global-map [f33]         'function-key-error)
 674 ;; (define-key global-map [f34]         'function-key-error)
 675 ;; (define-key global-map [f35]         'function-key-error)
 676 ;; (define-key global-map [kp-backtab]  'function-key-error)
 677 ;; (define-key global-map [kp-space]    'function-key-error)
 678 ;; (define-key global-map [kp-tab]              'function-key-error)
 679 ;; (define-key global-map [kp-enter]    'function-key-error)
 680 ;; (define-key global-map [kp-f1]               'function-key-error)
 681 ;; (define-key global-map [kp-f2]               'function-key-error)
 682 ;; (define-key global-map [kp-f3]               'function-key-error)
 683 ;; (define-key global-map [kp-f4]               'function-key-error)
 684 ;; (define-key global-map [kp-multiply] 'function-key-error)
 685 ;; (define-key global-map [kp-add]              'function-key-error)
 686 ;; (define-key global-map [kp-separator]        'function-key-error)
 687 ;; (define-key global-map [kp-subtract] 'function-key-error)
 688 ;; (define-key global-map [kp-decimal]  'function-key-error)
 689 ;; (define-key global-map [kp-divide]   'function-key-error)
 690 ;; (define-key global-map [kp-0]                'function-key-error)
 691 ;; (define-key global-map [kp-1]                'function-key-error)
 692 ;; (define-key global-map [kp-2]                'function-key-error)
 693 ;; (define-key global-map [kp-3]                'function-key-error)
 694 ;; (define-key global-map [kp-4]                'function-key-error)
 695 ;; (define-key global-map [kp-5]                'recenter)
 696 ;; (define-key global-map [kp-6]                'function-key-error)
 697 ;; (define-key global-map [kp-7]                'function-key-error)
 698 ;; (define-key global-map [kp-8]                'function-key-error)
 699 ;; (define-key global-map [kp-9]                'function-key-error)
 700 ;; (define-key global-map [kp-equal]    'function-key-error)
 701
 702 ;; X11R6 distinguishes these keys from the non-kp keys.
 703 ;; Make them behave like the non-kp keys unless otherwise bound.
 704 (define-key function-key-map [kp-home] [home])
 705 (define-key function-key-map [kp-left] [left])
 706 (define-key function-key-map [kp-up] [up])
 707 (define-key function-key-map [kp-right] [right])
 708 (define-key function-key-map [kp-down] [down])
 709 (define-key function-key-map [kp-prior] [prior])
 710 (define-key function-key-map [kp-next] [next])
 711 (define-key function-key-map [M-kp-next] [M-next])
 712 (define-key function-key-map [kp-end] [end])
 713 (define-key function-key-map [kp-begin] [begin])
 714 (define-key function-key-map [kp-insert] [insert])
 715 (define-key function-key-map [kp-delete] [delete])
 716
 717 (define-key global-map [mouse-movement] 'ignore)
 718
 719 (define-key global-map "\C-t" 'transpose-chars)
 720 (define-key esc-map "t" 'transpose-words)
 721 (define-key esc-map "\C-t" 'transpose-sexps)
 722 (define-key ctl-x-map "\C-t" 'transpose-lines)
 723
 724 (define-key esc-map ";" 'indent-for-comment)
 725 (define-key esc-map "j" 'indent-new-comment-line)
 726 (define-key esc-map "\C-j" 'indent-new-comment-line)
 727 (define-key ctl-x-map ";" 'set-comment-column)
 728 (define-key ctl-x-map "f" 'set-fill-column)
 729 (define-key ctl-x-map "$" 'set-selective-display)
 730
 731 (define-key esc-map "@" 'mark-word)
 732 (define-key esc-map "f" 'forward-word)
 733 (define-key esc-map "b" 'backward-word)
 734 (define-key esc-map "d" 'kill-word)
 735 (define-key esc-map "\177" 'backward-kill-word)
 736
 737 (define-key esc-map "<" 'beginning-of-buffer)
 738 (define-key esc-map ">" 'end-of-buffer)
 739 (define-key ctl-x-map "h" 'mark-whole-buffer)
 740 (define-key esc-map "\\" 'delete-horizontal-space)
 741
 742 (defalias 'mode-specific-command-prefix (make-sparse-keymap))
 743 (defvar mode-specific-map (symbol-function 'mode-specific-command-prefix)
 744   "Keymap for characters following C-c.")
 745 (define-key global-map "\C-c" 'mode-specific-command-prefix)
 746
 747 (global-set-key [M-right]  'forward-word)
 748 (global-set-key [M-left]   'backward-word)
 749 ;; ilya@math.ohio-state.edu says these bindings are standard on PC editors.
 750 (global-set-key [C-right]  'forward-word)
 751 (global-set-key [C-left]   'backward-word)
 752 ;; This is not quite compatible, but at least is analogous
 753 (global-set-key [C-delete]   'backward-kill-word)
 754 ;; This is "move to the clipboard", or as close as we come.
 755 (global-set-key [S-delete] 'kill-region)
 756
 757 (define-key esc-map "\C-f" 'forward-sexp)
 758 (define-key esc-map "\C-b" 'backward-sexp)
 759 (define-key esc-map "\C-u" 'backward-up-list)
 760 (define-key esc-map "\C-@" 'mark-sexp)
 761 (define-key esc-map [?\C-\ ] 'mark-sexp)
 762 (define-key esc-map "\C-d" 'down-list)
 763 (define-key esc-map "\C-k" 'kill-sexp)
 764 (define-key global-map [C-M-delete] 'backward-kill-sexp)
 765 (define-key global-map [C-M-backspace] 'backward-kill-sexp)
 766 (define-key esc-map "\C-n" 'forward-list)
 767 (define-key esc-map "\C-p" 'backward-list)
 768 (define-key esc-map "\C-a" 'beginning-of-defun)
 769 (define-key esc-map "\C-e" 'end-of-defun)
 770 (define-key esc-map "\C-h" 'mark-defun)
 771 (define-key ctl-x-map "nd" 'narrow-to-defun)
 772 (define-key esc-map "(" 'insert-parentheses)
 773 (define-key esc-map ")" 'move-past-close-and-reindent)
 774
 775 (define-key ctl-x-map "\C-e" 'eval-last-sexp)
 776
 777 (define-key ctl-x-map "m" 'compose-mail)
 778 (define-key ctl-x-4-map "m" 'compose-mail-other-window)
 779 (define-key ctl-x-5-map "m" 'compose-mail-other-frame)
 780 \f
 781 (define-key ctl-x-map "r\C-@" 'point-to-register)
 782 (define-key ctl-x-map [?r ?\C-\ ] 'point-to-register)
 783 (define-key ctl-x-map "r " 'point-to-register)
 784 (define-key ctl-x-map "rj" 'jump-to-register)
 785 (define-key ctl-x-map "rs" 'copy-to-register)
 786 (define-key ctl-x-map "rx" 'copy-to-register)
 787 (define-key ctl-x-map "ri" 'insert-register)
 788 (define-key ctl-x-map "rg" 'insert-register)
 789 (define-key ctl-x-map "rr" 'copy-rectangle-to-register)
 790 (define-key ctl-x-map "rn" 'number-to-register)
 791 (define-key ctl-x-map "r+" 'increment-register)
 792 (define-key ctl-x-map "rc" 'clear-rectangle)
 793 (define-key ctl-x-map "rk" 'kill-rectangle)
 794 (define-key ctl-x-map "rd" 'delete-rectangle)
 795 (define-key ctl-x-map "ry" 'yank-rectangle)
 796 (define-key ctl-x-map "ro" 'open-rectangle)
 797 (define-key ctl-x-map "rt" 'string-rectangle)
 798 (define-key ctl-x-map "rw" 'window-configuration-to-register)
 799 (define-key ctl-x-map "rf" 'frame-configuration-to-register)
 800
 801 ;; These key bindings are deprecated; use the above C-x r map instead.
 802 ;; We use these aliases so \[...] will show the C-x r bindings instead.
 803 (defalias 'point-to-register-compatibility-binding 'point-to-register)
 804 (defalias 'jump-to-register-compatibility-binding 'jump-to-register)
 805 (defalias 'copy-to-register-compatibility-binding 'copy-to-register)
 806 (defalias 'insert-register-compatibility-binding 'insert-register)
 807 (define-key ctl-x-map "/" 'point-to-register-compatibility-binding)
 808 (define-key ctl-x-map "j" 'jump-to-register-compatibility-binding)
 809 (define-key ctl-x-map "x" 'copy-to-register-compatibility-binding)
 810 (define-key ctl-x-map "g" 'insert-register-compatibility-binding)
 811 ;; (define-key ctl-x-map "r" 'copy-rectangle-to-register)
 812
 813 (define-key esc-map "q" 'fill-paragraph)
 814 ;; (define-key esc-map "g" 'fill-region)
 815 (define-key ctl-x-map "." 'set-fill-prefix)
 816 \f
 817 (define-key esc-map "{" 'backward-paragraph)
 818 (define-key esc-map "}" 'forward-paragraph)
 819 (define-key esc-map "h" 'mark-paragraph)
 820 (define-key esc-map "a" 'backward-sentence)
 821 (define-key esc-map "e" 'forward-sentence)
 822 (define-key esc-map "k" 'kill-sentence)
 823 (define-key ctl-x-map "\177" 'backward-kill-sentence)
 824
 825 (define-key ctl-x-map "[" 'backward-page)
 826 (define-key ctl-x-map "]" 'forward-page)
 827 (define-key ctl-x-map "\C-p" 'mark-page)
 828 (define-key ctl-x-map "l" 'count-lines-page)
 829 (define-key ctl-x-map "np" 'narrow-to-page)
 830 ;; (define-key ctl-x-map "p" 'narrow-to-page)
 831 \f
 832 (define-key ctl-x-map "al" 'add-mode-abbrev)
 833 (define-key ctl-x-map "a\C-a" 'add-mode-abbrev)
 834 (define-key ctl-x-map "ag" 'add-global-abbrev)
 835 (define-key ctl-x-map "a+" 'add-mode-abbrev)
 836 (define-key ctl-x-map "aig" 'inverse-add-global-abbrev)
 837 (define-key ctl-x-map "ail" 'inverse-add-mode-abbrev)
 838 ;; (define-key ctl-x-map "a\C-h" 'inverse-add-global-abbrev)
 839 (define-key ctl-x-map "a-" 'inverse-add-global-abbrev)
 840 (define-key ctl-x-map "ae" 'expand-abbrev)
 841 (define-key ctl-x-map "a'" 'expand-abbrev)
 842 ;; (define-key ctl-x-map "\C-a" 'add-mode-abbrev)
 843 ;; (define-key ctl-x-map "\+" 'add-global-abbrev)
 844 ;; (define-key ctl-x-map "\C-h" 'inverse-add-mode-abbrev)
 845 ;; (define-key ctl-x-map "\-" 'inverse-add-global-abbrev)
 846 (define-key esc-map "'" 'abbrev-prefix-mark)
 847 (define-key ctl-x-map "'" 'expand-abbrev)
 848
 849 (define-key ctl-x-map "z" 'repeat)
 850
 851 ;;; Don't compile this file; it contains no large function definitions.
 852 ;;; Don't look for autoload cookies in this file.
 853 ;;; Local Variables:
 854 ;;; no-byte-compile: t
 855 ;;; no-update-autoloads: t
 856 ;;; End:
 857
 858 ;;; bindings.el ends here