--- /dev/null
+;;; 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)
+\f
+(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)
+\f
+(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)
+\f
+(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)
+\f
+(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
projects / emacs.git / commitdiff