Mercurial > emacs
changeset 64384:54d5227ff298
(eshell-rebind-keys-alist): Add defvar.
(eshell-hist-initialize): Use that var the natural way.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Jul 2005 17:42:49 +0000 |
| parents | 66f4633e319a |
| children | 3b6714810ffc |
| files | lisp/eshell/em-hist.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/eshell/em-hist.el Sat Jul 16 17:39:49 2005 +0000 +++ b/lisp/eshell/em-hist.el Sat Jul 16 17:42:49 2005 +0000 @@ -204,6 +204,8 @@ (define-key eshell-isearch-map [(control ?c)] 'eshell-isearch-cancel-map) (define-key eshell-isearch-cancel-map [(control ?c)] 'eshell-isearch-cancel)) +(defvar eshell-rebind-keys-alist) + ;;; Functions: (defun eshell-hist-initialize () @@ -217,10 +219,10 @@ (if (and (eshell-using-module 'eshell-rebind) (not eshell-non-interactive-p)) - (let ((rebind-alist (symbol-value 'eshell-rebind-keys-alist))) + (let ((rebind-alist eshell-rebind-keys-alist)) (make-local-variable 'eshell-rebind-keys-alist) - (set 'eshell-rebind-keys-alist - (append rebind-alist eshell-hist-rebind-keys-alist)) + (setq eshell-rebind-keys-alist + (append rebind-alist eshell-hist-rebind-keys-alist)) (set (make-local-variable 'search-invisible) t) (set (make-local-variable 'search-exit-option) t) (add-hook 'isearch-mode-hook