diff options
| -rw-r--r-- | lisp/eshell/esh-proc.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el index 5997c15094f..dbe2e773524 100644 --- a/lisp/eshell/esh-proc.el +++ b/lisp/eshell/esh-proc.el | |||
| @@ -118,9 +118,9 @@ information, for example." | |||
| 118 | (define-key eshell-command-map [(control ?c)] 'eshell-interrupt-process) | 118 | (define-key eshell-command-map [(control ?c)] 'eshell-interrupt-process) |
| 119 | (define-key eshell-command-map [(control ?k)] 'eshell-kill-process) | 119 | (define-key eshell-command-map [(control ?k)] 'eshell-kill-process) |
| 120 | (define-key eshell-command-map [(control ?d)] 'eshell-send-eof-to-process) | 120 | (define-key eshell-command-map [(control ?d)] 'eshell-send-eof-to-process) |
| 121 | (define-key eshell-command-map [(control ?q)] 'eshell-continue-process) | 121 | ; (define-key eshell-command-map [(control ?q)] 'eshell-continue-process) |
| 122 | (define-key eshell-command-map [(control ?s)] 'list-processes) | 122 | (define-key eshell-command-map [(control ?s)] 'list-processes) |
| 123 | (define-key eshell-command-map [(control ?z)] 'eshell-stop-process) | 123 | ; (define-key eshell-command-map [(control ?z)] 'eshell-stop-process) |
| 124 | (define-key eshell-command-map [(control ?\\)] 'eshell-quit-process)) | 124 | (define-key eshell-command-map [(control ?\\)] 'eshell-quit-process)) |
| 125 | 125 | ||
| 126 | (defun eshell-reset-after-proc (proc status) | 126 | (defun eshell-reset-after-proc (proc status) |
| @@ -480,20 +480,20 @@ See the variable `eshell-kill-processes-on-exit'." | |||
| 480 | (unless (eshell-process-interact 'quit-process) | 480 | (unless (eshell-process-interact 'quit-process) |
| 481 | (run-hook-with-args 'eshell-kill-hook nil "quit"))) | 481 | (run-hook-with-args 'eshell-kill-hook nil "quit"))) |
| 482 | 482 | ||
| 483 | (defun eshell-stop-process () | 483 | ;(defun eshell-stop-process () |
| 484 | "Send STOP signal to process." | 484 | ; "Send STOP signal to process." |
| 485 | (interactive) | 485 | ; (interactive) |
| 486 | (unless (eshell-process-interact 'stop-process) | 486 | ; (unless (eshell-process-interact 'stop-process) |
| 487 | (run-hook-with-args 'eshell-kill-hook nil "stopped"))) | 487 | ; (run-hook-with-args 'eshell-kill-hook nil "stopped"))) |
| 488 | 488 | ||
| 489 | (defun eshell-continue-process () | 489 | ;(defun eshell-continue-process () |
| 490 | "Send CONTINUE signal to process." | 490 | ; "Send CONTINUE signal to process." |
| 491 | (interactive) | 491 | ; (interactive) |
| 492 | (unless (eshell-process-interact 'continue-process) | 492 | ; (unless (eshell-process-interact 'continue-process) |
| 493 | ;; jww (1999-09-17): this signal is not dealt with yet. For | 493 | ; ;; jww (1999-09-17): this signal is not dealt with yet. For |
| 494 | ;; example, `eshell-reset' will be called, and so will | 494 | ; ;; example, `eshell-reset' will be called, and so will |
| 495 | ;; `eshell-resume-eval'. | 495 | ; ;; `eshell-resume-eval'. |
| 496 | (run-hook-with-args 'eshell-kill-hook nil "continue"))) | 496 | ; (run-hook-with-args 'eshell-kill-hook nil "continue"))) |
| 497 | 497 | ||
| 498 | (defun eshell-send-eof-to-process () | 498 | (defun eshell-send-eof-to-process () |
| 499 | "Send EOF to process." | 499 | "Send EOF to process." |