aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/executable.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/progmodes/executable.el')
-rw-r--r--lisp/progmodes/executable.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index 9313df9f587..d8133cb6b90 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -173,6 +173,8 @@ non-executable files."
173 (file-modes buffer-file-name))))))) 173 (file-modes buffer-file-name)))))))
174 174
175 175
176(defvar compilation-error-regexp-alist) ; from compile.el
177
176;;;###autoload 178;;;###autoload
177(defun executable-interpret (command) 179(defun executable-interpret (command)
178 "Run script with user-specified args, and collect output in a buffer. 180 "Run script with user-specified args, and collect output in a buffer.
@@ -186,7 +188,7 @@ command to find the next error. The buffer is also in `comint-mode' and
186 (save-some-buffers (not compilation-ask-about-save)) 188 (save-some-buffers (not compilation-ask-about-save))
187 (set (make-local-variable 'executable-command) command) 189 (set (make-local-variable 'executable-command) command)
188 (let ((compilation-error-regexp-alist executable-error-regexp-alist)) 190 (let ((compilation-error-regexp-alist executable-error-regexp-alist))
189 (compilation-start command t (lambda (x) "*interpretation*")))) 191 (compilation-start command t (lambda (_x) "*interpretation*"))))
190 192
191 193
192 194