X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/322b7dab59b98b5d8625d2cd29e48f1ce605f769..21e3f963e7472f5b9721ff9dc5b683efc6b3e9b8:/lisp/eshell/em-rebind.el diff --git a/lisp/eshell/em-rebind.el b/lisp/eshell/em-rebind.el index 2c346dfcd3..341191fc62 100644 --- a/lisp/eshell/em-rebind.el +++ b/lisp/eshell/em-rebind.el @@ -1,6 +1,6 @@ ;;; em-rebind.el --- rebind keys when point is at current input -;; Copyright (C) 1999-2011 Free Software Foundation, Inc. +;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Author: John Wiegley @@ -23,10 +23,12 @@ ;;; Code: +(require 'esh-mode) (eval-when-compile (require 'eshell)) ;;;###autoload -(eshell-defgroup eshell-rebind nil +(progn +(defgroup eshell-rebind nil "This module allows for special keybindings that only take effect while the point is in a region of input text. By default, it binds C-a to move to the beginning of the input text (rather than just the @@ -37,7 +39,7 @@ commands to cause the point to leave the input area, such as `backward-word', `previous-line', etc. This module intends to mimic the behavior of normal shells while the user editing new input text." :tag "Rebind keys at input" - :group 'eshell-module) + :group 'eshell-module)) ;;; User Variables: @@ -144,7 +146,7 @@ This is default behavior of shells like bash." ;;; Functions: (defun eshell-rebind-initialize () - "Initialize the inputing code." + "Initialize the inputting code." (unless eshell-non-interactive-p (add-hook 'eshell-mode-hook 'eshell-setup-input-keymap nil t) (make-local-variable 'eshell-previous-point)