Commit 14a08856 authored by Roland McGrath's avatar Roland McGrath
Browse files

(make-comint): Added docstring.

parent d81362b0
;;; comint.el --- general command interpreter in a window stuff ;;; comint.el --- general command interpreter in a window stuff
;; Copyright (C) 1988, 1990, 1992 Free Software Foundation, Inc. ;; Copyright (C) 1988, 1990, 1992, 1993 Free Software Foundation, Inc.
;; Author: Olin Shivers <shivers@cs.cmu.edu> ;; Author: Olin Shivers <shivers@cs.cmu.edu>
;; Keyword: processes ;; Keyword: processes
...@@ -301,6 +301,11 @@ name of one" ...@@ -301,6 +301,11 @@ name of one"
;;; for the second argument (program). ;;; for the second argument (program).
;;;###autoload ;;;###autoload
(defun make-comint (name program &optional startfile &rest switches) (defun make-comint (name program &optional startfile &rest switches)
"Make a comint process NAME in a buffer, running PROGRAM.
The name of the buffer is made by surrounding NAME with `*'s.
If there is already a running process in that buffer, it is not restarted.
Optional third arg STARTFILE is the name of a file to send the contents of to
the process. Any more args are arguments to PROGRAM."
(let ((buffer (get-buffer-create (concat "*" name "*")))) (let ((buffer (get-buffer-create (concat "*" name "*"))))
;; If no process, or nuked process, crank up a new one and put buffer in ;; If no process, or nuked process, crank up a new one and put buffer in
;; comint mode. Otherwise, leave buffer and existing process alone. ;; comint mode. Otherwise, leave buffer and existing process alone.
......
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