Mercurial > emacs
comparison lisp/eshell/em-rebind.el @ 43332:ab078394a536
(eshell-rebind-initialize): Do not use make-local-hook.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 16 Feb 2002 09:40:40 +0000 |
| parents | 67b464da13ec |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 43331:d65b6b00330f | 43332:ab078394a536 |
|---|---|
| 145 ;;; Functions: | 145 ;;; Functions: |
| 146 | 146 |
| 147 (defun eshell-rebind-initialize () | 147 (defun eshell-rebind-initialize () |
| 148 "Initialize the inputing code." | 148 "Initialize the inputing code." |
| 149 (unless eshell-non-interactive-p | 149 (unless eshell-non-interactive-p |
| 150 (make-local-hook 'eshell-mode-hook) | |
| 151 (add-hook 'eshell-mode-hook 'eshell-setup-input-keymap nil t) | 150 (add-hook 'eshell-mode-hook 'eshell-setup-input-keymap nil t) |
| 152 (make-local-hook 'pre-command-hook) | |
| 153 (make-local-variable 'eshell-previous-point) | 151 (make-local-variable 'eshell-previous-point) |
| 154 (add-hook 'pre-command-hook 'eshell-save-previous-point nil t) | 152 (add-hook 'pre-command-hook 'eshell-save-previous-point nil t) |
| 155 (make-local-hook 'post-command-hook) | |
| 156 (make-local-variable 'overriding-local-map) | 153 (make-local-variable 'overriding-local-map) |
| 157 (add-hook 'post-command-hook 'eshell-rebind-input-map nil t) | 154 (add-hook 'post-command-hook 'eshell-rebind-input-map nil t) |
| 158 (set (make-local-variable 'eshell-lock-keymap) nil) | 155 (set (make-local-variable 'eshell-lock-keymap) nil) |
| 159 (define-key eshell-command-map [(meta ?l)] 'eshell-lock-local-map))) | 156 (define-key eshell-command-map [(meta ?l)] 'eshell-lock-local-map))) |
| 160 | 157 |