diff options
| author | Pavel Janík | 2002-02-16 09:37:54 +0000 |
|---|---|---|
| committer | Pavel Janík | 2002-02-16 09:37:54 +0000 |
| commit | 90100aac65972b46978d86cc39d04ebdd28fdb1f (patch) | |
| tree | 5b5915376b03573e60ce3dee9f800b984ab03796 | |
| parent | 2772b8b0c5750b6adaefdca4c4d8b2585b846d63 (diff) | |
| download | emacs-90100aac65972b46978d86cc39d04ebdd28fdb1f.tar.gz emacs-90100aac65972b46978d86cc39d04ebdd28fdb1f.zip | |
(eshell-cmpl-initialize): Do not use make-local-hook.
| -rw-r--r-- | lisp/eshell/em-cmpl.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el index 14407a8f236..b923cffff4e 100644 --- a/lisp/eshell/em-cmpl.el +++ b/lisp/eshell/em-cmpl.el | |||
| @@ -277,13 +277,11 @@ to writing a completion function." | |||
| 277 | ;; `pcomplete-arg-quote-list' should only be set after all the | 277 | ;; `pcomplete-arg-quote-list' should only be set after all the |
| 278 | ;; load-hooks for any other extension modules have been run, which | 278 | ;; load-hooks for any other extension modules have been run, which |
| 279 | ;; is true at the time `eshell-mode-hook' is run | 279 | ;; is true at the time `eshell-mode-hook' is run |
| 280 | (make-local-hook 'eshell-mode-hook) | ||
| 281 | (add-hook 'eshell-mode-hook | 280 | (add-hook 'eshell-mode-hook |
| 282 | (function | 281 | (function |
| 283 | (lambda () | 282 | (lambda () |
| 284 | (set (make-local-variable 'pcomplete-arg-quote-list) | 283 | (set (make-local-variable 'pcomplete-arg-quote-list) |
| 285 | eshell-special-chars-outside-quoting))) nil t) | 284 | eshell-special-chars-outside-quoting))) nil t) |
| 286 | (make-local-hook 'pcomplete-quote-arg-hook) | ||
| 287 | (add-hook 'pcomplete-quote-arg-hook 'eshell-quote-backslash nil t) | 285 | (add-hook 'pcomplete-quote-arg-hook 'eshell-quote-backslash nil t) |
| 288 | (define-key eshell-mode-map [(meta tab)] 'lisp-complete-symbol) | 286 | (define-key eshell-mode-map [(meta tab)] 'lisp-complete-symbol) |
| 289 | (define-key eshell-mode-map [(meta control ?i)] 'lisp-complete-symbol) | 287 | (define-key eshell-mode-map [(meta control ?i)] 'lisp-complete-symbol) |