Mercurial > emacs
comparison lisp/eshell/esh-proc.el @ 88155:d7ddb3e565de
sync with trunk
author | Henrik Enberg <henrik.enberg@telia.com> |
---|---|
date | Mon, 16 Jan 2006 00:03:54 +0000 |
parents | 67b464da13ec |
children |
comparison
equal
deleted
inserted
replaced
88154:8ce476d3ba36 | 88155:d7ddb3e565de |
---|---|
1 ;;; esh-proc.el --- process management | 1 ;;; esh-proc.el --- process management |
2 | 2 |
3 ;; Copyright (C) 1999, 2000 Free Software Foundation | 3 ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, |
4 ;; 2005 Free Software Foundation, Inc. | |
4 | 5 |
5 ;; Author: John Wiegley <johnw@gnu.org> | 6 ;; Author: John Wiegley <johnw@gnu.org> |
6 | 7 |
7 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
8 | 9 |
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
17 ;; GNU General Public License for more details. | 18 ;; GNU General Public License for more details. |
18 | 19 |
19 ;; You should have received a copy of the GNU General Public License | 20 ;; You should have received a copy of the GNU General Public License |
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
22 ;; Boston, MA 02111-1307, USA. | 23 ;; Boston, MA 02110-1301, USA. |
23 | 24 |
24 (provide 'esh-proc) | 25 (provide 'esh-proc) |
25 | 26 |
26 (eval-when-compile (require 'esh-maint)) | 27 (eval-when-compile (require 'esh-maint)) |
27 | 28 |
222 (defun eshell-remove-process-entry (entry) | 223 (defun eshell-remove-process-entry (entry) |
223 "Record the process ENTRY as fully completed." | 224 "Record the process ENTRY as fully completed." |
224 (if (and (eshell-processp (car entry)) | 225 (if (and (eshell-processp (car entry)) |
225 (nth 2 entry) | 226 (nth 2 entry) |
226 eshell-done-messages-in-minibuffer) | 227 eshell-done-messages-in-minibuffer) |
227 (message (format "[%s]+ Done %s" (process-name (car entry)) | 228 (message "[%s]+ Done %s" (process-name (car entry)) |
228 (process-command (car entry))))) | 229 (process-command (car entry)))) |
229 (setq eshell-process-list | 230 (setq eshell-process-list |
230 (delq entry eshell-process-list))) | 231 (delq entry eshell-process-list))) |
231 | 232 |
232 (defvar eshell-scratch-buffer " *eshell-scratch*" | 233 (defvar eshell-scratch-buffer " *eshell-scratch*" |
233 "Scratch buffer for holding Eshell's input/output.") | 234 "Scratch buffer for holding Eshell's input/output.") |
501 (eshell-send-input nil nil t) | 502 (eshell-send-input nil nil t) |
502 (eshell-process-interact 'process-send-eof)) | 503 (eshell-process-interact 'process-send-eof)) |
503 | 504 |
504 ;;; Code: | 505 ;;; Code: |
505 | 506 |
507 ;;; arch-tag: ac477a3e-ee4d-4b44-8ec6-212010e607bb | |
506 ;;; esh-proc.el ends here | 508 ;;; esh-proc.el ends here |