diff options
| author | Pavel Janík | 2002-02-16 09:42:11 +0000 |
|---|---|---|
| committer | Pavel Janík | 2002-02-16 09:42:11 +0000 |
| commit | 252bfbdc9aee3bf968a214425dd4790107d4532d (patch) | |
| tree | 49e26f379cd0738567156244b5ead187525aed3a | |
| parent | ff33c23537d05e547931f066c3144c4dee09fe19 (diff) | |
| download | emacs-252bfbdc9aee3bf968a214425dd4790107d4532d.tar.gz emacs-252bfbdc9aee3bf968a214425dd4790107d4532d.zip | |
(eshell-cmd-initialize): Do not use make-local-hook.
| -rw-r--r-- | lisp/eshell/esh-cmd.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index 7793f87e4eb..04a01f1234e 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el | |||
| @@ -295,28 +295,24 @@ command line.") | |||
| 295 | (set (make-local-variable 'eshell-last-command-name) nil) | 295 | (set (make-local-variable 'eshell-last-command-name) nil) |
| 296 | (set (make-local-variable 'eshell-last-async-proc) nil) | 296 | (set (make-local-variable 'eshell-last-async-proc) nil) |
| 297 | 297 | ||
| 298 | (make-local-hook 'eshell-kill-hook) | ||
| 299 | (add-hook 'eshell-kill-hook 'eshell-resume-command nil t) | 298 | (add-hook 'eshell-kill-hook 'eshell-resume-command nil t) |
| 300 | 299 | ||
| 301 | ;; make sure that if a command is over, and no process is being | 300 | ;; make sure that if a command is over, and no process is being |
| 302 | ;; waited for, that `eshell-current-command' is set to nil. This | 301 | ;; waited for, that `eshell-current-command' is set to nil. This |
| 303 | ;; situation can occur, for example, if a Lisp function results in | 302 | ;; situation can occur, for example, if a Lisp function results in |
| 304 | ;; `debug' being called, and the user then types \\[top-level] | 303 | ;; `debug' being called, and the user then types \\[top-level] |
| 305 | (make-local-hook 'eshell-post-command-hook) | ||
| 306 | (add-hook 'eshell-post-command-hook | 304 | (add-hook 'eshell-post-command-hook |
| 307 | (function | 305 | (function |
| 308 | (lambda () | 306 | (lambda () |
| 309 | (setq eshell-current-command nil | 307 | (setq eshell-current-command nil |
| 310 | eshell-last-async-proc nil))) nil t) | 308 | eshell-last-async-proc nil))) nil t) |
| 311 | 309 | ||
| 312 | (make-local-hook 'eshell-parse-argument-hook) | ||
| 313 | (add-hook 'eshell-parse-argument-hook | 310 | (add-hook 'eshell-parse-argument-hook |
| 314 | 'eshell-parse-subcommand-argument nil t) | 311 | 'eshell-parse-subcommand-argument nil t) |
| 315 | (add-hook 'eshell-parse-argument-hook | 312 | (add-hook 'eshell-parse-argument-hook |
| 316 | 'eshell-parse-lisp-argument nil t) | 313 | 'eshell-parse-lisp-argument nil t) |
| 317 | 314 | ||
| 318 | (when (eshell-using-module 'eshell-cmpl) | 315 | (when (eshell-using-module 'eshell-cmpl) |
| 319 | (make-local-hook 'pcomplete-try-first-hook) | ||
| 320 | (add-hook 'pcomplete-try-first-hook | 316 | (add-hook 'pcomplete-try-first-hook |
| 321 | 'eshell-complete-lisp-symbols nil t))) | 317 | 'eshell-complete-lisp-symbols nil t))) |
| 322 | 318 | ||