mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-31 21:01:23 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Daniel Pfeiffer 2004-12-15 21:28:02 +00:00
parent b66d0e6bde
commit 78f617dde4
2 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

14
lisp/progmodes/executable.el
View file

@ -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*"))))