# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 989465395 0
# Node ID f9277090a94a475e97168939f24ec9c24af59407
# Parent  4dc446a29001df0c28d3f9b33d1daf6349ac1a14
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'.

diff -r 4dc446a29001 -r f9277090a94a lisp/eshell/esh-proc.el
--- a/lisp/eshell/esh-proc.el	Thu May 10 03:29:36 2001 +0000
+++ b/lisp/eshell/esh-proc.el	Thu May 10 03:29:55 2001 +0000
@@ -118,9 +118,9 @@
   (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 @@
   (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-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-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."