diff options
author | John Wiegley <johnw@newartisans.com> | 2001-05-10 03:29:55 +0000 |
---|---|---|
committer | John Wiegley <johnw@newartisans.com> | 2001-05-10 03:29:55 +0000 |
commit | 36e813279d7ca224828eff8538d3eba2d046c304 (patch) | |
tree | c413563646d410d762830e62a66dd0752d5bffdc /lisp/eshell | |
parent | 5aec6b055cb6b4b57386c484e4dc00cd9fe8a9f1 (diff) | |
download | emacs-36e813279d7ca224828eff8538d3eba2d046c304.tar.gz |
Disable `eshell-stop-process' and `eshell-continue-process', since
they are both nonfunctional at the moment.
(eshell-proc-initialize): Don't bind keys for `eshell-stop-process' or
`eshell-continue-process'.
Diffstat (limited to 'lisp/eshell')
-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." (define-key eshell-command-map [(control ?c)] 'eshell-interrupt-process) (define-key eshell-command-map [(control ?k)] 'eshell-kill-process) (define-key eshell-command-map [(control ?d)] 'eshell-send-eof-to-process) - (define-key eshell-command-map [(control ?q)] 'eshell-continue-process) +; (define-key eshell-command-map [(control ?q)] 'eshell-continue-process) (define-key eshell-command-map [(control ?s)] 'list-processes) - (define-key eshell-command-map [(control ?z)] 'eshell-stop-process) +; (define-key eshell-command-map [(control ?z)] 'eshell-stop-process) (define-key eshell-command-map [(control ?\\)] 'eshell-quit-process)) (defun eshell-reset-after-proc (proc status) @@ -480,20 +480,20 @@ See the variable `eshell-kill-processes-on-exit'." (unless (eshell-process-interact 'quit-process) (run-hook-with-args 'eshell-kill-hook nil "quit"))) -(defun eshell-stop-process () - "Send STOP signal to process." - (interactive) - (unless (eshell-process-interact 'stop-process) - (run-hook-with-args 'eshell-kill-hook nil "stopped"))) - -(defun eshell-continue-process () - "Send CONTINUE signal to process." - (interactive) - (unless (eshell-process-interact 'continue-process) - ;; jww (1999-09-17): this signal is not dealt with yet. For - ;; example, `eshell-reset' will be called, and so will - ;; `eshell-resume-eval'. - (run-hook-with-args 'eshell-kill-hook nil "continue"))) +;(defun eshell-stop-process () +; "Send STOP signal to process." +; (interactive) +; (unless (eshell-process-interact 'stop-process) +; (run-hook-with-args 'eshell-kill-hook nil "stopped"))) + +;(defun eshell-continue-process () +; "Send CONTINUE signal to process." +; (interactive) +; (unless (eshell-process-interact 'continue-process) +; ;; jww (1999-09-17): this signal is not dealt with yet. For +; ;; example, `eshell-reset' will be called, and so will +; ;; `eshell-resume-eval'. +; (run-hook-with-args 'eshell-kill-hook nil "continue"))) (defun eshell-send-eof-to-process () "Send EOF to process." |