(executable-interpret): Eliminate obsolete compile-internal, and switch to comint...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37d6f4bf207d40dba3955839b81e079979ded1d4..a086e276835943c053347f4a8f105964116803c2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-15  Daniel Pfeiffer  <occitan@esperanto.org>
+
+       * progmodes/executable.el (executable-interpret): Eliminate
+       obsolete compile-internal, and switch to comint for interaction.
+
 2004-12-15  J.D. Smith  <jdsmith@as.arizona.edu>
 
        * progmodes/idlwave.el (idlwave-skip-multi-commands): Don't match

diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index a5d401a5f5e8ec969c1c633780a865a60246c63a..0eb537710198c92bcfcc998745c254263391416c 100644 (file)
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -199,20 +199,20 @@ non-executable files."
                                     (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*"))))