295 |
(set (make-local-variable 'eshell-last-command-name) nil) |
(set (make-local-variable 'eshell-last-command-name) nil) |
296 |
(set (make-local-variable 'eshell-last-async-proc) nil) |
(set (make-local-variable 'eshell-last-async-proc) nil) |
297 |
|
|
|
(make-local-hook 'eshell-kill-hook) |
|
298 |
(add-hook 'eshell-kill-hook 'eshell-resume-command nil t) |
(add-hook 'eshell-kill-hook 'eshell-resume-command nil t) |
299 |
|
|
300 |
;; make sure that if a command is over, and no process is being |
;; make sure that if a command is over, and no process is being |
301 |
;; waited for, that `eshell-current-command' is set to nil. This |
;; waited for, that `eshell-current-command' is set to nil. This |
302 |
;; situation can occur, for example, if a Lisp function results in |
;; situation can occur, for example, if a Lisp function results in |
303 |
;; `debug' being called, and the user then types \\[top-level] |
;; `debug' being called, and the user then types \\[top-level] |
|
(make-local-hook 'eshell-post-command-hook) |
|
304 |
(add-hook 'eshell-post-command-hook |
(add-hook 'eshell-post-command-hook |
305 |
(function |
(function |
306 |
(lambda () |
(lambda () |
307 |
(setq eshell-current-command nil |
(setq eshell-current-command nil |
308 |
eshell-last-async-proc nil))) nil t) |
eshell-last-async-proc nil))) nil t) |
309 |
|
|
|
(make-local-hook 'eshell-parse-argument-hook) |
|
310 |
(add-hook 'eshell-parse-argument-hook |
(add-hook 'eshell-parse-argument-hook |
311 |
'eshell-parse-subcommand-argument nil t) |
'eshell-parse-subcommand-argument nil t) |
312 |
(add-hook 'eshell-parse-argument-hook |
(add-hook 'eshell-parse-argument-hook |
313 |
'eshell-parse-lisp-argument nil t) |
'eshell-parse-lisp-argument nil t) |
314 |
|
|
315 |
(when (eshell-using-module 'eshell-cmpl) |
(when (eshell-using-module 'eshell-cmpl) |
|
(make-local-hook 'pcomplete-try-first-hook) |
|
316 |
(add-hook 'pcomplete-try-first-hook |
(add-hook 'pcomplete-try-first-hook |
317 |
'eshell-complete-lisp-symbols nil t))) |
'eshell-complete-lisp-symbols nil t))) |
318 |
|
|