aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/executable.el
diff options
context:
space:
mode:
authorJuanma Barranquero2011-04-22 20:44:26 +0200
committerJuanma Barranquero2011-04-22 20:44:26 +0200
commite02f48d76bfd57f014ffbe3ba56b62f2d5ccc794 (patch)
treed27a2d9fd6838d6e619c824deb12a568ceac54f6 /lisp/progmodes/executable.el
parent7ede3b6577ae99a3e7ac45baa7cace439bf5070c (diff)
downloademacs-e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794.tar.gz
emacs-e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794.zip
lisp/progmodes/*.el: Lexical-binding cleanup.
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