Mercurial > emacs
changeset 37658:f9277090a94a
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'.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Thu, 10 May 2001 03:29:55 +0000 |
| parents | 4dc446a29001 |
| children | 7dc0e015c205 |
| files | lisp/eshell/esh-proc.el |
| diffstat | 1 files changed, 15 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- 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."