comparison lisp/comint.el @ 14644:325bc6726a7b

(make-comint, comint-run): Fix autoload cookie.
author Erik Naggum <erik@naggum.no>
date Thu, 22 Feb 1996 02:50:30 +0000
parents 83f275dcd93a
children 3793008500cd
comparison
equal deleted inserted replaced
14643:9a31b6a37efd 14644:325bc6726a7b
501 (let ((proc (get-buffer-process buffer))) 501 (let ((proc (get-buffer-process buffer)))
502 (and proc (memq (process-status proc) '(open run stop))))) 502 (and proc (memq (process-status proc) '(open run stop)))))
503 503
504 ;; Note that this guy, unlike shell.el's make-shell, barfs if you pass it () 504 ;; Note that this guy, unlike shell.el's make-shell, barfs if you pass it ()
505 ;; for the second argument (program). 505 ;; for the second argument (program).
506 ;;###autoload 506 ;;;###autoload
507 (defun make-comint (name program &optional startfile &rest switches) 507 (defun make-comint (name program &optional startfile &rest switches)
508 "Make a comint process NAME in a buffer, running PROGRAM. 508 "Make a comint process NAME in a buffer, running PROGRAM.
509 The name of the buffer is made by surrounding NAME with `*'s. 509 The name of the buffer is made by surrounding NAME with `*'s.
510 PROGRAM should be either a string denoting an executable program to create 510 PROGRAM should be either a string denoting an executable program to create
511 via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP 511 via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP
524 (set-buffer buffer) 524 (set-buffer buffer)
525 (comint-mode)) ; Install local vars, mode, keymap, ... 525 (comint-mode)) ; Install local vars, mode, keymap, ...
526 (comint-exec buffer name program startfile switches))) 526 (comint-exec buffer name program startfile switches)))
527 buffer)) 527 buffer))
528 528
529 ;;###autoload 529 ;;;###autoload
530 (defun comint-run (program) 530 (defun comint-run (program)
531 "Run PROGRAM in a comint buffer and switch to it. 531 "Run PROGRAM in a comint buffer and switch to it.
532 The buffer name is made by surrounding the file name of PROGRAM with `*'s. 532 The buffer name is made by surrounding the file name of PROGRAM with `*'s.
533 The file name is used to make a symbol name, such as `comint-sh-hook', and any 533 The file name is used to make a symbol name, such as `comint-sh-hook', and any
534 hooks on this symbol are run in the buffer. 534 hooks on this symbol are run in the buffer.