diff options
| author | Richard M. Stallman | 2005-07-16 17:42:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-16 17:42:49 +0000 |
| commit | 3c54e8f13680d43191ce274d5a71145fb8a89d01 (patch) | |
| tree | a01ab2dc3f5224b9c505ab2c7a3521d4a38a2c04 /lisp/eshell | |
| parent | b674ceaf816bcea7e9676e97dc4faf0714329aea (diff) | |
| download | emacs-3c54e8f13680d43191ce274d5a71145fb8a89d01.tar.gz emacs-3c54e8f13680d43191ce274d5a71145fb8a89d01.zip | |
(eshell-rebind-keys-alist): Add defvar.
(eshell-hist-initialize): Use that var the natural way.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-hist.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el index c82be565c4f..68770788349 100644 --- a/lisp/eshell/em-hist.el +++ b/lisp/eshell/em-hist.el | |||
| @@ -204,6 +204,8 @@ element, regardless of any text on the command line. In that case, | |||
| 204 | (define-key eshell-isearch-map [(control ?c)] 'eshell-isearch-cancel-map) | 204 | (define-key eshell-isearch-map [(control ?c)] 'eshell-isearch-cancel-map) |
| 205 | (define-key eshell-isearch-cancel-map [(control ?c)] 'eshell-isearch-cancel)) | 205 | (define-key eshell-isearch-cancel-map [(control ?c)] 'eshell-isearch-cancel)) |
| 206 | 206 | ||
| 207 | (defvar eshell-rebind-keys-alist) | ||
| 208 | |||
| 207 | ;;; Functions: | 209 | ;;; Functions: |
| 208 | 210 | ||
| 209 | (defun eshell-hist-initialize () | 211 | (defun eshell-hist-initialize () |
| @@ -217,10 +219,10 @@ element, regardless of any text on the command line. In that case, | |||
| 217 | 219 | ||
| 218 | (if (and (eshell-using-module 'eshell-rebind) | 220 | (if (and (eshell-using-module 'eshell-rebind) |
| 219 | (not eshell-non-interactive-p)) | 221 | (not eshell-non-interactive-p)) |
| 220 | (let ((rebind-alist (symbol-value 'eshell-rebind-keys-alist))) | 222 | (let ((rebind-alist eshell-rebind-keys-alist)) |
| 221 | (make-local-variable 'eshell-rebind-keys-alist) | 223 | (make-local-variable 'eshell-rebind-keys-alist) |
| 222 | (set 'eshell-rebind-keys-alist | 224 | (setq eshell-rebind-keys-alist |
| 223 | (append rebind-alist eshell-hist-rebind-keys-alist)) | 225 | (append rebind-alist eshell-hist-rebind-keys-alist)) |
| 224 | (set (make-local-variable 'search-invisible) t) | 226 | (set (make-local-variable 'search-invisible) t) |
| 225 | (set (make-local-variable 'search-exit-option) t) | 227 | (set (make-local-variable 'search-exit-option) t) |
| 226 | (add-hook 'isearch-mode-hook | 228 | (add-hook 'isearch-mode-hook |