Mercurial > emacs

changeset 16164:33c5b9ccc216

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Sep 1996 19:05:36 +0000
parents 3ec903b6bcd8
children a95e975275d8
files lisp/bindings.el
diffstat 1 files changed, 550 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/bindings.el	Wed Sep 11 19:05:36 1996 +0000
@@ -0,0 +1,550 @@
+;;; bindings.el --- define standard key bindings and some variables.
+
+;; Copyright (C) 1985,86,87,92,93,94,95,96 Free Software Foundation, Inc.
+
+;; Maintainer: FSF
+;; Keywords: internal
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+;;; Special formatting conventions are used in this file!
+;;;
+;;; a backslash-newline is used at the beginning of a documentation string
+;;; when that string should be stored in the file etc/DOCnnn, not in core.
+;;;
+;;; Such strings read into Lisp as numbers (during the pure-loading phase).
+;;;
+;;; But you must obey certain rules to make sure the string is understood
+;;; and goes into etc/DOCnnn properly.  Otherwise, the string will not go
+;;; anywhere!
+;;;
+;;; The doc string must appear in the standard place in a call to
+;;; defun, autoload, defvar or defconst.  No Lisp macros are recognized.
+;;; The open-paren starting the definition must appear in column 0.
+;;;
+;;; In defvar and defconst, there is an additional rule:
+;;; The double-quote that starts the string must be on the same
+;;; line as the defvar or defconst.
+;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+;;; Code:
+
+;;; This code was NOT generated by autoload.el.
+
+(defconst mode-line-buffer-identification (purecopy '("%F: %12b"))
+  "Mode-line control for identifying the buffer being displayed.
+Its default value is (\"%F: %12b\").  Under X, `%F' is replaced with `Emacs'.
+Major modes that edit things other than ordinary files may change this
+\(e.g. Info, Dired,...)")
+
+(make-variable-buffer-local 'mode-line-buffer-identification)
+
+(defconst mode-line-process nil
+  "Mode-line control for displaying info on process status.
+Normally nil in most modes, since there is no process to display.")
+
+(make-variable-buffer-local 'mode-line-process)
+
+(defconst mode-line-modified (purecopy '("--%1*%1+-"))
+  "Mode-line control for displaying whether current buffer is modified.")
+
+(make-variable-buffer-local 'mode-line-modified)
+
+(setq-default mode-line-format
+  (list (purecopy "")
+   'mode-line-modified
+   'mode-line-buffer-identification
+   (purecopy "   ")
+   'global-mode-string
+   (purecopy "   %[(")
+   'mode-name 'mode-line-process 'minor-mode-alist
+   (purecopy "%n")
+   (purecopy ")%]--")
+   (purecopy '(line-number-mode "L%l--"))
+   (purecopy '(column-number-mode "C%c--"))
+   (purecopy '(-3 . "%p"))
+   (purecopy "-%-")))
+
+(defvar minor-mode-alist nil "\
+Alist saying how to show minor modes in the mode line.
+Each element looks like (VARIABLE STRING);
+STRING is included in the mode line iff VARIABLE's value is non-nil.
+
+Actually, STRING need not be a string; any possible mode-line element
+is okay.  See `mode-line-format'.")
+(setq minor-mode-alist (mapcar 'purecopy
+			       '((abbrev-mode " Abbrev")
+				 (overwrite-mode overwrite-mode)
+				 (auto-fill-function " Fill")
+				 ;; not really a minor mode...
+				 (defining-kbd-macro " Def"))))
+
+;; These variables are used by autoloadable packages.
+;; They are defined here so that they do not get overridden
+;; by the loading of those packages.
+
+;; Names in directory that end in one of these
+;; are ignored in completion,
+;; making it more likely you will get a unique match.
+(setq completion-ignored-extensions
+      (cond ((or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
+	     '(".o" ".elc" "~" ".bin" ".bak" ".obj" ".map"
+	       ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
+	       ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"))
+	    ((eq system-type 'vax-vms)
+	     '(".obj" ".elc" ".exe" ".bin" ".lbin" ".sbin"
+	       ".dvi" ".toc" ".log" ".aux"
+	       ".lof" ".brn" ".rnt" ".mem" ".lni" ".lis"
+	       ".olb" ".tlb" ".mlb" ".hlb" ".glo" ".idx" ".lot" ".fmt"))
+	    (t
+	     '(".o" ".elc" "~" ".bin" ".lbin" ".fasl"
+	       ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
+	       ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"))))
+
+(setq debug-ignored-errors
+      '(beginning-of-line beginning-of-buffer end-of-line
+	end-of-buffer end-of-file buffer-read-only
+      	"^Previous command was not a yank$"
+	"^Minibuffer window is not active$"
+	"^End of history; no next item$"
+	"^Beginning of history; no preceding item$"
+	"^No recursive edit is in progress$"
+	"^Changes to be undone are outside visible portion of buffer$"
+	"^No undo information in this buffer$"
+	"^No further undo information$"
+	"^Save not confirmed$"
+	"^Recover-file cancelled\\.$"
+
+	;; comint
+	"^Not at command line$"
+	"^Empty input ring$"
+	"^No history$"
+	"^Not found$";; To common?
+	"^Current buffer has no process$"
+
+	;; dabbrev
+	"^No dynamic expansion for \".*\" found\\.$"
+	"^No further dynamic expansions for \".*\" found\\.$"
+	"^No further dynamic expansions for `.*' found$"
+
+	;; Completion
+	"^To complete, the point must be after a symbol at least [0-9]* character long\\.$"
+	"^The string \".*\" is too short to be saved as a completion\\.$"
+
+	;; Compile
+	"^No more errors\\( yet\\|\\)$"
+
+	;; Gnus
+	"^NNTP: Connection closed\\.$"
+
+	;; info
+	"^Node has no Previous$"
+	"^No \".*\" in index$"
+
+	;; imenu
+	"^No items suitable for an index found in this buffer\\.$"
+	"^The mode \".*\" does not take full advantage of imenu\\.el yet\\.$"
+
+	;; ispell
+	"^No word found to check!$"
+
+	;; mh-e
+	"^Cursor not pointing to message$"
+	"^There is no other window$"
+
+	;; man
+	"^No manpage [0-9]* found$"
+
+	;; etags
+	"^No tags table in use!  Use .* to select one\\.$"
+	"^There is no default tag$"
+	"^No previous tag locations$"
+	"^File .* is not a valid tags table$"
+	"^No \\(more \\|\\)tags \\(matching\\|containing\\) "
+	"^Rerun etags: `.*' not found in "
+	"^All files processed\\.$"
+	"^No .* or .* in progress.$"
+	"^File .* not in current tags tables$"
+	"No tags table loaded."
+	"^Nothing to complete$"
+
+	;; BBDB
+	"^no previous record$"
+	"^no next record$"))
+
+
+(make-variable-buffer-local 'indent-tabs-mode)
+
+;; This is here to avoid autoloading etags on M-TAB.
+;; M-x visit-tags-table will autoload etags, which will redefine complete-tag.
+(defun complete-tag ()
+  "Perform tags completion on the text around point.
+Completes to the set of names listed in the current tags table.
+The string to complete is chosen in the same way as the default
+for \\[find-tag] (which see)."
+  (interactive)
+  (error (substitute-command-keys
+	  "No tags table loaded.  Try \\[visit-tags-table].")))
+
+;; Reduce total amount of space we must allocate during this function
+;; that we will not need to keep permanently.
+(garbage-collect)
+
+(define-key ctl-x-map "n" (make-sparse-keymap))
+(define-key ctl-x-map "r" (make-sparse-keymap))
+
+(setq help-event-list '(help f1))
+
+;These commands are defined in editfns.c
+;but they are not assigned to keys there.
+(put 'narrow-to-region 'disabled t)
+(define-key ctl-x-map "nn" 'narrow-to-region)
+(define-key ctl-x-map "nw" 'widen)
+;; (define-key ctl-x-map "n" 'narrow-to-region)
+;; (define-key ctl-x-map "w" 'widen)
+
+(define-key global-map "\C-j" 'newline-and-indent)
+(define-key global-map "\C-m" 'newline)
+(define-key global-map "\C-o" 'open-line)
+(define-key esc-map "\C-o" 'split-line)
+(define-key global-map "\C-q" 'quoted-insert)
+(define-key esc-map "^" 'delete-indentation)
+(define-key esc-map "\\" 'delete-horizontal-space)
+(define-key esc-map "m" 'back-to-indentation)
+(define-key ctl-x-map "\C-o" 'delete-blank-lines)
+(define-key esc-map " " 'just-one-space)
+(define-key esc-map "z" 'zap-to-char)
+(define-key esc-map "=" 'count-lines-region)
+(define-key ctl-x-map "=" 'what-cursor-position)
+(define-key esc-map ":" 'eval-expression)
+;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.
+(define-key esc-map "\M-:" 'eval-expression)
+;; Changed from C-x ESC so that function keys work following C-x.
+(define-key ctl-x-map "\e\e" 'repeat-complex-command)
+;; New binding analogous to M-:.
+(define-key ctl-x-map "\M-:" 'repeat-complex-command)
+(define-key ctl-x-map "u" 'advertised-undo)
+;; Many people are used to typing C-/ on X terminals and getting C-_.
+(define-key global-map [?\C-/] 'undo)
+(define-key global-map "\C-_" 'undo)
+(define-key esc-map "!" 'shell-command)
+(define-key esc-map "|" 'shell-command-on-region)
+
+;; This is an experiment--make up and down arrows do history.
+(define-key minibuffer-local-map [up] 'previous-history-element)
+(define-key minibuffer-local-map [down] 'next-history-element)
+(define-key minibuffer-local-ns-map [up] 'previous-history-element)
+(define-key minibuffer-local-ns-map [down] 'next-history-element)
+(define-key minibuffer-local-completion-map [up] 'previous-history-element)
+(define-key minibuffer-local-completion-map [down] 'next-history-element)
+(define-key minibuffer-local-must-match-map [up] 'previous-history-element)
+(define-key minibuffer-local-must-match-map [down] 'next-history-element)
+
+(define-key global-map "\C-u" 'universal-argument)
+(let ((i ?0))
+  (while (<= i ?9)
+    (define-key esc-map (char-to-string i) 'digit-argument)
+    (setq i (1+ i))))
+(define-key esc-map "-" 'negative-argument)
+;; Define control-digits.
+(let ((i ?0))
+  (while (<= i ?9)
+    (define-key global-map (read (format "[?\\C-%c]" i)) 'digit-argument)
+    (setq i (1+ i))))
+(define-key global-map [?\C--] 'negative-argument)
+;; Define control-meta-digits.
+(let ((i ?0))
+  (while (<= i ?9)
+    (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument)
+    (setq i (1+ i))))
+(define-key global-map [?\C-\M--] 'negative-argument)
+
+(define-key global-map "\C-k" 'kill-line)
+(define-key global-map "\C-w" 'kill-region)
+(define-key esc-map "w" 'kill-ring-save)
+(define-key esc-map "\C-w" 'append-next-kill)
+(define-key global-map "\C-y" 'yank)
+(define-key esc-map "y" 'yank-pop)
+
+;; (define-key ctl-x-map "a" 'append-to-buffer)
+
+(define-key global-map "\C-@" 'set-mark-command)
+;; Many people are used to typing C-SPC and getting C-@.
+(define-key global-map [?\C-\ ] 'set-mark-command)
+(define-key ctl-x-map "\C-x" 'exchange-point-and-mark)
+(define-key ctl-x-map "\C-@" 'pop-global-mark)
+(define-key ctl-x-map [?\C-\ ] 'pop-global-mark)
+
+(define-key global-map "\C-n" 'next-line)
+(define-key global-map "\C-p" 'previous-line)
+(define-key ctl-x-map "\C-n" 'set-goal-column)
+
+;;(defun function-key-error ()
+;;  (interactive)
+;;  (error "That function key is not bound to anything."))
+
+(define-key global-map [menu] 'execute-extended-command)
+(define-key global-map [find] 'search-forward)
+
+;; natural bindings for terminal keycaps --- defined in X keysym order
+(define-key global-map [home]		'beginning-of-buffer)
+(define-key global-map [M-home]		'beginning-of-buffer-other-window)
+(define-key global-map [left]		'backward-char)
+(define-key global-map [up]		'previous-line)
+(define-key global-map [right]		'forward-char)
+(define-key global-map [down]		'next-line)
+(define-key global-map [prior]		'scroll-down)
+(define-key global-map [next]		'scroll-up)
+(define-key global-map [C-up]		'backward-paragraph)
+(define-key global-map [C-down]		'forward-paragraph)
+(define-key global-map [C-prior]	'scroll-right)
+(define-key global-map [C-next]		'scroll-left)
+(define-key global-map [M-next]		'scroll-other-window)
+(define-key global-map [M-prior]	'scroll-other-window-down)
+(define-key global-map [end]		'end-of-buffer)
+(define-key global-map [M-end]		'end-of-buffer-other-window)
+(define-key global-map [begin]		'beginning-of-buffer)
+(define-key global-map [M-begin]	'beginning-of-buffer-other-window)
+;; (define-key global-map [select]	'function-key-error)
+;; (define-key global-map [print]	'function-key-error)
+(define-key global-map [execute]	'execute-extended-command)
+(define-key global-map [insert]		'overwrite-mode)
+(define-key global-map [C-insert]	'kill-ring-save)
+(define-key global-map [S-insert]	'yank)
+(define-key global-map [undo]		'undo)
+(define-key global-map [redo]		'repeat-complex-command)
+;; (define-key global-map [clearline]	'function-key-error)
+(define-key global-map [insertline]	'open-line)
+(define-key global-map [deleteline]	'kill-line)
+;; (define-key global-map [insertchar]	'function-key-error)
+(define-key global-map [deletechar]	'delete-char)
+;; (define-key global-map [backtab]	'function-key-error)
+;; (define-key global-map [f1]		'function-key-error)
+;; (define-key global-map [f2]		'function-key-error)
+;; (define-key global-map [f3]		'function-key-error)
+;; (define-key global-map [f4]		'function-key-error)
+;; (define-key global-map [f5]		'function-key-error)
+;; (define-key global-map [f6]		'function-key-error)
+;; (define-key global-map [f7]		'function-key-error)
+;; (define-key global-map [f8]		'function-key-error)
+;; (define-key global-map [f9]		'function-key-error)
+;; (define-key global-map [f10]		'function-key-error)
+;; (define-key global-map [f11]		'function-key-error)
+;; (define-key global-map [f12]		'function-key-error)
+;; (define-key global-map [f13]		'function-key-error)
+;; (define-key global-map [f14]		'function-key-error)
+;; (define-key global-map [f15]		'function-key-error)
+;; (define-key global-map [f16]		'function-key-error)
+;; (define-key global-map [f17]		'function-key-error)
+;; (define-key global-map [f18]		'function-key-error)
+;; (define-key global-map [f19]		'function-key-error)
+;; (define-key global-map [f20]		'function-key-error)
+;; (define-key global-map [f21]		'function-key-error)
+;; (define-key global-map [f22]		'function-key-error)
+;; (define-key global-map [f23]		'function-key-error)
+;; (define-key global-map [f24]		'function-key-error)
+;; (define-key global-map [f25]		'function-key-error)
+;; (define-key global-map [f26]		'function-key-error)
+;; (define-key global-map [f27]		'function-key-error)
+;; (define-key global-map [f28]		'function-key-error)
+;; (define-key global-map [f29]		'function-key-error)
+;; (define-key global-map [f30]		'function-key-error)
+;; (define-key global-map [f31]		'function-key-error)
+;; (define-key global-map [f32]		'function-key-error)
+;; (define-key global-map [f33]		'function-key-error)
+;; (define-key global-map [f34]		'function-key-error)
+;; (define-key global-map [f35]		'function-key-error)
+;; (define-key global-map [kp-backtab]	'function-key-error)
+;; (define-key global-map [kp-space]	'function-key-error)
+;; (define-key global-map [kp-tab]		'function-key-error)
+;; (define-key global-map [kp-enter]	'function-key-error)
+;; (define-key global-map [kp-f1]		'function-key-error)
+;; (define-key global-map [kp-f2]		'function-key-error)
+;; (define-key global-map [kp-f3]		'function-key-error)
+;; (define-key global-map [kp-f4]		'function-key-error)
+;; (define-key global-map [kp-multiply]	'function-key-error)
+;; (define-key global-map [kp-add]		'function-key-error)
+;; (define-key global-map [kp-separator]	'function-key-error)
+;; (define-key global-map [kp-subtract]	'function-key-error)
+;; (define-key global-map [kp-decimal]	'function-key-error)
+;; (define-key global-map [kp-divide]	'function-key-error)
+;; (define-key global-map [kp-0]		'function-key-error)
+;; (define-key global-map [kp-1]		'function-key-error)
+;; (define-key global-map [kp-2]		'function-key-error)
+;; (define-key global-map [kp-3]		'function-key-error)
+;; (define-key global-map [kp-4]		'function-key-error)
+;; (define-key global-map [kp-5]		'recenter)
+;; (define-key global-map [kp-6]		'function-key-error)
+;; (define-key global-map [kp-7]		'function-key-error)
+;; (define-key global-map [kp-8]		'function-key-error)
+;; (define-key global-map [kp-9]		'function-key-error)
+;; (define-key global-map [kp-equal]	'function-key-error)
+
+;; X11R6 distinguishes these keys from the non-kp keys.
+;; Make them behave like the non-kp keys unless otherwise bound.
+(define-key function-key-map [kp-home] [home])
+(define-key function-key-map [kp-left] [left])
+(define-key function-key-map [kp-up] [up])
+(define-key function-key-map [kp-right] [right])
+(define-key function-key-map [kp-down] [down])
+(define-key function-key-map [kp-prior] [prior])
+(define-key function-key-map [kp-next] [next])
+(define-key function-key-map [M-kp-next] [M-next])
+(define-key function-key-map [kp-end] [end])
+(define-key function-key-map [kp-begin] [begin])
+(define-key function-key-map [kp-insert] [insert])
+(define-key function-key-map [kp-delete] [delete])
+
+(define-key global-map [mouse-movement] 'ignore)
+
+(define-key global-map "\C-t" 'transpose-chars)
+(define-key esc-map "t" 'transpose-words)
+(define-key esc-map "\C-t" 'transpose-sexps)
+(define-key ctl-x-map "\C-t" 'transpose-lines)
+
+(define-key esc-map ";" 'indent-for-comment)
+(define-key esc-map "j" 'indent-new-comment-line)
+(define-key esc-map "\C-j" 'indent-new-comment-line)
+(define-key ctl-x-map ";" 'set-comment-column)
+(define-key ctl-x-map "f" 'set-fill-column)
+(define-key ctl-x-map "$" 'set-selective-display)
+
+(define-key esc-map "@" 'mark-word)
+(define-key esc-map "f" 'forward-word)
+(define-key esc-map "b" 'backward-word)
+(define-key esc-map "d" 'kill-word)
+(define-key esc-map "\177" 'backward-kill-word)
+
+(define-key esc-map "<" 'beginning-of-buffer)
+(define-key esc-map ">" 'end-of-buffer)
+(define-key ctl-x-map "h" 'mark-whole-buffer)
+(define-key esc-map "\\" 'delete-horizontal-space)
+
+(defalias 'mode-specific-command-prefix (make-sparse-keymap))
+(defconst mode-specific-map (symbol-function 'mode-specific-command-prefix)
+  "Keymap for characters following C-c.")
+(define-key global-map "\C-c" 'mode-specific-command-prefix)
+
+(global-set-key [M-right]  'forward-word)
+(global-set-key [M-left]   'backward-word)
+;; ilya@math.ohio-state.edu says these bindings are standard on PC editors.
+(global-set-key [C-right]  'forward-word)
+(global-set-key [C-left]   'backward-word)
+;; This is not quite compatible, but at least is analogous
+(global-set-key [C-delete]   'backward-kill-word)
+;; This is "move to the clipboard", or as close as we come.
+(global-set-key [S-delete] 'kill-region)
+
+(define-key esc-map "\C-f" 'forward-sexp)
+(define-key esc-map "\C-b" 'backward-sexp)
+(define-key esc-map "\C-u" 'backward-up-list)
+(define-key esc-map "\C-@" 'mark-sexp)
+(define-key esc-map [?\C-\ ] 'mark-sexp)
+(define-key esc-map "\C-d" 'down-list)
+(define-key esc-map "\C-k" 'kill-sexp)
+(define-key global-map [C-M-delete] 'backward-kill-sexp)
+(define-key global-map [C-M-backspace] 'backward-kill-sexp)
+(define-key esc-map "\C-n" 'forward-list)
+(define-key esc-map "\C-p" 'backward-list)
+(define-key esc-map "\C-a" 'beginning-of-defun)
+(define-key esc-map "\C-e" 'end-of-defun)
+(define-key esc-map "\C-h" 'mark-defun)
+(define-key ctl-x-map "nd" 'narrow-to-defun)
+(define-key esc-map "(" 'insert-parentheses)
+(define-key esc-map ")" 'move-past-close-and-reindent)
+(define-key esc-map "\t" 'lisp-complete-symbol)
+
+(define-key ctl-x-map "\C-e" 'eval-last-sexp)
+
+(define-key ctl-x-map "r\C-@" 'point-to-register)
+(define-key ctl-x-map [?r ?\C-\ ] 'point-to-register)
+(define-key ctl-x-map "r " 'point-to-register)
+(define-key ctl-x-map "rj" 'jump-to-register)
+(define-key ctl-x-map "rs" 'copy-to-register)
+(define-key ctl-x-map "rx" 'copy-to-register)
+(define-key ctl-x-map "ri" 'insert-register)
+(define-key ctl-x-map "rg" 'insert-register)
+(define-key ctl-x-map "rr" 'copy-rectangle-to-register)
+(define-key ctl-x-map "rc" 'clear-rectangle)
+(define-key ctl-x-map "rk" 'kill-rectangle)
+(define-key ctl-x-map "rd" 'delete-rectangle)
+(define-key ctl-x-map "ry" 'yank-rectangle)
+(define-key ctl-x-map "ro" 'open-rectangle)
+(define-key ctl-x-map "rt" 'string-rectangle)
+(define-key ctl-x-map "rw" 'window-configuration-to-register)
+(define-key ctl-x-map "rf" 'frame-configuration-to-register)
+
+;; These key bindings are deprecated; use the above C-x r map instead.
+;; We use these aliases so \[...] will show the C-x r bindings instead.
+(defalias 'point-to-register-compatibility-binding 'point-to-register)
+(defalias 'jump-to-register-compatibility-binding 'jump-to-register)
+(defalias 'copy-to-register-compatibility-binding 'copy-to-register)
+(defalias 'insert-register-compatibility-binding 'insert-register)
+(define-key ctl-x-map "/" 'point-to-register-compatibility-binding)
+(define-key ctl-x-map "j" 'jump-to-register-compatibility-binding)
+(define-key ctl-x-map "x" 'copy-to-register-compatibility-binding)
+(define-key ctl-x-map "g" 'insert-register-compatibility-binding)
+;; (define-key ctl-x-map "r" 'copy-rectangle-to-register)
+
+(define-key esc-map "q" 'fill-paragraph)
+;; (define-key esc-map "g" 'fill-region)
+(define-key ctl-x-map "." 'set-fill-prefix)
+
+(define-key esc-map "{" 'backward-paragraph)
+(define-key esc-map "}" 'forward-paragraph)
+(define-key esc-map "h" 'mark-paragraph)
+(define-key esc-map "a" 'backward-sentence)
+(define-key esc-map "e" 'forward-sentence)
+(define-key esc-map "k" 'kill-sentence)
+(define-key ctl-x-map "\177" 'backward-kill-sentence)
+
+(define-key ctl-x-map "[" 'backward-page)
+(define-key ctl-x-map "]" 'forward-page)
+(define-key ctl-x-map "\C-p" 'mark-page)
+(define-key ctl-x-map "l" 'count-lines-page)
+(define-key ctl-x-map "np" 'narrow-to-page)
+;; (define-key ctl-x-map "p" 'narrow-to-page)
+
+(define-key ctl-x-map "al" 'add-mode-abbrev)
+(define-key ctl-x-map "a\C-a" 'add-mode-abbrev)
+(define-key ctl-x-map "ag" 'add-global-abbrev)
+(define-key ctl-x-map "a+" 'add-mode-abbrev)
+(define-key ctl-x-map "aig" 'inverse-add-global-abbrev)
+(define-key ctl-x-map "ail" 'inverse-add-mode-abbrev)
+;; (define-key ctl-x-map "a\C-h" 'inverse-add-global-abbrev)
+(define-key ctl-x-map "a-" 'inverse-add-global-abbrev)
+(define-key ctl-x-map "ae" 'expand-abbrev)
+(define-key ctl-x-map "a'" 'expand-abbrev)
+;; (define-key ctl-x-map "\C-a" 'add-mode-abbrev)
+;; (define-key ctl-x-map "\+" 'add-global-abbrev)
+;; (define-key ctl-x-map "\C-h" 'inverse-add-mode-abbrev)
+;; (define-key ctl-x-map "\-" 'inverse-add-global-abbrev)
+(define-key esc-map "'" 'abbrev-prefix-mark)
+(define-key ctl-x-map "'" 'expand-abbrev)
+
+;;; Don't compile this file; it contains no large function definitions.
+;;; Don't look for autoload cookies in this file.
+;;; Local Variables:
+;;; no-byte-compile: t
+;;; no-update-autoloads: t
+;;; End:
+
+;;; bindings.el ends here