Commit 78f617dd authored by Daniel Pfeiffer's avatar Daniel Pfeiffer

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

parent b66d0e6b
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
......
......@@ -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*"))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment