Mercurial > emacs
changeset 58983:2e6b67f7b5c9
(executable-interpret): Eliminate obsolete compile-internal, and switch to comint for interaction.
| author | Daniel Pfeiffer <occitan@esperanto.org> |
|---|---|
| date | Wed, 15 Dec 2004 21:24:20 +0000 |
| parents | 0d4afb943870 |
| children | 425b020e8f99 |
| files | lisp/progmodes/executable.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/executable.el Wed Dec 15 19:51:51 2004 +0000 +++ b/lisp/progmodes/executable.el Wed Dec 15 21:24:20 2004 +0000 @@ -199,20 +199,20 @@ (file-modes buffer-file-name))))))) +;;;###autoload (defun executable-interpret (command) "Run script with user-specified args, and collect output in a buffer. -While script runs asynchronously, you can use the \\[next-error] command -to find the next error." +While script runs asynchronously, you can use the \\[next-error] +command to find the next error. The buffer is also in `comint-mode' and +`compilation-shell-minor-mode', so that you can answer any prompts." (interactive (list (read-string "Run script: " (or executable-command buffer-file-name)))) (require 'compile) (save-some-buffers (not compilation-ask-about-save)) - (make-local-variable 'executable-command) - (compile-internal (setq executable-command command) - "No more errors." "Interpretation" - ;; Give it a simpler regexp to match. - nil executable-error-regexp-alist)) + (set (make-local-variable 'executable-command) command) + (let ((compilation-error-regexp-alist executable-error-regexp-alist)) + (compilation-start command t (lambda (x) "*interpretation*"))))