Commit 36e81327 authored by John Wiegley's avatar John Wiegley
Browse files

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'.
parent 5aec6b05
...@@ -118,9 +118,9 @@ information, for example." ...@@ -118,9 +118,9 @@ information, for example."
(define-key eshell-command-map [(control ?c)] 'eshell-interrupt-process) (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 ?k)] 'eshell-kill-process)
(define-key eshell-command-map [(control ?d)] 'eshell-send-eof-to-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 ?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)) (define-key eshell-command-map [(control ?\\)] 'eshell-quit-process))
(defun eshell-reset-after-proc (proc status) (defun eshell-reset-after-proc (proc status)
...@@ -480,20 +480,20 @@ See the variable `eshell-kill-processes-on-exit'." ...@@ -480,20 +480,20 @@ See the variable `eshell-kill-processes-on-exit'."
(unless (eshell-process-interact 'quit-process) (unless (eshell-process-interact 'quit-process)
(run-hook-with-args 'eshell-kill-hook nil "quit"))) (run-hook-with-args 'eshell-kill-hook nil "quit")))
(defun eshell-stop-process () ;(defun eshell-stop-process ()
"Send STOP signal to process." ; "Send STOP signal to process."
(interactive) ; (interactive)
(unless (eshell-process-interact 'stop-process) ; (unless (eshell-process-interact 'stop-process)
(run-hook-with-args 'eshell-kill-hook nil "stopped"))) ; (run-hook-with-args 'eshell-kill-hook nil "stopped")))
(defun eshell-continue-process () ;(defun eshell-continue-process ()
"Send CONTINUE signal to process." ; "Send CONTINUE signal to process."
(interactive) ; (interactive)
(unless (eshell-process-interact 'continue-process) ; (unless (eshell-process-interact 'continue-process)
;; jww (1999-09-17): this signal is not dealt with yet. For ; ;; jww (1999-09-17): this signal is not dealt with yet. For
;; example, `eshell-reset' will be called, and so will ; ;; example, `eshell-reset' will be called, and so will
;; `eshell-resume-eval'. ; ;; `eshell-resume-eval'.
(run-hook-with-args 'eshell-kill-hook nil "continue"))) ; (run-hook-with-args 'eshell-kill-hook nil "continue")))
(defun eshell-send-eof-to-process () (defun eshell-send-eof-to-process ()
"Send EOF to process." "Send EOF to process."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment