summaryrefslogtreecommitdiff
path: root/lisp/progmodes/executable.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2011-04-22 20:44:26 +0200
committerJuanma Barranquero <lekktu@gmail.com>2011-04-22 20:44:26 +0200
commite02f48d76bfd57f014ffbe3ba56b62f2d5ccc794 (patch)
treed27a2d9fd6838d6e619c824deb12a568ceac54f6 /lisp/progmodes/executable.el
parent7ede3b6577ae99a3e7ac45baa7cace439bf5070c (diff)
downloademacs-e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794.tar.gz
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."
(file-modes buffer-file-name)))))))
+(defvar compilation-error-regexp-alist) ; from compile.el
+
;;;###autoload
(defun executable-interpret (command)
"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
(save-some-buffers (not compilation-ask-about-save))
(set (make-local-variable 'executable-command) command)
(let ((compilation-error-regexp-alist executable-error-regexp-alist))
- (compilation-start command t (lambda (x) "*interpretation*"))))
+ (compilation-start command t (lambda (_x) "*interpretation*"))))