1. xemacs
  2. eshell

Source

eshell / esh-proc.el

Diff from to

File esh-proc.el

  • Ignore whitespace
-;;; esh-proc --- process management
+;;; esh-proc.el --- process management
 
-;; Copyright (C) 1999, 2000 Free Software Foundation
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
+;;   2005, 2006, 2007 Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
 
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 (provide 'esh-proc)
 
   (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)
 	    (setq signum (abs (string-to-number id))))
 	   ((stringp id)
 	    (let (case-fold-search)
-	      (if (string-match "^-\\([A-Z]+\\)$" id)
+	      (if (string-match "^-\\([A-Z]+[12]?\\)$" id)
 		  (setq signum
 			(intern (concat "SIG" (match-string 1 id))))
 		(error "kill: bad signal spec `%s'" id))))
   (if (and (eshell-processp (car entry))
 	   (nth 2 entry)
 	   eshell-done-messages-in-minibuffer)
-      (message (format "[%s]+ Done %s" (process-name (car entry))
-		       (process-command (car entry)))))
+      (message "[%s]+ Done %s" (process-name (car entry))
+	       (process-command (car entry))))
   (setq eshell-process-list
 	(delq entry eshell-process-list)))
 
   (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."