From: John Wiegley <johnw@newartisans.com>
Date: Thu, 10 May 2001 03:29:55 +0000 (+0000)
Subject: Disable `eshell-stop-process' and `eshell-continue-process', since
X-Git-Tag: emacs-pretest-21.0.104~559
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36e813279d7ca224828eff8538d3eba2d046c304;p=emacs.git

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 --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."