Mercurial > emacs
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. |