aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2005-07-16 17:42:49 +0000
committerRichard M. Stallman2005-07-16 17:42:49 +0000
commit3c54e8f13680d43191ce274d5a71145fb8a89d01 (patch)
treea01ab2dc3f5224b9c505ab2c7a3521d4a38a2c04
parentb674ceaf816bcea7e9676e97dc4faf0714329aea (diff)
downloademacs-3c54e8f13680d43191ce274d5a71145fb8a89d01.tar.gz
emacs-3c54e8f13680d43191ce274d5a71145fb8a89d01.zip
(eshell-rebind-keys-alist): Add defvar.
(eshell-hist-initialize): Use that var the natural way.
-rw-r--r--lisp/eshell/em-hist.el8
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