1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00

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'.
This commit is contained in:
John Wiegley 2001-05-10 03:29:55 +00:00
parent 5aec6b055c
commit 36e813279d

View File

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