diff options
| author | Juanma Barranquero | 2011-04-22 20:44:26 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2011-04-22 20:44:26 +0200 |
| commit | e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794 (patch) | |
| tree | d27a2d9fd6838d6e619c824deb12a568ceac54f6 /lisp/progmodes/executable.el | |
| parent | 7ede3b6577ae99a3e7ac45baa7cace439bf5070c (diff) | |
| download | emacs-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.el | 4 |
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 | ||