From 78f617dde40a5eeee768162ffaa266c19c1bed73 Mon Sep 17 00:00:00 2001 From: Daniel Pfeiffer Date: Wed, 15 Dec 2004 21:28:02 +0000 Subject: [PATCH] (executable-interpret): Eliminate obsolete compile-internal, and switch to comint for interaction. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/executable.el | 14 +++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37d6f4bf207..a086e276835 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-15 Daniel Pfeiffer + + * progmodes/executable.el (executable-interpret): Eliminate + obsolete compile-internal, and switch to comint for interaction. + 2004-12-15 J.D. Smith * progmodes/idlwave.el (idlwave-skip-multi-commands): Don't match diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el index a5d401a5f5e..0eb53771019 100644 --- 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*")))) -- 2.39.2